Enregistrement feuille sous format pdf pas à la bonne destination

Version imprimable

Bonjour,
j'ai un petit souci pour enregistrer une feuille excel sous format pdf.
j'ai écrit ce code :
Code:

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
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 ?
Quelqu'un pourrait il m'aider à ce sujet, je ne comprends pas pourquoi il ne s'enregistre pas au bon endroit ??
Merci d'avance

14/05/2018, 11h02
a_diard

je crois qu'il manque un antislach après WEEKS
14/05/2018, 11h33
flophijules

merci pour cette précision, mais pour autant je reste avec le message d'erreur "Erreur de synthaxe"
et je n'arrive pas à comprendre d'où viendrait l'erreur mentionnée :calim2:
14/05/2018, 11h53
BENNASR

Bonjour
essayer de baliser ton code (entre #)
peut être avec :

Code:

sDossier = "Z:\Gensms015\BE\PLANNING\TIMESHEETS\WEEKS\"

à adapter le Z (Disque C ou D)

ce n'est qu'une tentative d'aide... je suis débutant aussi :aie:

non plus ...
ça reste toujours en rouge avec une erreur de synthaxe :calim2:

Code:

1
2
3
4
5
6
7
8
9
10
11
sDossier = "P:\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

14/05/2018, 20h12
kiki29

Salut, que contient ta chaine sheets("TEMPS").Range("E2") ? pas de caractères interdits ? Tenter un ChDir "P:" avant ?

Pour baliser ton code voir ce lien : Il est souhaitable de baliser son code

Salut
Ne serait-ce pas plus tôt

Code:

sNom = "TS" & "_" & sheets("TEMPS").Range("E2").value & ".pdf"

Sinon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ExportEnPdf()
Dim sChemin As string, sDossier As string, sNom As String, sFichier As string
 
Worksheets("Feuil1").Activate
 
sDossier = "P:\Gensms015\BE\PLANNING\TIMESHEETS\WEEKS\"
sNom = "TS" & "_" & sheets("TEMPS").Range("E2").value
sFichier = sNom & ".pdf"
sChemin = sDossier & sFichier
 
Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPathFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub

EDIT : votre classeur se trouve où exactement sur P:\ ?

15/05/2018, 09h23
flophijules

Bonjour,
Tout d'abord, je vous remercie tous pour votre aide.
Ce matin, avec le code fourni très gentiment par Hyperion13 : ça enregistre sur mon disque dur (C:) un fichier pdf qui a le même nom que le nom de mon fichier excel... impossible de comprendre où se situe le problème ?!
la valeur E2 de l'onglet TEMPS est alphabétique (repris depuis une textBox). le P:/ est un emplacement réseau..
là je ne sais plus quoi faire ?!:calim2::calim2: