Discussion :

[Jane92]

Bonjour,
J'ai besoin d'aide pour une macro qui fonctionnait bien sous XL-2007.
Depuis que nous avons installé un serveur NAS et la suite Office 2010, j'ai changé le chemin d'enregistrement du fichier, le PDF se créé puis s'ouvre bien mais n'enregistre pas le fichier et me renvoie :

Erreur d'exécution '-2147078887 (80071779)' :
Document non enregistré

Savez-vous d'où vient l'erreur ?
Un grand merci par avance !
Jane

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
21
Sub EnrFProcessusPDF()
Dim Nom As String
Dim Code As String
 
Nom = Range("B3").Value
Code = Range("C39").Value
 
'Enregistrer en PDF dans MANUEL QUALITE\DOCUMENTS ACTIFS puis ouvrir le PDF
Sheets("Fiche Processus").Select
ChDir "\\serveurnas\QUALITE\Documentation\MANUEL QUALITE\DOCUMENTS ACTIFS\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"AMA-" & Code & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True
 
'Enregistrer en PDF dans ORGANISATION\RESSOURCES HUMAINES
Sheets("Fiche Processus").Select
ChDir "\\serveurnas\QUALITE\Ressources humaines\Fiche Processus\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"AMA-" & Code & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub

[parmi]

Bonjour,

Le fait de changer de répertoire (ChDir) n'influe pas sur le chemin que prendra le fichier sauvegardé.
Il se retrouvera probablement dans le dernier répertoire que tu as utilisé pour une sauvegarde.

Code :

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

1
2
3
4
5
''ChDir "\\serveurnas\QUALITE\Documentation\MANUEL QUALITE\DOCUMENTS ACTIFS\"  <<< pas d'influence
Chemin = "\\serveurnas\QUALITE\Documentation\MANUEL QUALITE\DOCUMENTS ACTIFS\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "AMA-" & Code & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True

[Jane92]

Bonjour,

Le fait de changer de répertoire (ChDir) n'influe pas sur le chemin que prendra le fichier sauvegardé.
Il se retrouvera probablement dans le dernier répertoire que tu as utilisé pour une sauvegarde.

Code :

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

1
2
3
4
5
''ChDir "\\serveurnas\QUALITE\Documentation\MANUEL QUALITE\DOCUMENTS ACTIFS\"  <<< pas d'influence
Chemin = "\\serveurnas\QUALITE\Documentation\MANUEL QUALITE\DOCUMENTS ACTIFS\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "AMA-" & Code & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=True

Merci Parmi pour cette réponse qui colle parfaitement !

Bonne journée !
Jane