VBA - Endregistrement classeur excel au même emplacement en pdf Résolu/Fermé

Question

Bonjour,

J'aimerais créer une macro pour enregistrer le classeur excel ouvert - quel qu'il soit- sous format pdf à l'emplacement de ce même classeur excel et avec ce même nom 
mais je n'y connais rien en macro sauf enregistrer un macro dans l'onglet affichage.

Quelqu'un peut-il m'aider?

Merci bcp.
Safrancq

pijaku · Accepted Answer

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

D-H · Answer

Merci beaucoup pijaku !

Fonctionne super rien à redire ;)

Bonne fin de journée.

xuorel · Answer

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