Bonjour à tous ,je vous explique mon problème , j'ai creer un bouton sur un document excel pour enregister ce fameux document sur le bureau en PDF , mon code VBA fonctionne sauf que ça fonctionne sur mon profil et comme nous sommes sur un serveur ou il y a plusieurs personnes le chemin d'accés vers le bureau n'est pas bon , et je séche , voici le code VBA avec lequel ça fonctionne pour moi :
Sub Bouton_Save_Pdf_Rapport_De_Poste()
Dim fichier As String
Date_F = Format(Date, "ddmmmm_")
'adaptez le nom de la feuille
With Worksheets("RAPPORT DE POSTE")
fichier = "\" & Date_F & .Range("B7") & ".pdf"
Dossier = "LeNomdeLaSociete\LaVille\UserData\MonNom et c'est la ou il y le problème je pense\Desktop\Dossier Rapport de Poste"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub