[VBA-W]Insérer un planning MSP [Résolu]

[dev81]

Bonjour,
Encore merci pour tous ces renseignement mais j'ai pas fini.
Je souhaiterai savoir si c'est possible d'abord, d'insérer un planning MSP dans word?
et si oui comment?
merci

[dadavyvy]

MSP = Microsoft Project?

Si oui, tu peux soit insérer comme un OLEObject (MSProject.Project.9 = Project 2000):

Code :

1
2
3
4
ThisDocument.InlineShapes.AddOLEObject _
ClassType:="MSProject.Project.9", _
FileName:="c:\chemin\planning.mpp", LinkToFile:=False, _
DisplayAsIcon:=False, Range:=Selection.Range

soit le copier comme une image :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub copyProjectAsImageToWord()
    Dim mspApp
 
    ' Détails des options, cf. aide de MSProject sur la méthode EditCopyPicture
    pjCopyPictureKeepRange = 1
    pjCopyPictureScale = 2
    pjCopyPictureScaleWRatio = 3
    pjCopyPictureShowOptions = 0
    pjCopyPictureTimescale = 4
    pjCopyPictureTruncate = 5
 
    Set mspApp = CreateObject("MSProject.Application")
    Call mspApp.FileOpen(Name:="c:\chemin\planning.mpp", ReadOnly:=True, FormatID:="MSProject.MPP")
    mspApp.SelectSheet
    mspApp.EditCopyPicture Object:=False, ForPrinter:=0, SelectedRows:=1, _
FromDate:=mspApp.ActiveProject.LevelFromDate, ToDate:=mspApp.ActiveProject.LevelToDate, _
ScaleOption:=pjCopyPictureTimescale
    Selection.Paste
    mspApp.Quit
    Set mspApp = Nothing
End Sub

A customiser en regardant la fonction EditCopyPicture dans MSProject. Attention : le lien fourni concerne Project2003. Pour Project2000, pas de paramètres MaxImageHeight, MaxImageWidth, MeasurementUnits.

Rem. Avec le premier code, il est difficile de redimensionner la plage visible du planning. Avec le second code, il y aura des soucis si MSProject ou le planning est déjà ouvert, car MSProject (du moins, chez moi) n'accepte qu'une seule instance de l'application, donc le CreateObject équivaut à un GetObject si MSProject est déjà ouvert, et mspApp.Quit fermera l'appli...

[dev81]

OK merci bien, je teste et je dis