Impression en PDF

Bonjour à tous,

je suis nul en VBA, j'ai recherché sur le net et fait beaucoup d'essais mais je n'arrive pas à faire ce que je veux, à savoir:

1) enregistrer le classeur au format PDF (ça j'ai trouvé)

Sub IMPRIMEPDF()

NomFichier = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 5)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier

End Sub

le classeur s'enregistre en PDF dans le même dossier que le fichier excel

2) je voudrai que le PDF s'enregistre dans "C:\Users\Robert\Documents\SAUVEGARDE EXCEL"

3) je voudrai que le PDF s'ouvre automatiquement.

Ce n'est pas faute d'avoir essayé, j'ai donc besoin de votre aide.

Je vous remercie par avance

Bonjour,

Essaie ainsi :

Sub IMPRIMEPDF()
Dim strFullName As String
    strFullName = ActiveWorkbook.FullName
    strFullName = Left(strFullName, InStrRev(strFullName, ".") - 1) & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=strFullName, _
            OpenAfterPublish:=True
End Sub

Merci Jean Eric pour une réponse aussi rapide mais le point 2 n'est pas rempli, peut-être n'est-ce pas possible?

2) je voudrai que le PDF s'enregistre dans "C:\Users\Robert\Documents\SAUVEGARDE EXCEL"

l'ouverture du fichier pdf fonctionne très bien.

Pourrais tu m'éclairer.....

Encore merci

Re,

Oups !...

La procédure modifiée en conséquence.

Cdlt.

Public Sub IMPRIMEPDF()
Dim strFilename As String, strFullName As String
Const strFOLDER As String = "C:\Users\Robert\Documents\SAUVEGARDE EXCEL\"
    strFilename = ActiveWorkbook.Name
    strFullName = strFOLDER & Left(strFilename, InStrRev(strFilename, ".") - 1) & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=strFullName, _
            OpenAfterPublish:=True
End Sub

Un grand merci Jean Eric, problème résolu