Discussion :

[loloiss]

bonjour,

j'utilise une macro excel pour me créer un ppt.

le ppt est correctement créé, mais au moment de sauvegarder, j'ai une erreur: "erreur d'execution -2147467259 (80004005)
presentation.saveas: une erreur s'est produite lors de l'enregistrement"

lors que je met un path local, ça marche, lorsque je met un path reseau partagé, cela ne fonctionne pas.

j'ai tenté de mettre ce path partagé dans les emplacements approuvés, mais cela ne change rien.

la macro est lancée dans un excel qui se trouve dans ce répertoire partagé.


j'utilise:

Code :

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

File_id = ThisWorkbook.Path & "\" & "REPORTING.ppt"

et a la fin de la macro:

Code :

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

1
2
3
4
With Pptdoc
.SaveAs File_id
.Close
End With

j'ai essayé aussi:

Code :

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

PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & "REPORTING.ppt"

les 2 methodes marche pas.

quand je met un:

Code :

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

PptDoc.SaveAs Filename:="d:\REPORTING.ppt"

ça fonctionne, D: étant un disque local.

thisworkbook.path est sur un espace reseau, a l'endroit d'ou est lancé la macro.
il s'agit d'un reseau d'entreprise.

le disque partagé en question apparait dans mon poste de travail sous la lettre X:, avec des répertoires par projets et donc des accés en lecture/ecriture controlés.

la macro excel est lancée depuis un sous repertoire de X: sur lequel j'ai tous les droits

quand je pointe la variable thisworkbook.path dans le debuger, elle pointe bien sur "X:\groupe\repertoire"

je pense que c'est un problème de droits d’accès, a paramètrer dans EXCEL, ou un problème lié au fait que c'est un ppt ouvert par une macro excel:

il faut peut être indiquer a la macro quelle "transmette" les droits a ppt pour ecrire le fichier ?

help !

[pgz]

Bonjour.

Si le pb survient quand tu essaies de sauvegarder sur un serveur, c'est peut-être que le chemin n'est pas bon.
Regarde si tu ne trouves pas ton bonheur dans cette discussion

COrdialement,

PGZ

[Didier Gonard]

Bonjour,

oui, le plus souvent c'est un souci d'écriture du chemin.

Fais les test suivants, un classeur vierge et juste une macro qui le sauvegarde à l'endroit voulu.

tu fais la même chose manuellement.

ca te donneras la certitude de la bonne syntaxe du chemin ou mettra en avant un souci dans un contexte facile à cerner.

cordialement,

Didier

[loloiss]

bonjour,

merci pour vos réponses.

j'ai testé la fonction GETUNC (vu sur le http://access.developpez.com/sources...=reseau#GetUNC avec la fonction fnctGetUNCPath)

et j'ai le même message d'erreur mais le saveAs ne fonctionne pas.

Code :

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

1
2
File_id = fnctGetUNCPath(ThisWorkbook.Path)
PptDoc.SaveAs Filename:=File_id & "\REPORTING.ppt"

fil_id pointe bien un \\chemin correct

filename sort "vide", est-ce normal ?