[VBA Excel] Copie de données d'un fichier vers un autre

Copie de données d'un fichier vers un autre [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 09-02-2011 à 17:13:56    

Bonjour,  
 
Je ne sais pas comment m'y prendre pour coder une macro....  
Je dispose de 2 fichiers excels contenant des données sur une colone définie.
 
Colone "B" de références produits sur fichier 1:
 
BAC00021
BAC00032
BAC00012
TR00215
BJTF002145
 
BAC00065
....
 
Colone "A" de références produits sur fichier2 :
 
.....
BAC00012
BAC00011
BAC00036
 
il faut que je copie toutes les références produits du fichier 1 commençant par "BAC" à la suite des références déjà présentes dans le fichier 2 (sans copier les références doublons qui se trouvent déjà dans le fichier 2).
 
Merci :)

Reply

Marsh Posté le 09-02-2011 à 17:13:56   

Reply

Marsh Posté le 10-02-2011 à 14:41:22    

Il te faut un truc du genre :
 

Code :
  1. Dim Copie as Boolean
  2. While objexcel("Classeur1" ).Cells(x, "B" ) <> ""
  3.      If left(objexcel("Classeur1" ).Cells(x, "B" ), 3) = "BAC" then
  4.           Copie = False
  5.           While objexcel("Classeur2" ).Cells(y, "A" ) <> ""
  6.                If objexcel("Classeur1" ).Cells(x, "B" ) = objexcel("Classeur2" ).Cells(y, "A" ) then
  7.                     Goto Suivant:
  8.                Else
  9.                     Copie = True
  10.                End If
  11.                y = y + 1
  12.           End While
  13.           If Copie = True then
  14.                objexcel("Classeur2" ).Cells(y, "A" ) = objexcel("Classeur1" ).Cells(x, "A" )
  15.           End If
  16.      End If
  17.      Suivant:
  18.      x = x + 1
  19. End While

Reply

Sujets relatifs:

Leave a Replay

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