VBA Copier / coller depuis Excel
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:
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 :
Citation:
Erreur d'exécution : 438
Propriété ou méthode non gérée par cet objet
Merci de votre aide
