Discussion :

[maxeur]

Bonjour à tous

J'aurais besoin d'un petit coup de main si c'est possible

Voila je dois essayer d'ouvrir un nouveau fichier ms project mais lorsque je fae déclare ma variable on me di que le type que l'utilisateur à défini n'est pas définit

voici le code

Code :

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

1
2
3
4
5
Dim objProject As New MSProject.Application
          Set objProject = CreateObject("MsProject.Application")
          objProject.Workbooks.Open ("Me.selected_file_finish")
 
           objProject.FileSaveAs Name:=Me.selected_file_finish, FormatID:="MSProject.MPP.8"

Donc voila un peu comment j'ai créé mon code je n'ai pas mis le reste car c'est superflu et de plus il fonctionne

De plus je voulais savoir à quoi correspondait le formatID

Je suis allé dans outils références pour utiliser les libraries de ms project et maintenant le fichier est introuvable ma fonction ne crée pas mon fichier

Si quelqu'un aurait un petite idée de pourquoi cela ne fonctionne pas j'apprécierai énormément son aide

merci d'avance

[Tofalu]

Il te manque surement la référence Microsoft MS Project. ajoute là

[maxeur]

je l'ai ajouté mais rien à faire je tourne en boucle soit j'ai l'erreur que j'ai dit précédemment qui s'affiche
type non défini en quelque sorte soit j'ai un fichier introuvable je ne sai pas du tout comment faire
car la librairie c'est sur qu'elle y soit

[Tofalu]

Tu essaye d'ouvrir un fichier nommé

Code :

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

"Me.selected_file_finish"

Je serais étonné que ton fichier se nomme réellement comme cela.

Tu ne penses pas que la syntaxe correcte serait :

Code :

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

objProject.Workbooks.Open (Me.selected_file_finish)

[maxeur]

merci pour ta réponse mais en fait c'est toujours pareil mais le probleme c'est que des que je met la librairie en place elle s'enleve une fois que j'ai fai mon code je ne comprend pas trés bien

Merci quand meme je crois que je vais arréter pour aujourd'hui rien ne vaut d'arriver l'esprit frais sur ce genre d'affaire