Ouvrir un fichier de format mpp par vba [Résolu/Fermé]

Signaler
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
bonjour

je souhaiterai ouvrir un fichier de typ "Document Microsoft Office Project (.mpp)" (A partir d'un classuer EXCEL) pour que je puisse recuperer des données mai jy arrive pas
j'ai essayer par ce code mais le format n'est pas adapté


Sub ChoixFichier()

Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

If Fichier = False Then Exit Sub

Workbooks.Open Filename:=Fichier
End Sub



une autre question

quand jouvre le fichier puis je recuperer des données comme excel ou non ?

merci davance pour vos reponses

1 réponse

Messages postés
29162
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
6 août 2020
2 673
Bonjour,

Une simple recherche sur le net :
'~~> Code to open MPP file in Excel
Sub Sample()
    Dim appProj As MSProject.Application
    Dim aProg As MSProject.Project
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ActiveWorkbook

    '~~> This is the Sheet Where you want the data to be copied
    Set ws = wb.Sheets("Sheet1")

    Set appProj = CreateObject("Msproject.Application")

    '~~> This is a MS Project File. Change path as applicable.
    appProj.FileOpen "C:\MS Project.mpp"

    Set aProg = appProj.ActiveProject

    appProj.Visible = True

    '~~> Now you have the MPP file opened, rest of the code goes here
End Sub

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57055 internautes nous ont dit merci ce mois-ci

Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

merci bcp
je vais le tester

pour ma 2 eme question : quand jouvre le fichier puis je récupérer des données comme excel ou non ?

merci encore
Messages postés
29162
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
6 août 2020
2 673 >
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

Pas "comme" excel... mais oui il est possible de récupérer des infos...
par exemple, boucler sur les différentes task .. un truc du genre
For Each Tsk In aProg.Tasks
   MsgBox Tsk.Name
Next


Enfin.. faut chercher...
Les infos que je te donne.. je les trouve en quelques secondes sur les forums ...
Je n'ai pas de MsProject sous la main pour les tester.
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

Re
jai essayer mais ya une erreur de compilation : type défini par l'utilisateur non défini

Dim appProj As MSProject.Application


je ne sais pas ou est le probleme

merci encore
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

il fallait que jajoute Microsoft Project 12.0 Object Library dans la reference de vba
c bon ca marche tres bien

merci bcp

bonne soirée