Bonjour à tous,
Merci par avance pour le temps consacré à un petit problème:
L'impression pdf et l'enregistrement se déroule bien mis à part le Numéro d'affaire "NumAffaire" qui n'apparait pas dans le nom de fichier, je n'arrive pas à comprendre d'où vient le problème...
Bon week-end

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim NumAffaire As String
NumAffaire = Range("G3").Value
 
'Enregistrer le formulaire en PDF sous le dossier AFFAIRES puis l'ouvrir
Sheets("Form").Select
ChDir "C:\Documents and Settings\All Users\Documents\AFFAIRES"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    NumAffaire & "Fiche" & " -analytique.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True
 
 
End Sub