enregistrer sous a l' aide d'une macro

[PHILIPPE]

je souhaite enregistre a l' aide d'une macro un fichier de facturation
le probleme que je rencontre est de metre en nom de fichier le numero
de facture contenu dans une cellule

 

[@Christophe@]

Bonjour Forum

Tous d'abord Philippe, si tu veux une réponse, un petit Bonjour, Merci, ... est le bien venu.

Pour ton problème, voici ce que tu dois utiliser:

Dim NomFichier as string

NomFichier = "Facture N°" & Cells(12, 1) 'Entre parenthès 12 correspond a ligne et 1 a collone

ActiveWorkbook.SaveAs FileName:=NomFichier

Voila

@Christophe@

 

[zon]

Bonsoir Philippe, un petit tour du côté de la charte serait le bienvenue mais bon voici le code à placer dans this worbooK:

Il faut qu'une cellule contienne ton numero de facture, par exemple
A1 = cells(1,1) (qui est numerique ou pas

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nomfich As String
Dim reponse As String
Dim compteur As Long

compteur = CLng(Cells(1, 1)) ''''''''mise en numerique pour incrementer le N° de facture
Cells(1, 1) = CStr(compteur + 1)'''''''mise en chaine de caractere pour nom de fichier

''''''''''ActiveWorkbook.Save à mettre si tu veux enregistrer ta facture sous le même nom
nomfich = "c:\documents\facture\" & Sheets("feuil1").Cells(1, 1)
ActiveWorkbook.SaveAs Filename:=nomfich
MsgBox "VOTRE FICHIER A ETE BIEN ENREGISTRE SOUS" & " " & nomfich, vbOKOnly, "ENREGISTREMENT EFFECTUE"

End Sub



Voilà un exemple à adapter, qui contient peut etre des erreurs car le mien a beaucoup plus de conditions... et j'ai pas testé celui là..


A++++

 

[PHILIPPE]

jen te remerci pour ta reponse aussi rapide
j'essaye tout de suite
merci a une prochaine fois

 

[PHILIPPE]

SALUT
Merci de ton aide tes renseignements fontionne parfaitement
pour mon besoin
A+