Bonjour,
j'ai un petit souci pour enregistrer une feuille excel sous format pdf.
j'ai écrit ce code :
le nom du filename est bon, mais quand j'exécute, le fichier est bien créé au bon nom mais pas au bon endroit (sdossier). il est enregistré sur le C: et non pas sur le réseau à l'adresse que j'ai nommée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim sDossier As String, sNom As String sDossier = "\\Gensms015\BE\PLANNING\TIMESHEETS\WEEKS" sNom = "TS" & "_" & sheets("TEMPS").Range("E2") & ".pdf" Application.ScreenUpdating = False Feuil1.Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sDossier&sNom, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Feuil1.Activate Application.ScreenUpdating = False End Sub
Quelqu'un pourrait il m'aider à ce sujet, je ne comprends pas pourquoi il ne s'enregistre pas au bon endroit ??
Merci d'avance
Partager