Discussion :

[mikolirto]

bonjour,
je recherche une solution pour pouvoir depuis un classeur avec plusieurs onglets
me retrouver avec un fichier par onglets donc decompiler le classeur.
j 'ai trouvé cette formule sur internet mais je ne comprends pas pourquoi elle ne fonctionne pas. vous pourrez peut etre m'aider.
merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub saveOnglet()
Dim ws
Dim newWk As Workbook
 
    For Each ws In Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub

[Fvandermeulen]

Salut,
Essaie comme ceci, c'est à dire en indiquant que tu regarde chaque feuille du classeur actuel (ThisWorkbook)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub saveOnglet()
Dim ws As Worksheet
Dim newWk As Workbook
 
    For Each ws In ThisWorkbook.Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs (ws.Name & ".xls")
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub

A+

P.S. Attention qu'il sauve dans le dossier par défaut de ton PC...

[mikolirto]

En fait la fonction ma lance bien l enregistrement mais me mets pas le nom
et bloque a partir du deuxième onglet il veut écraser le premier.
A partir de la je comprends plus

[mikolirto]

en fait cela fonctionne.
merci pour la reponse
Je voulais savoir si c est possible de lui dire de sauvegarder dans le fichier source

[Pierre Fauconnier]

...
Je voulais savoir si c est possible de lui dire de sauvegarder dans le fichier source

[mikolirto]

Bonjour,
en fait, voila ma fonction permet de sauvegarder dans les documents par defaut. j'aurais voulus savoir si c'est possible dans la fonction de rajouter un chemin qui stipule me chemin d'enregistrement.
Merci d'avance.

[Pierre Fauconnier]

Il te suffit d'ajouter le chemin dans le nom du fichier, par variable ou en dur

Par exemple

Code :

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

newWk.SaveAs "c:\sauvegarde\" & ws.Name & ".xls"

Les parenthèses ne sont pas nécessaires dans ce contexte

Par variable pour sauver dans le dossier du classeur source, sur base du code donnée par fvandermeulen

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
Sub saveOnglet()
Dim ws As Worksheet
Dim newWk As Workbook
Dim Chemin as string
 
    chemin = thisworkbook.path 
    For Each ws In ThisWorkbook.Worksheets
        Set newWk = Workbooks.Add(xlWBATWorksheet)
        ws.Copy newWk.Sheets(1)
        newWk.SaveAs chemin & "\" & ws.Name & ".xls"
        newWk.Close
        Set newWk = Nothing
    Next ws
 
End Sub