Discussion :

[drthodt]

Bonjour à tous,
voici ma question pour laquelle je n'ai pour le moment aucune piste.

J'ai un classuer Excel dans un dossier; ce classeur a de multiples onglets portant tous un nom.
J'aimerai créer une macro qui en fait me créée un nouveau fichier Excel par onglet,contenant uniquement ce qui se trouve sur cet onglet (le fichier portera si possible le nom de l'onglet en question).
Comment faire ceci?
Merci d'avance pour vos réponses,
M

[neupont]

Salut,
Ce code-là devrait fonctionner :

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
 
Sub CopieOnglets()
 
Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook
 
Dim nouveauFichier As Workbook
 
For Each fSheet In ceFichier.Worksheets
    Workbooks.Add
    Set nouveauFichier = ActiveWorkbook
    fSheet.Copy Before:=nouveauFichier.Sheets(1)
Next
 
ceFichier.Activate
 
End Sub

[neupont]

J'ai oublié une partie de ta demande.
Si tu veux donner le nom de l'onglet au nouveau classeur, il faut l'enregistrer sur le disque dur (variable "chemin" à définir au préalable) :

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
 
Sub CopieOnglets()
 
Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook
 
Dim nouveauFichier As Workbook
 
For Each fSheet In ceFichier.Worksheets
    Workbooks.Add
    Set nouveauFichier = ActiveWorkbook
    fSheet.Copy Before:=nouveauFichier.Sheets(1)
    nouveauFichier.SaveAs Filename:=chemin & "\" & fSheet.Name, FileFormat:=xlNormal

Next
 
ceFichier.Activate
 
End Sub

[drthodt]

Grand merci à toi,
réponse rapide, simple et qui fonctionne parfaitement.
Bonne journée,
M.

[AlainTech]

Tu n'aurais pas oublié le bouton ?

[drthodt]

Bonjour,
@le modérateur: non je n'ai pas oublié le bouton résolu car en fait j'ai un message d'erreur qui apparaît (je n'ai pas eu le temps de poster ça hier).

Le message en question ("Excel a rencontré une erreur et a supprimé une partie de la mise en forme pour éviter d'endommager le classeur.Revérifiez soigneusement votre mise en forme."), avec capture d'écran en pièce jointe du message,merci d'avance si vous pouvez m'aider,
M