Enregistrement de fichier

[fileofish]

Bonjour à tous
j'espère que vous pourrez m'aider
Voilà mon probleme:

a/Dans un fichier excel nommé "essai enregistrement pour envoi" j'ai par exemple 3 onglets dont un seul qui m'intéresse nommé (Feuil1)
Chemin du fichier : C:\fil\[essai enregistrement pour envoi].xls


b/ Ce que je voudrais c'est qu'en appuyant sur un bouton une copie de la Feuil1 exclusivement se créée dans un nouveau classeur et s'enregistre sous le même nom que le fichier d'origine suivit de aa
C:\fil\[essai enregistrement pour envoi_aa].xls

J'ai un problème dans le fichier joint
si quelqu'un pouvez m'aider ca serait genial

Merci d'avance
Philippe

 

[fileofish]

Re : Enregistrement de fichier

si ma demande est trop confuse ou pas assez claire, n'hésitez pas à me le dire je reformulerai mon problème
Encore merci

 

[tanerbus]

Re : Enregistrement de fichier

bonjour

Sub essaienreg2()

Feuil1.Select


[b1] = ActiveWorkbook.Name
Range("B2").Select
ActiveCell.FormulaR1C1 = "=LEFT(R[-1]C,LEN(R[-1]C)-4)&""_aa.xls"""

ActiveSheet.SaveAs Filename:=ActiveWorkbook.Path & "\" & [b2]

End Sub

 

[fileofish]

Re : Enregistrement de fichier

Merci Tabernus
ca marche je n'aurais plus qu'à masquer ou supprimer les feuilles inutiles
un grand merci
philippe