Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2052 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2055557
jeje333
Posté le 09-02-2011 à 17:13:56  profilanswer
 

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 :)

mood
Publicité
Posté le 09-02-2011 à 17:13:56  profilanswer
 

n°2055828
GuiGui013
Posté le 10-02-2011 à 14:41:22  profilanswer
 

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


Aller à :
Ajouter une réponse
  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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR