Pouvoir enregistrer une facture avec un code macro

Bonjour

J'ai fait une macro automatique pour pouvoir enregistrer qui est la suivante :

Sub Enregistrer()
'
' Enregistrer Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/Jma/Dropbox/JMAssistante/FACTURES/FACTURATION.pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Mais ce que je voudrais en plus c'est qu'à la place de "FACTURATION" il y est le numéro de facture qui est FA21_08_0056

et que plusieurs personnes ne travaillant pas sur le même ordi puisse le faire car pour l'instant le chemin indiqué c'est uniquement mon ordi est-ce possible ?

Merci d'avance

Salut,

Pour avoir le chemin du fichier, tu peux utiliser :

chemin = ThisWorkbook.Path

Ca enregistrera tes factures là où est situé le fichier Excel.

Ainsi, cela donnerait quelque chose comme ça :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "/FACTURATION_" & numeroFacture & ".pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Avec le numeroFacture le numéro souhaité.

Bibu

Merci pour ta réponse je vais tester ton code, mais pour le numéro de facture il ne faut pas mettre le numéro de la cellule où il se trouve ? et comme le numéro comprend du texte année mois et numéro il me semble qu'il faut quelque chose

Je t'ai donné ce que je pouvais avec les infos que tu m'as donné, si la date et/ou numéro de facture est dans une cellule, il fallait le préciser .. où et quel format ?

Bibu

excuse moi :-)

mon numéro de facture se trouve en G8 et le format est FA21_08_0056

Du coup, ça serait :

nomFacture = Range("G8").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "/" & nomFacture & ".pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Ça ne me mets pas le numéro

je t'envoie mon fichier ça sera peut-être plus explicite que mes écrits

Sur le fichier que tu viens de m'envoyer la date est en G3, pas en G8, c'est volontaire ?

Sinon, utilise ceci :

Sub Enregistrer()

Dim Ws_fac As Worksheet
Set Ws_fac = ThisWorkbook.Worksheets("Facture")

nomFacture = Ws_fac.Range("G3").Value

MsgBox ThisWorkbook.Path

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "/" & nomFacture & ".pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Bibu

En effet à force de faire des essais je me plante dans les cellules :-)

là c'est nickel ça fonctionne

je te remercie beaucoup

Bonne journée