Nom de fichier=Nom de l'onglet

Bonsoir Gex1403,

Essayes la macro suivante.

Sub Enregistrement()
Dim Nom As String, Fichier As String
'Nom à donner au nouveau classeur
Nom = ActiveSheet.Name
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fichier = ThisWorkbook.Path & '\\' & Nom
'Création d'un classeur avec la feuille active
ActiveSheet.Copy
'Enregistrement du classeur créé
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
'Fermeture du nouveau classeur
ActiveWorkbook.Close
End Sub

Le nouveau classeur est enregistré dans le répertoire du classeur source mais le chemin peut-être modifié.

Cordialement

Bernard

Bonsoir Gex, bonsoir le forum,

Je te propose la macro suivante (si j'ai bien compris ton problème). Il te faut juste adapter le chemin d'accès chem :

Sub Macro1()
Dim chem As String

chem = 'C:\\\\\\\\Documents and Settings\\\\\\\\Gex\\\\\\\\Mes documents\\\\\\\\Sauvegardes\\\\\\\\' 'à adapter à ton cas

ActiveSheet.Move
ActiveWorkbook.SaveAs (chem & ActiveSheet.Name)

End Sub

Cliquez pour agrandir...

Édition :

Bou du con Bernard, on s'est croisés...

Message édité par: Robert, à: 06/02/2006 23:38

Salut, le forum
Bernard et roro
Merci pour vos propositions, je vais tester et je vous tiens au courant

@micalement

Re Bon ca y est j'ai choisi

Qui est le gagnant????

Robert, j'ai juste rajouté la fermeture du nouveau fichier

Merci Robert et Bernard

@micalement et encore merci a tous les 2