bonjour à tous
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
VB:
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 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