VBA

vincent78400 Messages postés 2 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 19 novembre 2009 - 18 nov. 2009 à 17:16
vincent78400 Messages postés 2 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 19 novembre 2009 - 19 nov. 2009 à 11:07
Bonjour tout le monde,
Je suis débutant dans VBA et j'ai besoin de votre aide, svp:
Je souhaite compiler deux fichiers Excel dans un seul fichier où il y aura 3 onglets, un par fichier importé(juste copier coller de chacun des deux fichiers dans l'onglet) puis le 3eme onglet ou je vais mettre deux tableaux ou les lignes seront les memes que ceux des fichiers.

J'ai utilisé le code ci dessous, mais ça ne fait que copier les fichiers dans un autre endroit.


Sub Copie_Fichiers()

Dim Repert1 As String, Repert2 As String

Dim Fichier As String

Repert1 = "d:\Mes Documents\DOC"

Repert2 = "d:\Mes Documents\DOC1"

Fichier = Dir(Repert1)

Do While Fichier <> ""

FileCopy Repert1 & Fichier, Repert2 & Fichier

Fichier = Dir

Loop

End Sub
Merci beaucoup.

2 réponses

userrrqi115 Messages postés 181 Date d'inscription mardi 18 novembre 2008 Statut Membre Dernière intervention 4 février 2011
19 nov. 2009 à 09:51
Hello,
Je me trompe peut-être mais FileCopy sert à copier des fichier
Ce que tu souhaites c'est importer le contenu de 2 fichiers dans un 3eme, non ?
BR

USERRRQI115
Simple user
Great brain
0
vincent78400 Messages postés 2 Date d'inscription mercredi 18 novembre 2009 Statut Membre Dernière intervention 19 novembre 2009
19 nov. 2009 à 11:07
Bonjour,
Oui c'est bien ça, je veux importer le contenu de 2 fichiers dans un 3eme.

Merci.
0