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

Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
26513
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 octobre 2019
1829
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 63061 internautes nous ont dit merci ce mois-ci

blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
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
jordane45
Messages postés
26513
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
15 octobre 2019
1829 > blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
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.
blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
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
blalaa
Messages postés
161
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
10 octobre 2019
-
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
Commenter la réponse de jordane45