Nom du fichier par apport a une cellule

[Bens7]

Bonjour a tous !
Voila j'ai un fichier pour faire mes factures et dans la cellule A1 le numero de facture est 14498 par exemple
comment faire pour sauvegarder directement le fichier sous la forme 14498.xlsx sans a chaque fois faire la manip : enregistrer sous >blababla .... ?
Ha oui j'oublier je n;est jamais fait un macro de toute ma vie ... donc si macro m'expliquer exactement (dans le detail) la marche a suivre
MERCI A TOUS !

 

[Compte Supprimé 979]

Re : Nom du fichier par apport a une cellule

Bonjour Bens7

Sujet maintes fois abordé, il suffit de faire une petite recherche

 

[job75]

Re : Nom du fichier par apport a une cellule

Bonjour Bens7, salut Bruno 🙂

Bien d'accord Bruno mais on va quand même être sympa en cette période de fêtes.

Clic droit sur l'onglet et Visualiser le code, puis y coller cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'se lance par double-clic sur A1
If Target.Address <> "$A$1" Then Exit Sub
If Target.Text = "" Then Exit Sub
Dim fichier As String
Cancel = True
fichier = Target.Text & ".xlsx"
If MsgBox("Voulez-vous créer le fichier '" & fichier & "' ?", 4) = 7 Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Workbooks(fichier).Close False 'si le fichier existe et est ouvert
With ThisWorkbook
  .SaveAs .Path & "\" & fichier, 51 'chemin d'accès à adapter éventuellement
  If Workbooks.Count = 1 Then Application.Quit Else .Close 'facultatif
End With
End Sub

A cause de l'extension .xslx la macro ne fonctionne que sur Excel 2007/2010.

Tous mes voeux à tous pour l'année 2013.

A+