Enregistrer un onglet en lui donnant un nom

[Jimrcl]

Bonjour le forum,
je souhaite 'exploser' les 94 onglets de mon fichier (1 2 3...94) en les renommant selon le contenu de leur trois cellules A1 A2 A3 comme ci dessous: 'A1-A2-A3'
je doit avoir au finale 94 fichiers excel tous différents.
Quelqu'un a t'il une idée de ce que sera le code?
je suis bloqué là...
Est ce possible?
Merci

 

[ERIC S]

Bonjour

une possibilité (enregistre sous le répertoire du fichier)

Sub essai()
Dim feuille As Worksheet, nom As String, répertoire As String
répertoire = ThisWorkbook.Path & '\\'
For Each feuille In Worksheets
Sheets.Activate
nom = Range('A1').Value & '-' & Range('A2').Value & '-' & Range('A3').Value & '.xls'
ActiveSheet.SaveAs Filename:=répertoire & nom
Next
End Sub

A essayer et adapter

A+

 

[dg62]

Bonjour JimRCL, EricS


J'ai compris le problème comme cela

Sub Sauve()
Dim s As Worksheet
Dim nom As String

For Each s In Worksheets
s.Activate
nom = Range('A1').Value & '-' & Range('A2').Value & '-' & Range('A3').Value

    ActiveWorkbook.SaveAs Filename:='G:\\archives\\' & nom, FileFormat:= _
        xlExcel4, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
        , CreateBackup:=False
Next
End Sub

les 93 feuilles seront bien sauvegardées séparément.

Message édité par: dg62, à: 25/04/2006 11:20