VBA - Récupération d'une cellule pour enregistrer un nom de fichier

Version imprimable

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:

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

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:

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:

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 ! :ccool:

Cordialement,
Kimy

29/06/2015, 09h45
Jane92

Résolu !!

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