Création d'un code VBA pour automatiser le remplissage d'un fichier à partir d'autres fichiers

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je souhaite remplir automatiquement un fichier excel à partir d'autres. Jusque la rien de compliqué, cependant je souhaite que le chemin d’accès écrit dans mon code dépende d'une cellule qui contient elle même une date. Le code entré directement dans la cellule fonctionne, cependant je cherche à le faire passer sous une fonction en VBA pour éviter de faire des copier/coller et modifier au fur et à mesure.

Je vous joins un screenshot en espérant que ce soit assez explicite

Pièce jointe 451938

J'ai écrit pour le moment le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Function Manu2(DAT,EQPT) Dim DAT as string 'DAT correspond à la date sous le format 2019_02_18 Dim EQPT as string 'EQPT correspond à l'équipement de travail (Broyeur G2,Tapis roulés,...) If RECHERCHEV(IndirectEx("'J:\MATERIELS\Test\Essais rapports journaliers\[DAT Rapport journalier.xlsm]Numérique 2019'!EQPT");IndirectEx("'J:\MATERIELS\Test\Essais rapports journaliers\[DAT Rapport journalier.xlsm]Numérique 2019'!E$16:$I$25");2;)="Maintenance" Then Manu2(DAT,EQPT)=RECHERCHEV(IndirectEx("'J:\MATERIELS\Test\Essais rapports journaliers\[DAT Rapport journalier.xlsm]Numérique 2019'!EQPT");IndirectEx("'J:\MATERIELS\Test\Essais rapports journaliers\[DAT Rapport journalier.xlsm]Numérique 2019'!$E$16:$I$25");3;) Else Manu2(DAT,EQPT)="" End Function
L’algorithme est plutôt simple :
Si en recherchant dans le tableau la variable EQPT apparaît et que la 2ème colonne contient "Maintenance" alors afficher la durée.

J'utilise IndirectEx pour prendre les données lorsque le rapport journalier est fermé.

J'espère avoir été suffisamment clair, je suis novice dans le VBA donc je pense qu'il doit y avoir beaucoup de faute.

Par avance, merci pour votre aide.

04/03/2019, 08h48
Manusco

Quelqu'un pour m'aider svp?

La formule indique #REF donc je pense qu'il y a un soucis dans le répertoire.

Merci
04/03/2019, 09h46
Philippe Tulliez
Bonjour,
J'ai juste parcouru en vitesse la lecture de ton code
Il est impossible au VBA d'interpréter le code des lignes 8 et 10. En effet RECHERCHEV est inconnu pour lui.
Les fonctions natives d'excel peuvent être exécutées avec la propriété WorksheetFunction de l'objet Application suivi du nom de la fonction (en anglais) et suivant la même syntaxe qu'avec Excel soit en utilisant la fonction Evaluate mais en écrivant la formule en anglais.

Exemple de l'utilisation de la propriété WorksheetFunction
Code:

1 2 3 4 5 Sub t() Dim fx As WorksheetFunction Set fx = Application.WorksheetFunction MsgBox fx.Match("Alias", Range("db_Header"), 0) End Sub
Même exemple avec la fonction Evaluate
Code:

1 2 3 Sub t() MsgBox Evaluate("=Match(""Alias"", db_Header, 0)") End Sub
Pour les exemples, db_Header est une plage de cellules nommée

Bonjour,

Ma macro est devenue :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Manu2(DAT, EQPT)
 
Dim DAT As String 'DAT correpond à la date sous le format 2019_02_18
Dim EQPT As String 'EQPT correpond à l'équipement de travail (Broyeur G2,Tapis roulés,...)
 
 
Dim fx As WorksheetFunction
Set fx = Application.WorksheetFunction
 
 
If fx.VLookup((Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("EQPT")), (Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("E$16:$I$25")), 2, False) = "Maintenance" Then
 
Manu2(DAT, EQPT) = fx.VLookup((Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("EQPT")), (Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("E$16:$I$25")), 2, False)
 
Else: Manu2(DAT, EQPT) = ""
 
End Function

Mais cela ne marche toujours pas.
Quand je tape =manu2("2019_02_18";"Broyeur 1152"), je me retrouve dans le debogueur avec le message "déclaration existante dans la portée en cours".

Merci pour votre aide.

Bonjour,

Remplace
Code:

1 2 3 4 Function Manu2(DAT, EQPT) Dim DAT As String 'DAT correpond à la date sous le format 2019_02_18 Dim EQPT As String 'EQPT correpond à l'équipement de travail (Broyeur G2,Tapis roulés,...)
Par
Code:

1 2 3 Function Manu2(DAT As String, EQPT As String) 'DAT correpond à la date sous le format 2019_02_18 'EQPT correpond à l'équipement de travail (Broyeur G2,Tapis roulés,...)
En effet, DAT et EQPT sont déclarés directement dans la déclaration de la fonction, tu ne dois donc pas les re-déclarer via Dim dans le corps de la fonction.

Merci le défaut est enlevé, malheureusement ça ne marche toujours pas, je pense que c'est un problème de répertoire...
Dans la cellule est affiché "#VALEUR!"

Je n'ai trouvé aucun sujet qui traitait de mettre en variable une partie d'un chemin d’accès à un fichier.

Code actuel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Manu2(DAT As String, EQPT As String)
 
'DAT correpond à la date sous le format 2019_02_18
'EQPT correpond à l'équipement de travail (Broyeur G2,Tapis roulés,...)
 
 
Dim fx As WorksheetFunction
Set fx = Application.WorksheetFunction
 
 
If fx.VLookup((Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("EQPT")), (Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("E$16:$I$25")), 2, False) = "Maintenance" Then
 
Manu2(DAT, EQPT) = fx.VLookup((Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("EQPT")), (Workbooks("J:\MATERIELS\Test\Essais rapports journaliers\DAT Rapport journalier.xlsm").Sheets("Numérique 2019").Range("E$16:$I$25")), 2, False)
 
Else: Manu2(DAT, EQPT) = ""
End If
 
End Function

Bonjour,
Le vba ne peux pas te renvoyer le résultat d'une formule si le classeur lié est fermé.
Il faut ouvrir ce classeur pour que cela fonctionne

Exemple si le classeur nommé 1901 - TimeSheet Paul.xlsb est fermé la ligne 4 renverra une erreur alors que si celui-ci est ouvert, les deux syntaxes peuvent être utilisée (attention que la cellule C2 dans mon exemple est situé dans la feuille active (Je n'ai pas mis la parentalité complète pour rendre la lecture de la formule plus simple)
Code:

1 2 3 4 5 Sub t() Const Syntaxe_1 As String = "=VLOOKUP(C2,'[1901 - TimeSheet Paul.xlsb]Paul'!C$2:G$39,5,FALSE)" Const Syntaxe_2 As String = "=VLOOKUP(C2,'\\VBOXSVR\Partage\MagicOffice\Présentation\TimeSheet\Data\[1901 - TimeSheet Paul.xlsb]Paul'!C$2:G$39,5,FALSE)" MsgBox Evaluate(Syntaxe_2) End Sub