Fonction Dir VBA

Bonjour à tous,

J'utilise la fonction Dir dans VBA pour me permettre de récupérer le nom d'un fichier dans un dossier dont une partie est toujours fixe (de plus il n'y a qu'un seul fichier avec cet archétype de nom).

myfile = Dir("S:\MIDDLE\Contrôle\2017\2017-03\Piste d'audit\PISTE_AUDIT_*")

'dont S:\MIDDLE\Contrôle\2017\2017-03\Piste d'audit\ est le répertoire
'dont PISTE_AUDIT_* est le nom partiel du fichier

Souhaitant dynamiser ce code, j'ai dans une feuille excel la cellule G13 qui me permet de trouver le répertoire concerné qui varie en fonction d'une date que je rentre et en F13 l'archétype du nom du fichier pour arriver à un code type:

sub ()

dir_audit = range("G13").Value       pour le répertoire

myfile = dir( cellule G13 & cellule F13*) pour retrouver le nom du fichier 

workbooks.open filename:=dir_audit & myfile

Cependant je n'arrive pas à intégrer la variable de répertoire (G13) et le nom partiel du fichier (F13) dans la fonction Dir.

Je vous remercie par avance en espérant avoir été assez claire dans mes explications.

Bonne fin de journée.

Bonsoir,

ça serait bien que tu te mettes dans des conditions réelles d'utilisation

Et que tu exécutes la macro suivante :

Sub galopin()
dir_audit = range("G13").Value       pour le répertoire
MsgBox dir_audit
myfile = dir( cellule G13 & cellule F13*) pour retrouver le nom du fichier 
MsgBox myfile
End Sub

...Et tu nous donne intégralement le contenu des 2 MsgBox

Après on te dira ce qu'il faut modifier.

A+

bonsoir,

bonsoir, galopin

une proposition de correction

sub ()
    dir_audit = Range("G13").Value       'pour le répertoire
    myfile = Dir(dir_audit & Range("F13") & "*")    ' pour retrouver le nom du fichier
    Workbooks.Open Filename:=dir_audit & myfile

Puis je vous donner ces éléments demain matin?

Merci beaucoup pour votre réponse.

Hé, hé...

Nous on est pas pressé, on s'en fout... On est à la retraite !

Bonjour à vous deux,

Je vais retenir la solution de h2so4 qui est très simple.

Merci beaucoup pour vos propositions.

Passez une bonne journée