Discussion :

[YanLeFlan]

Bonjour à tous,

Malgré plusieurs recherches, je n'arrive pas à exporter plusieurs onglets sélectionnés vers un nouveau classeur Excel que je sauvegarde ensuite vers un répertoire et avec un nom paramétrables.
J'ai utilisé un bout de code que j'arrive à faire tourner lorsqu'il s'agit d'exporter un seul onglet, mais ça ne fonctionne pas dans ce cas-ci.

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
19
20
21
22
 
MoisRapport = Sheets("TDB").Range("H2").Value
 
CheminMois = ThisWorkbook.Path & MoisRapport
If Dir(CheminMois, 16) = "" Then MkDir (CheminMois)
 
NomFichier = ThisWorkbook.Name
 
Domaine = Sheets("TDB").Range("E4").Value
NomIGS = Sheets("TDB").Range("B4").Value
 
[...]
 
Dim NwBk As Workbook
 
Sheets(Array(Right(Domaine, 1) & "1.1", Right(Domaine, 1) & "1.2", Right(Domaine, 1) & "2", Right(Domaine, 1) & "3", _
     Right(Domaine, 1) & "4", Right(Domaine, 1) & "5", Right(Domaine, 1) & "6", Right(Domaine, 1) & "7")).Select
 
Selection.Copy: Set NwBk = ActiveWorkbook
NwBk.SaveAs CheminMois & "\" & NomIGS & " - Annexes " & Domaine & " - " & MoisRapport & ".xlsx", FileFormat:=xlOpenXMLWorkbook: NwBk.Close False
 
Windows(NomFichier).Activate

Pour information, j'utilise 3 domaines (MEM, EER et EES) et les onglets qui se rapportent à chaque domaine se nomment M1.1, M2, ... M7 (pour MEM), R1.1, R2, ... R7 (pour EER), etc.
Lorsque je déroule la macro, elle sélectionne bien les onglets concernés mais sauvegarde ensuite, avec le bon nom et dans le bon répertoire, l'ensemble des onglets de mon fichier de génération...
De plus, il ferme mes deux fichiers (le fichier généré ainsi que mon fichier de génération, sans sauvegarder ce dernier...).

Pourriez-vous me donner quelques indications pour mener à bien ma macro ?

D'avance, je vous remercie.

[Philippe Tulliez]

Bonjour,
La copie d'une ou plusieurs feuilles d'un classeur source vers un classeur cible est relativement simple

Dans les deux exemples ci-dessous, on copie les feuilles du classeur où se trouve le code VBA (ThisWorkbook)

Exemple 1 : Copie des feuilles nommées "Planning", "Question", "Feuil1" vers un nouveau classeur

Code :

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

1
2
3
4
5
Sub T_Copy()
 With ThisWorkbook
 .Sheets(Array("Planning", "Question", "Feuil1")).Copy
 End With
End Sub

Exemple 2 : Copie des feuilles nommées "Planning", "Question", "Feuil1" vers un classeur nommé Toto.xlsx avant la première feuille (le classeur est évidemment ouvert)

Code :

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

1
2
3
4
5
Sub T_Copy()
 With ThisWorkbook
 .Sheets(Array("Planning", "Question", "Feuil1")).Copy Before:=Workbooks("Toto.xlsx").Sheets(1)
 End With
End Sub

[YanLeFlan]

Bonjour.
Et merci pour ces quelques éléments.
Malheureusement, les onglets sélectionnés servent à générer un nouveau fichier (qui n'est donc créé qu'au moment de l'export).
J'ai en effet 90 fichiers Excel à créer ainsi (la génération des fichiers se trouve au sein d'une boucle).
Si vous, ou d'autres, avez de nouvelles propositions, j'en serais ravi !

Edit: Finalement, par curiosité, j'ai quand même adapté mon code avec vos éléments et... cela fonctionne.

Je suis passé directement à .copy (plutôt que .select puis selection.copy) et cela donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim NwBk As Workbook
 
With ThisWorkbook
 .Sheets(Array(Right(Domaine, 1) & "1.1", Right(Domaine, 1) & "1.2", Right(Domaine, 1) & "2", Right(Domaine, 1) & "3", _
     Right(Domaine, 1) & "4", Right(Domaine, 1) & "5", Right(Domaine, 1) & "6", Right(Domaine, 1) & "7")).Copy
End With
 
Set NwBk = ActiveWorkbook
NwBk.SaveAs CheminMois & "\" & NomIGS & " - Annexes " & Domaine & " - " & MoisRapport & ".xlsx", FileFormat:=xlOpenXMLWorkbook: NwBk.Close False
 
Windows(NomFichier).Activate

Merci beaucoup à vous. Effectivement, pour vous paraphraser, c'était relativement simple !

[Philippe Tulliez]

Bonjour,

Malheureusement, les onglets sélectionnés servent à générer un nouveau fichier (qui n'est donc créé qu'au moment de l'export)

C'est ce que montre mon premier exemple

[YanLeFlan]

Certes, oui. Encore eût-il fallu que je le comprisse !

Merci à vous, donc.

[Philippe Tulliez]

Bonjour,

Encore eût-il fallu que je le comprisse !

Il y avait pourtant un titre "Exemple 1 : Copie des feuilles nommées "Planning", "Question", "Feuil1" vers un nouveau classeur"
Mais peut-être eut-il fallut que l'exprimasse autrement