re,
à tester,
affiche la fenêtre "Exécution" et dit-moi ce que Debug.Print nom
aura donné
Sub Bouton1_Clic()
Dim nom As String
Dim dossier As String
'emplacement a derterminée
If MsgBox("Êtes-vous certain de vouloir générer ce PDF ?", vbYesNo, _
"Demande de confirmation") <> vbYes Then Exit Sub
Sheets("FACT1").Select
dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B18").Value & "-" & Range("A23").Value & "-" & Range("A24").Value & "-" & Range("H11").Value
Debug.Print nom
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nom, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub