Macro VBA dans MS Project pour rapatrier des données d'un fichier Excel

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:

---

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

Ta macro est-elle dans Excel ou dans Project.

Si elle est dans Excel, ta ligne Open est beaucoup trop compliquée et le CreateObject ne sert à rien.

Si elle est dans Project, il faut lui signaler que le classeur est un objet Excel.
Mais de toute façon WorkbooksName n'est pas un objet VBA Excel.
Et Sheet en tant que collection se met au pluriel Sheets.

Ma macro est dans mon MS Project

J'ai réussi à filtrer le fichier Excel après ouverture par ma variable N°DO

Je souhaite maintenant copier la valeur de la cellule en colonne B issu de mon tri. Mais le code plante.

Il pointe sur Range("B65536") et indique Erreur de compilation: Sub ou function non définie

Mon code n'est peut être pas optimum. Si tu penses à quelque choses de meilleur, je suis preneur pour tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Rapatriement_données_DO()   ' Copie valeur à chercher   Dim N°DO As Long N°DO = ActiveCell   ' Ouverture fichier DO dispo en cours Set xl = CreateObject("Excel.Sheet") xl.Application.Workbooks.Open "Umon fichier", ReadOnly:=True xl.Application.Sheets("Totalité").Range("$A$1:$BZ$5988").AutoFilter Field:=1, Criteria1:=N°DO xl.Application.Sheets("Totalité").Range("B2:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Copy

---

Merci par avance
Christophe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Rapatriement_données_DO() Dim WBSource As Excel.Workbook Dim N°DO As Long   N°DO = ActiveCell   ' Ouverture fichier DO dispo en cours Set WBSource = GetObject("Umon fichier") With WBSource.Sheets("Totalité") .Range("$A$1:$BZ$5988").AutoFilter Field:=1, Criteria1:=N°DO .Range("B2", .Cells(.Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1).Copy End With

---

Mais il me semble risqué d'ouvrir un fichier sans indiquer son chemin. C'est supposer que le chemin par défaut d'Excel est toujours le même, donc jouer à la roulette russe.
Il est étonnant aussi que ce nom de fichier n'ai pas d'extension.

Je ne connais pas du tout le VBA de Project mais, perso, je ne ferais pas le transfert par une copie mais simplement par un transfert de valeur à valeur.

Début le début erreur de compilation

Pièce jointe 399686

Tu as bien chargé la bibliothèque d'objets Excel ?