Discussion :

[jouclar]

Bonjour à tous,

Je souhaite depuis MS Project copier/coller des données d'une colonne d'un fichier Excel pour cela j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Moi()
' Macro Moi
' Macro enregistrée le Mar 26/06/12 par Moi.
    Dim pjApp As MSProject.Application
    Dim xlApp As Excel.Application
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Open "D:\Documents and Settings\Moi\Mes documents\1_PROJETS\EN COURS\RESSOURCES\Excel2Project\ExcelResultant.xls", True, False
    Range("B2:B80").Select
    Selection.Copy
    xlApp.Visible = False
    'Set xlApp = Nothing
    Set pjApp = CreateObject("MSProject.Application")
    pjApp.Visible = True
    pjApp.SummaryTasksShow
    pjApp.SelectTaskField Row:=0, Column:="Travail"
    'pjApp.SelectTaskField
    pjApp.Selection.Paste
    'EditPaste
 
End Sub

Je bloque au niveau du collage dans mon fichier MS Project à la ligne pjApp.Selection.Paste.

J'ai le missage suivant :

Erreur d'exécution : 438
Propriété ou méthode non gérée par cet objet

Merci de votre aide

[jeanjean6]

Bonjour,

Est-ce que tu es bien en planif automatique sur tes tâches ?
Si tu veux mettre à jour le Travail de chaque tâche, je te conseil de ne pas faire un copier / coller mais d'utiliser une liste/collection dans laquelle tu stocks tes données, afin de les réutiliser dans le .mpp