Dupliquer des feuillets avec une macro

Bonjour,

Je dispose d'un fichier central, où il y a de nombreux feuillets. Hebdomadairement, je dois dupliquer chaque feuillet. Donc l'opération est la suivante : je fais un clic droit sur le feuillet Déplacer ou copier puis dans l'emplacement je sélectionne nouveau classeur et je coche créer une copie. Par la suite, j'enregistre le feuillet dans un répertoire spécifique manuellement.
Seulement certains feuillets du fichier central doivent être dupliqués.

Ma question est la suivante : Est-ce qu'il y a une macro capable d'automatiser la copie des feuillets dans de nouveaux classeurs et que la macro permette également d'enregistrer le feuillet situé dans le nouveau classeur dans le répertoire de mon choix ?

Merci d'avance pour votre aide.

Cordialement,

Bonjour,

Citation:

---

Envoyé par Yams75

Ma question est la suivante : Est-ce qu'il y a une macro capable d'automatiser la copie des feuillets dans de nouveaux classeurs et que la macro permette également d'enregistrer le feuillet situé dans le nouveau classeur dans le répertoire de mon choix ?

---

Oui !
Tu décris toutes les actions que tu fais manuellement : utilise, donc, l'enregistreur de macro pour connaître le code associé. Une fois que tu as obtenu le code avec l'enregistreur de macro tu l'adaptes. Si après cela tu bloques encore, reviens vers nous ;)

Bonjour,

Merci pour votre réponse. J'ai utilisé l'enregistreur de macro et cela a fonctionné dans un premier temps. En effet, lorsque je copie un feuillet dans le nouveau classeur, la macro fonctionne parfaitement et elle enregistre même le fichier.

Néanmoins, j'ai essayé l'enregistreur de macro pour qu'il copie plusieurs feuillets dans le nouveau classeur et là j'obtiens l'erreur suivante :

Erreur d'exécution 9: l'indice n'appartient pas à la sélection.

Je vous poste les deux codes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro1() ' ' Macro1 Macro '   ' Sheets("base livraison").Select Sheets("base livraison").Copy Windows("Classeur1").Activate Sheets("cumul pays").Select Sheets("cumul pays").Copy Before:=Workbooks("Classeur2").Sheets(1) Windows("Classeur1").Activate Sheets("indic").Select Sheets("indic").Copy Before:=Workbooks("Classeur2").Sheets(1) ChDir "C:\Users\FRAAL\Downloads" ActiveWorkbook.SaveAs Filename:="C:\Users\FRAAL\Downloads\transpxpr.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro3() ' ' Macro3 Macro '   ' Sheets("indic").Select Sheets("indic").Copy ActiveWorkbook.SaveAs Filename:="C:\Users\FRAAL\Downloads\transpttt.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close End Sub

---

La Macro 1 est celle qui ne fonctionne pas avec plusieurs feuillets dupliqués dans le nouveau classeur et la Macro 3 est celle qui fonctionne quand je duplique un seul feuillet dans le nouveau classeur.

Bonjour,

Pour copier plusieurs plusieurs feuilles dans un nouveau classeur:

Code:

---

Sheets(Array("Sheet2", "Sheet3", "Sheet4")).Copy

---

Tout fonctionne. Merci beaucoup pour votre aide :)

Juste une petite question encore :

Lorsque j'arrive je modifie le code pour mettre la fonction SheetArray puis que j'exécute, tout fonctionne mais à un moment, arrivé à certain feuillet, j'obtiens l'erreur suivante :
erreur d'exécution : '-2147352565 (8002000b)' Dimension spécifiée non valide pour le type de graphique en cours

J'ai regardé le code et ce sont exactement les mêmes lignes que celles qui ont marché et le feuillet est le même que les autres

L'erreur met fin à l'exécution du code.

:cristal:
Peux tu montrer le code en question, ainsi que la ligne qui provoque l'erreur

Bonjour,

C'est bon j'ai trouvé, j'avais juste fait une faute de frappe dans le feuillet en ce qui concerne la dénomination du feuillet par rapport au code ce qui me provoquait l'erreur.

Juste une question : il y a y-il une macro dans Outlook qui me permette d'envoyer directement les fichiers en question ?

Merci beaucoup pour votre aide.

Cordialement,

Citation:

---

Envoyé par Yams75

Juste une question : il y a y-il une macro dans Outlook qui me permette d'envoyer directement les fichiers en question ?

---

Tu peux manipuler outlook via une macro excel.
Jette un oeuil dans la FAQ, ou recherche dans ce forum avec le mot clé mail, tu trouveras de nombreux exemples.

Je vais voir ça merci