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