Comment concaténer des éléments à ma formule ?

massol · 30 Octobre 2018

Bonjour,

Dans la cellule B4 de mon fichier, je récupère une valeur issue d'un fichier EXCEL fermé (fichier "synthese.xls"). Pour cela j'utilise la commande suivante :

='C:\Users\jmassol\Desktop\recup\[synthese.xls]Feuil1'!$B2

Le problème c'est qu'en fait la donnée à récupérer (et donc le fichier "synthèse.xls") se situe dans le dossier 'C:\Users\jmassol\Desktop\recup\UB4840'.

Le dernier terme (UB4840) est une variable qui apparait dans la cellule A4. Cette valeur est le résultat d'une concaténation.

1- Comment dois-je modifier ma commande pour concaténer 'C:\Users\jmassol\Desktop\recup\' et 'UB4840' de sorte à obtenir 'C:\Users\jmassol\Desktop\recup\UB4840' ?

2- Le nom du fichier dans lequel se trouve la donnée à récupérer est également une variable (valeur entre crochet proposée au début = variable). Celle-ci apparait dans la cellule F4. Comment dois-je modifier ma commande pour que le nom du fichier à scruter soit une variable ?

3- Même question pour l'onglet ("Feuil1" dans la ligne de commande proposée au départ).

En vous remerciant par avance.

Cdlt.
Jérôme.

massol · 5 Novembre 2018

Re-bonjour,

Ouaip sauf que ça ne marche pas....Désespérant...

Cdlt.
Jérôme.

eriiic · 5 Novembre 2018

Je ne sais pas pourquoi il a besoin de tout ça.
regarde ici : https://www.excel-downloads.com/thr...iste-dans-classeur-ferme-2udf-1-sub.20021961/
Ta plage ne faire qu'une seule cellule.
eric

massol · 5 Novembre 2018

J'avoue ne strictement rien comprendre à https://www.excel-downloads.com/thr...seur-fermé-2udf-1-sub.20021961/#post-20163194
Je ne vois pas comment l'adapter à mon cas, .... Je suis débutant en VBA .....

Cdlt.
Jérôme.

eriiic · 5 Novembre 2018

Je viens de tester.
Malheureusement cette technique ne fonctionne que dans un sub, pas dans une fonction personnalisée.
Il te reste à trouver les bonnes références à activer pour la solution que tu as trouvée.
eric

massol · 5 Novembre 2018

eriiiic à dit:
Je viens de tester.
Malheureusement cette technique ne fonctionne que dans un sub, pas dans une fonction personnalisée.
Il te reste à trouver les bonnes références à activer pour la solution que tu as trouvée.
eric

Voici ce que l on m a proposé sur le forum hardware : j y regarde demain.

Code :

Sub Macro_Indirect_with_file_closed()
With ActiveWorkbook.ActiveSheet
.Cells(7, 3).Formula = "='" & .Cells(2, 3).Value & "\[" & .Cells(3, 3).Value & "]" & .Cells(4, 3).Value & "'!" & .Cells(5, 3).Value
End With
End Sub

Il suffit d'adapter en fonction du besoin. Ici, "Cells(7, 3)" indique que la cellule de la 7ème ligne et 3ème colonne et donc la cellule C7, c'est la cellule dans laquelle sera affichée la valeur récupérée.
De la même manière, "Cells(2, 3)" indique la cellule qui contient le chemin vers le fichier fermé (sans mettre de "\" à la fin du chemin). "Cells(3, 3)" est la cellule avec le nom du fichier fermé (en mettant bien l'extension du fichier). "Cells(4, 3)" est la cellule qui contient le nom de la feuille. Et "Cells(5, 3)" et la cellule qui contient le nomme de la cellule dans laquelle le résultat doit être récupéré.

Il faut lancer la macro à la main à chaque modification, des options existent pour lancer une macro avec un raccourci ou automatiquement, je vous laisse chercher sur les internets.

massol · 5 Novembre 2018

massol à dit:
Voici ce que l on m a proposé sur le forum hardware : j y regarde demain.

Code :

Sub Macro_Indirect_with_file_closed()

With ActiveWorkbook.ActiveSheet

.Cells(7, 3).Formula = "='" & .Cells(2, 3).Value & "\[" & .Cells(3, 3).Value & "]" & .Cells(4, 3).Value & "'!" & .Cells(5, 3).Value

End With

End Sub

Il suffit d'adapter en fonction du besoin. Ici, "Cells(7, 3)" indique que la cellule de la 7ème ligne et 3ème colonne et donc la cellule C7, c'est la cellule dans laquelle sera affichée la valeur récupérée.
De la même manière, "Cells(2, 3)" indique la cellule qui contient le chemin vers le fichier fermé (sans mettre de "\" à la fin du chemin). "Cells(3, 3)" est la cellule avec le nom du fichier fermé (en mettant bien l'extension du fichier). "Cells(4, 3)" est la cellule qui contient le nom de la feuille. Et "Cells(5, 3)" et la cellule qui contient le nomme de la cellule dans laquelle le résultat doit être récupéré.

Il faut lancer la macro à la main à chaque modification, des options existent pour lancer une macro avec un raccourci ou automatiquement, je vous laisse chercher sur les internets.

Merci pour ta ténacité ....

eriiic · 5 Novembre 2018

Ah ben oui, autant mettre la formule directement dans la cellule si la fonction n'est pas impérative.
Si les adresses changent il faudra juste que tu relances la macro. Ca peut être fait sur un événement comme activation de la feuille.
eric

Comment concaténer des éléments à ma formule ?

massol

XLDnaute Junior

massol

XLDnaute Junior

eriiic

XLDnaute Barbatruc

massol

XLDnaute Junior

eriiic

XLDnaute Barbatruc

massol

XLDnaute Junior

massol

XLDnaute Junior

eriiic

XLDnaute Barbatruc

Discussions similaires