Скачать или смотреть 25 Macros VBA Excel Récupérer le chemin du répertoire du fichier actif et créer pdf

Récupérer le chemin Path du répertoire du fichier actif
créer un fichier pdf avec une feuille

Cours VBA en ligne sur:
http://moodle.formadis.org/course/vie...
Formation à Distance sur http://moodle.formadis.org/

Code VBA de la VIdéo:
' chemin dans le repertoire du fichier actif
'chemin = ThisWorkbook.Path
'chemin = ThisWorkbook.Path & ""\"" & nompdf & "".pdf"""
__________________________________________________________
Dim chemin As String
___________________________________________________
Sub creerPdfFeuilleActive()
'vidéo 25
recupererCheminFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
________________________________________________________
Sub recupererCheminFichier()
'le fichier actuel étant sur mon bureau, nous cherchons à obtenir
'C:\Users\jpb\Desktop
chemin = Application.ThisWorkbook.Path
chemin = chemin & "\monPdf.pdf" 'C:\Users\jpb\Desktop\monPdf.pdf
End Sub