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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Excel] Copie de données d'un fichier vers un autre

jeje333

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

Publicité

GuiGui013

Il te faut un truc du genre :

Code :

Dim Copie as Boolean
While objexcel("Classeur1" ).Cells(x, "B" ) <> ""
If left(objexcel("Classeur1" ).Cells(x, "B" ), 3) = "BAC" then
Copie = False
While objexcel("Classeur2" ).Cells(y, "A" ) <> ""
If objexcel("Classeur1" ).Cells(x, "B" ) = objexcel("Classeur2" ).Cells(y, "A" ) then
Goto Suivant:
Else
Copie = True
End If
y = y + 1
End While
If Copie = True then
objexcel("Classeur2" ).Cells(y, "A" ) = objexcel("Classeur1" ).Cells(x, "A" )
End If
End If
Suivant:
x = x + 1
End While

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Macro Excel recherche fichiers et copie [RESOLU]	Copier tables MySQL vers un autre serveur
problème macro import fichier text excel	[AJAX] Afficher données d'une BDD avec filtrage via liste déroulante
[VBA Autocad] dessiner la symétrie d'un point par rapport à une ligne.	[SQL] requete: combler les "vides" dans une table avec des donnees
[Résolu][PHP/SQL] Ajout variable données inscrite dans bdd par tierce	[VBA Access]Changer taille et caractère dans un état
Plus de sujets relatifs à : [VBA Excel] Copie de données d'un fichier vers un autre

Page générée en 0.039 secondes