Ouvrir un fichier de format mpp par vba

Résolu/Fermé
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - Modifié le 18 juin 2019 à 16:28
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 18 juin 2019 à 16:54
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
A voir également:

1 réponse

jordane45 Messages postés 38042 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 27 février 2024 4 622
18 juin 2019 à 16:28
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
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
18 juin 2019 à 16:30
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
0
jordane45 Messages postés 38042 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 27 février 2024 4 622 > blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
18 juin 2019 à 16:38
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.
0
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
18 juin 2019 à 16:37
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
0
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
18 juin 2019 à 16:54
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
0