Enregistrer un onglet en lui donnant un nom

Jimrcl · 25 Avril 2006

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 · 25 Avril 2006

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 · 25 Avril 2006

Bonjour JimRCL, EricS

J'ai compris le problème comme cela

Code:

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

Enregistrer un onglet en lui donnant un nom

Jimrcl

XLDnaute Occasionnel

ERIC S

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

Discussions similaires