Comparer deux tableaux excel

Comparer deux tableaux excel - VB/VBA/VBS - Programmation

Marsh Posté le 28-07-2006 à 15:18:54    

Bonjour le forum  
 
J'aimerai pouvoir comparer 2 fichiers excel  
 
Alors voila dans mon tableau destination il y a une liste de site avec des activités
 
Dans mon fichier source il y a les meme site mais uniquement avec certaines activité (activité 1 et activité 3) pour lesquelle correspondent un nombre pour chaque site et ce que je souhaite c'est aller cherché ces chiffre dans le fichier source pour remplir destination ...  
 
En sachant que si je dois mettre du code il faudra qu'il se trouve dans le fichier source
 
pour le moment j'ai fais ca :  
 

Code :
  1. Sub Auto_open()
  2. Dim ligne As Integer
  3. Dim stFichier As String
  4. Dim wk As Workbook 'classeur destination
  5. Dim wS As Workbook 'classeur source
  7. Set wS = ThisWorkbook
  8. chemin = ActiveWorkbook.Path
  9. ReDim op(300)
  10. For ligne = 1 To 300
  11.     op(ligne) = Cells(ligne, 2).Value
  12. Next ligne
  13.    
  14. stFichier = Dir(chemin & "\source*.xls" ) 'test si il y a un fichier source... .xls
  15. If stFichier <> "" Then
  16.     Set wk = Workbooks.Open(chemin & "\" & stFichier)
  17.     For i = 1 To 300
  18.         For j = 1 To 300
  19.        
  20.             If wk.Cells(i, 2).Value = op(j) Then
  21.                 wk.Cells(j, 3).Value = wS.Cells(i, 5).Value
  22.                 wk.Cells(j, 4).Value = wS.Cells(i, 4).Value
  23.                 wk.Cells(j, 5).Value = wS.Cells(i, 6).Value
  24.                 wk.Cells(j, 6).Value = wS.Cells(i, 7).Value
  25.                 wk.Cells(j, 7).Value = wS.Cells(i, 8).Value
  26.                 wk.Cells(j, 8).Value = wS.Cells(i, 9).Value
  27.             End If
  28.         Next j
  29.     Next i
  30. Else
  31.     MsgBox "Erreur aucun fichier trouvé.."
  32. End If
  33. End Sub


or  

Code :
  1. If wk.Cells(i, 2).Value = op(j) Then


cela retounre une erreur comme quoi la propriété n'est pas géré par l'objet ...

Reply

Marsh Posté le 28-07-2006 à 15:18:54   

Reply

Marsh Posté le 31-07-2006 à 22:18:00    

bonsoir,
as tu trouvé tout seul ta réponse?
Cordialement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed