Renommage de fichier à partir de valeurs de cellules

Bonjour à tous !

Je me confronte à un problème que je ne parviens pas à résoudre, c'est pourquoi je fais appel à vos connaissances...

Lors d'un clic sur un bouton, je souhaite effectuer une sélection d'une plage de cellules, enregistrer cette plage en PDF et donner un nom à ce fichier PDF à partir de valeurs contenues dans 2 cellules.

J'arrive à effectuer la sélection et l'export en PDF via le code ci-dessous, mais impossible de renommer correctement mon fichier...

Voici le code :

Private Sub CommandButton2_Click()

Dim nom_fichier As String

nom_fichier = Cells(9, 4).Value & Cells(11, 4).Value

ActiveSheet.Range("A1:F40").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & [nom_fichier] & "\.pdf", Quality:=xlQualityStandard,

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

ActiveSheet.Range("A1").Select

End Sub

Merci beaucoup à vous ! :)

Bonjour Patafoin,

Essai ainsi ...

ThisWorkbook.Path & "\" & nom_fichier & ".pdf", Quality:=xlQualityStandard,

ric

Bonjour Ric,

Merci pour ta réponse ! J'obtiens une erreur de syntaxe :

Merci à toi

Bonjour Patafoin,

Il manquait aussi un souligné à la fin de la 2e ligne ...

L'espace et le souligné ... indique que l'on change de ligne au lieu d'avoir une ligne très longue ...

Ceci fonctionne ...

Private Sub CommandButton2_Click()
Dim nom_fichier As String

nom_fichier = Cells(9, 4).Value & Cells(11, 4).Value

ActiveSheet.Range("A1:F40").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & nom_fichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.Goto ActiveSheet.Range("A1"), scroll:=True    '' autre façon qui remplace le "Select"

End Sub

ric

Bonjour Ric,

Cela fonctionne parfaitement, merci beaucoup !

A bientôt !

Bonjour Patafoin,

ric