Nom de fichier=Nom de l'onglet

[gex1403]

Bonsoir le forum

Quelqu'un saurait il comment faire pour exporter un onglet dans un dossier , et attribuer au nouveau classeur ainsi crée le nom de l'onglet, c pas clair???

J'ai un fichier de 20 feuilles, Feuil1 a Feuil20,je clic sur l'onglet Feuil2 puis deplacer ou copier, dans mon cas, deplacer, cela me crée un nouveau classeur, que j'enregistre dans un dossier (sauvegardes), comment donner au nouveau classeur le nom de Feuil2???
Merci d'avance
@micalement

 

[CBernardT]

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

 

[Robert]

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

Édition :

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

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

 

[gex1403]

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

@micalement

 

[gex1403]

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