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

**ch.thu** · 26/07/2018, 15h49

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

**Menhir** · 26/07/2018, 16h23

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.

**ch.thu** · 27/07/2018, 11h18

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 :

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

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

**Menhir** · 27/07/2018, 11h35

Code :

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

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.