Discussion :

[flophijules]

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

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

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

[a_diard]

je crois qu'il manque un antislach après WEEKS

[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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[flophijules]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[hyperion13]

Salut
Ne serait-ce pas plus tôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:\ ?

[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 ?!