XL 2016 vba fichier qui ne va pas au chemin indiqué dans le code

[la fifine]

bonjour à tous

Dim sNomFichierPDF As String
   
    sNomFichierPDF = "Feuille d'atelier du " & Format(Feuil1.Range("e8"), "dddd dd mmmm yyyy")
   
    If Len(sNomFichierPDF) > 0 Then
       
            Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=sNomFichierPDF & ".pdf" _
                                                      , Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
     
ChDir _
        "C:\Users\pc pascal\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier"
       
    Range("g6:h6,E8:J8,G5:H7,a18:i23,g32,i32,g34,i34,i41,h36").ClearContents
 
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\pc pascal\Documents\Modèles Office personnalisés\FEUILLE ATELIER.xltm" _
        , FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
        End If

ce code me permet de faire une copie PDF du document et ensuite de sauvegarder le fichier excel
ce qui cloche c'est que le pdf ne va pas dans le chemin indiqué et va se mettre dans "mes documents"
je ne vois pas où est la bourde, le chemin indiqué est pourtant le bon
pour le reste du code ça fonctionne
merci de votre aide

 

[Dranreb]

Bonjour.
Mettez un ChDir au début. Faite le précéder d'un ChDrive "C" au cas ou le CurDir serait sur une autre lettre de lecteur, ou bien précisez le chemin au FileName:=.
Là vous avez exactement juste un ChDir complètement inutile, puisqu'il est précédé d'une instruction où le chemin n'est pas précisé, et par contre suivi d'une où il l'est !

 

[la fifine]

bonjour
merci dranreb j'ai rectifié et ca fonctionne