Enregistrer en pdf au nom d'une cellule

cemoibob a écrit :

cemoibob a écrit :

cemoibob a écrit :

oui c'est vrai je fais ça de suite

merci

il est devenu en doublon par la suite!!

question bête!

je ne trouve pas comment cloturer?

je suis passé là

merci

https://forum.excel-pratique.com/viewtopic.php?p=792078#p792078

cemoibob a écrit :

cemoibob a écrit :

cemoibob a écrit :

oui c'est vrai je fais ça de suite

merci

il est devenu en doublon par la suite!!

question bête!

je ne trouve pas comment cloturer?

Je vois que t'as réussi à le faire

m3ellem1 a écrit :

cemoibob a écrit :

cemoibob a écrit :

il est devenu en doublon par la suite!!

question bête!

je ne trouve pas comment cloturer?

Je vois que t'as réussi à le faire

presque! il me manque un ptit qq chose

voila en fichier joint je voudrais que le fichier generer en pdf soit sauvgarder dans c:\Users\Utilisateur\Desktop\Clients\Devis au nom de" clients qui se trouve en G5 dans feuille2

m3ellem1 a écrit :

Oh sorry il y a un Set qui monque

Sub enregistrerpdf()
Dim nompdf As String
Dim dossier As String
Dim sh As Worksheet
Set sh = Worksheets("feuil2") ' adapte le nom de la feuille
    dossier = ThisWorkbook.Path

    nompdf = dossier & "\" & ActiveSheet.Range("B31") ' adapte le nom de la céllule
    sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Bonjour, petite question

est-ce que ce code marche si mon fichier est ouvert chez un autre utilisateur ?

Merci par avance