Création onglet et fichier à partir de valeur

[Manu]

Bonjour,

Je cherche à créer une macro capable de copier une feuille nommée 13.03.05 (valeur d'une cellule de mon onglet de base) dans un nouveau fichier aussi nommé 13.03.05, dans le dossier C:\\DIVERS.

Merci d'avance à tous

Manu [file name=File_01.zip size=2212]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/File_01.zip[/file]

 

[MichelXld]

bonjour Manu

tu peux tester dans ton classeur

Sub copieFeuille()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:='C:\\DIVERS\\' & Format(Range('C8'), 'DD.MM.YY') & '.xls'
ActiveSheet.Name = Format(Range('C8'), 'DD.MM.YY')

'fermer le nouveau classeur
ActiveWorkbook.Close True
End Sub

bon apres midi
MichelXld

 

[Manu]

Michel.

J'ai adapté à mes exemples et fonctionne tiptop.

Merci beaucoup et longue vie à ED.

Manu

:side:

Pour le fun voici la meilleure enchère trouvée sur le net: