Discussion :

[paulinetess]

Bonjour,
Je voudrais pouvoir faire une macro qui me permet d'enregistrer sous en PDF un fichier mais je voudrai que le nom du fichier pdf soit dynamique, je veux dire, qu'il garde le nom du fichier excel dont il est issu.

donc après FileName:= je ne sais pas quoi mettre pour juste avoir le nom du classeur.

Merci par avance pour votre aide

[Limace_hurlante]

Bonsoir, cela peut peut-être t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ExportVersPdf()
 
Dim nomDuFichier As String, tailleDuNom As Long
'on récupere le nom complet de ton ficher avec le nom du chemin (c:\mesDocument\etc ...)
nomDuFichier = Workbooks(ActiveWorkbook.Name).FullName
'on récupere la longeur du nom du fichier
tailleDuNom = Len(nomDuFichier)
 
'si ton fichier à une extention de trois caractères on les retires
If Left(Right(nomDuFichier, 4), 1) = "." Then
    nomDuFichier = Left(nomDuFichier, tailleDuNom - 4)
'si ton fichier à une extention de quatre caractères on les retires
ElseIf Left(Right(nomDuFichier, 5), 1) = "." Then
    nomDuFichier = Left(nomDuFichier, tailleDuNom - 5)
End If
 
'ON rajoute l'extention Pdf et le tour est joué ;-)
nomDuFichier = nomDuFichier & ".pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=  nomDuFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= True
End Sub

Zac