Ouvrir un fichier de format mpp par vba

Résolu

Excel

blalaa Messages postés 171 Statut Membre -
blalaa Messages postés 171 Statut Membre - 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

Afficher la suite

1 réponse

Réponse 1 / 1
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830
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
1. blalaa Messages postés 171 Statut Membre
  
  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
  1. jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830 > blalaa Messages postés 171 Statut Membre
    
    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
2. blalaa Messages postés 171 Statut Membre
  
  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
3. blalaa Messages postés 171 Statut Membre
  
  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

Ouvrir un fichier de format mpp par vba

1 réponse

Discussions similaires

Newsletters