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