Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier plusieurs fichiers sur plusieurs onglets.

  • Initiateur de la discussion Initiateur de la discussion kabanon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

kabanon

Guest
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
 
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 ! 🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
468
Réponses
6
Affichages
888
  • Question Question
Microsoft 365 recherche idée
Réponses
6
Affichages
923
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…