Discussion :

[Yams75]

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,

[riaolle]

Bonjour,

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

[Yams75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[halaster08]

Bonjour,

Pour copier plusieurs plusieurs feuilles dans un nouveau classeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yams75]

Tout fonctionne. Merci beaucoup pour votre aide

[Yams75]

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.