XL 2016 VBA: Copier des feuilles d'un fichier dans un autre

  • Initiateur de la discussion Initiateur de la discussion Aloha
  • 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 !

Aloha

XLDnaute Accro
Bonsoir,

J‘ai besoin d‘une aide en VBA.
Voici de quoi il s‘agit:
J‘ai 2 fichiers:
* le fichier source (fs): il contient 3 feuilles présentant la même structure.
Leur nom: AB, CD, EF
* le fichier destination (fd): il contient 3 feuilles: AB, EF et Modèle

La tâche: copier, feuille par feuille, les données du fs dans la feuille correspondante dans fd, dans la première ligne libre, en se basant sur la colonne A

Lorsqu‘il n‘y a pas encore dans fd une feuille correspondant à une feuille dans fs (dans le cas en espèce la feuille CD), il faut prendre la feuille Modèle, faire une feuille pour la feuille correpondante de fs, et lui donner le même nom que dans fs.

J‘ai enregistré une macro qui fait l‘opération, mais seulement pour une seule feuille de fs, à condition qu‘elle existe déjà dans fd. J‘ai besoin d‘une macro qui copie d’elle-même autant de feuilles qu‘il y en a dans fs.

Dans une deuxième étape il y a plus d‘un fs et fd et la macro doit copier du bon fs dans le bon fd.

L‘emplacement des fichiers (pour que la macro sache les trouver):
fs: D: Exemple:A copier
fd: D: Exemple:Fichiers destination

J‘espère m‘être exprimé d‘une façon compréhensible.

Bonne nuit
Aloha
 

Pièces jointes

Dernière édition:
Bonjour,

un merci tardif!

J'ai un tout autre problème à présent.
J'ai fait tourner mon code avec succès dans un fichier temporaire.
Par contre, lorsque je le copie et que je le colle dans un module de mon fichier réel, j'ai un message d'erreur et je ne sais quoi faire pour corriger le problème.
Quelqu'un parmi vous aurait-il une idée?

Bonne journée
Aloha
 

Pièces jointes

  • User-defined type not defined.PNG
    User-defined type not defined.PNG
    14.5 KB · Affichages: 32
- 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

Discussions similaires

Retour