macro pour transférer des données

[cabsen]

Bonjour le forum,

Je désire réaliser une macro pour transférer le contenu des cellules d'un fichier vers un autre dont la structure est identique (nombre et nom des feuilles notamment).

Les fichiers comptent 60 feuilles :
• 52 feuilles nommées "sem01" jusqu'à "sem52"
• 8 feuilles nommées de manière unique.

J'ai écrit le code pour mettre à jour mes 8 feuilles "uniques" mais je ne sais pas écrire le code pour exécuter les 52 boucles nécessaires à la mise à jour des 52 feuilles "sem…".

Je souhaite que la macro sélectionne des cellules de la feuilles "sem01" du fichier A et les colle dans la feuille "sem01" du fichier B et procède ainsi pour les 51 feuilles restantes.

D'avance merci pour votre aide

 

[RENAUDER]

Re : macro pour transférer des données

Bonjour,
Un principe de boucle comme cela. Après tu insères le code pour activer les classeurs, etc ...

 For i = 1 To 52
        If i < 10 Then i = "0" & i
        Sheets("Sem" & i).Select
    Next i

 

[herve62]

Re : macro pour transférer des données

Bonjour

Ci-joint un exemple sur 3 feuilles qui récupère le libellé des feuilles, la variable "nom" te serviras ensuite dans ton code lorsque tu feras appel à tes feuilles
A toi d'adapter ...