Copier plusieurs fichiers sur plusieurs onglets.

[kabanon]

Bonjour à tous


Merci d'avance de jeter un coup d'oeil a mon sujet. Et merci pour les 2/3 sujets sur lesquels vous m'avez tous deja depanné. C'est comme au restaurant, si c'est bon et convivial on y retourne.
Donc aillant pris gout au VBA (a ma modeste echelle), j'essaiee maintenant des trucs dont celui la:

J'essaie de copier sur un seul et meme fichier d'autres fichiers qui eux sont sur l'intranet (chaque fichier copié, l'est dans un onglet dédié)

Par exemple:
Ce lien n'existe plus correspond a un fichier que je voudrais ouvrir sur mon onglet Tartempion.

Ce lien n'existe plus correspond a un fichier que je voudrais ouvrir sur mon onglet Youplaboum

etc etc sur une dizaine de fichier donc d'onglet.

Quelq'un pourrait il m'indiquer par ou commencer ?

Pour le moment je n'arrive a ouvrir qu'un fichiers par macro

Merci beaucoup par avance

 

[Bebere]

Re : Copier plusieurs fichiers sur plusieurs onglets.

bonjour Kabanon
de mon côté les liens ne donne rien
met plutôt un fichier
à bientôt

 

[kabanon]

Re : Copier plusieurs fichiers sur plusieurs onglets.

Bebere, ce ne sont pas des liens existants, c'est juste a titre d'exemple.

 

[Bebere]

Re : Copier plusieurs fichiers sur plusieurs onglets.

Kakabon
voilà un code qui liste les fichiers d'un dossier
à bientôt

 

[kabanon]

Re : Copier plusieurs fichiers sur plusieurs onglets.

Bebere merci mais..

je pense m'etre mal exprimé.. je cherche en fait un truc qui me permettrait de fusionner des fichier excel (un onglet chacun) dans un fichier excel . Chaque fichier allant dans un onglet dedié et non pas une macro qui listerait des fichiers dans un repertoire.

mais merci qd meme ! 🙂

 

[Bebere]

Re : Copier plusieurs fichiers sur plusieurs onglets.

bonjour Kakanon
donne nous quelque chose et nous te rendront quelque chose
cela s'appelle entraide
à bientôt

 

[kabanon]

Re : Copier plusieurs fichiers sur plusieurs onglets.

Bebere,

j'ai trouvé !!

Application.DisplayAlerts = False

'Fichier Tartempion
Workbooks.Open ("http://intranetr/produits/tartempion")
Range("A8:i200").Select
Selection.Copy

Windows("fichier final.xls").Activate
Sheets("Tartempion").Select
Range("A3").Select
ActiveSheet.Paste
Windows("tartempion").Activate
ActiveWindow.Close

'Fichier Tartempion 2
Workbooks.Open ("http://intranetr/produits/tartempion2")
Range("A8:i200").Select
Selection.Copy

Windows("fichier final.xls").Activate
Sheets("Tartempion2").Select
Range("A3").Select
ActiveSheet.Paste
Windows("tartempion2").Activate
ActiveWindow.Close



en creant/nommant autant d'onglet que de fichier a importer et voila
Je pense qu'il y a plus simple mais ca fonctionne

merci bebere