Discussion :

[Jane92]

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

[Kimy_Ire]

Bonjour Jane92,

Je ne comprends pas bien le problème.
La cellule G3 - dans laquelle est placée la valeur souhaitée - appartient-elle à la feuille "Form" ?

Si oui, essaye quelque chose de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrement_pdf()
Dim NumAffaire As String
'NumAffaire = Range("G3").Value
 
'Enregistrer le formulaire en PDF sous le dossier AFFAIRES puis l'ouvrir
With Worksheets("Ma_feuile")
    NumAffaire = .Range("G3").Value
    ChDir "Mon_chemin"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    NumAffaire & "Fiche -analytique.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True
End With
 
End Sub

Sinon précise, avant ta range, la feuille à laquelle elle appartient - comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrement_pdf()
Dim NumAffaire As String
NumAffaire = Worksheets("Mon_autre_feuille").Range("G3").Value
 
'Enregistrer le formulaire en PDF sous le dossier AFFAIRES puis l'ouvrir
With Worksheets("Ma_feuile")
    'NumAffaire = .Range("G3").Value
    ChDir "Mon_chemin"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    NumAffaire & "Fiche -analytique.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Jane92]

Kimy,

Merci pour la réponse super rapide !! J'étais déjà en week-end quand je l'ai reçue mais je n'avais pas pris mon fichier...
Le problème s'est résolu avec ta proposition de cibler la feuille avant la range.
Bien-sûr puisque mon bouton de commande était placé sur le formulaire...

Bravo et encore merci de ton aide !

Cordialement,
Jane