VBA - Endregistrement classeur excel au même emplacement en pdf

Bonjour,

Vous dites :
enregistrer un macro dans l'onglet affichage.
j'en déduis dons que votre version d'excel est supérieure ou égale à 2007...

Donc.
Vous souhaitez :
enregistrer le classeur excel ouvert - quel qu'il soit- sous format pdf

Question 1 :
- le classeur entier (toutes les feuilles du classeur) ?
- juste la feuille active ?

Pour trouver :
1- l'emplacement du classeur ouvert (s'il a été préalablement enregistré...) :
il faut utiliser :

ThisWorkbook.Path

2- le nom du fichier ouvert :
il faut utiliser :

ThisWorkbook.Name

Lors de l'enregistrement de la feuille active au format pdf, l'enregistreur de macro nous donne le code suivant :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\franck\Desktop\Classeur1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False 

Si nous utilisons les propriétés path et name de ThisWorkbook citées plus haut, le code devient :

Dim Chemin As String, NomFic As String, extens As String, nbcarExt As Byte
Chemin = ThisWorkbook.Path
'extension du fichier :
extens = Split(ThisWorkbook.Name, ".")(1)
'nombre de caractères contenus dans l'extension du fichier :
nbcarExt = Len(extens)
'extraction du nom du fichier, sans l'extension, mais avec le point :
NomFic = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - nbcarExt)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & "\"  & NomFic & "pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Ensuite, pour rendre ce code accessible depuis n'importe quel classeur, regarde ce tuto "Dans le classeur de macros personnelles PERSO.XLS"

Bon courage

Cordialement,
Franck

Merci beaucoup pijaku !

Fonctionne super rien à redire ;)

Bonne fin de journée.

bonjour,

pourriez-vous m'expliquer comment fonctionne la fonction split ? Par ailleurs à quoi sert le (1) en bout de ligne ?

Merci