Bonjour,

Je suis novice sur VBA.

Ce que je souhaite faire:

En sélectionnant un n° de Tâches dans mon MS Project je souhaite ouvrir un fichier Excel, filtrer par ce n° de tâche, coiper certaines données et les rapatrier dans mon MS Project

Voici le début de mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Rapatriement_données_DO()
 
    ' Copie valeur à chercher
 
    Dim N°tâche As Long
    N°tâche = ActiveCell
 
    ' Ouverture fichier N° en cours
    Set xl = CreateObject("Excel.Sheet")
    xl.Application.Workbooks.Open "fichier n°en cours", ReadOnly:=True
    WorkbooksName("fichier n°en cours").Sheet("Totalité").Range("$A$1:$BZ$5988").AutoFilter Field:=1, Criteria1:=N°tâche
 
End Sub
J'ai toujours une erreur après l'ouverture du fichier Excel comme si le code ne comprenait pas que je souhaite maintenant filtrer DANS le fichier Excel

Merci pour votre aide
Christophe