Nom du fichier dans une zone de texte

Bonjour à vous,

Je souhaite ouvrir un fichier depuis VBA.

Pour le "Chemin" du fichier aucun problème.

Pour le "Nom du fichier" du fichier je souhaite crée une zone de texte sur la page d'accueil pour que l'utilisateur puisse incrémenter la version du fichier sans toucher directement au code VBA.

En gros, dans la case zone de texte de l'accueil il sera inscrit : "nomdufichier.v1".

Pour le moment mon code c'est ça :

Dim Chemin As String
Dim NomFichier As String

' VARIABLE, chemin du fichier 
Chemin = "\\******"

' VARIABLE, Nom du fichier
NomFichier = txtversion '<-- C'est le nom de ma zone de texte ou l'utilisateur dois rentrer le nom du fichier. Mon fichier et en .xlsx que j'ai rajouter plus bas... je me demand esi il ne faut pas rajouter quelque choses avant ou après "txtversion"

On Error GoTo fin
With Workbooks.Open(FILENAME:=Chemin & NomFichier & ".xlsx", ReadOnly:=True, UpdateLinks:=0)

Voilà Voila

Si je ne suis pas assez claire, n'hésiter pas a me demmander plus de détail !

Merci par avance pour votre temps et votre aide !

Bonjour Pirate,

C'est quoi comme zone de texte, une textbox ?

Tu pourrais utiliser une cellule aussi...

Si c'est le cas, il faudra peut-être mettre : Sheets("nomdelafeuille").txtversion en rajoutant éventuellement un .value à la fin...

Dim Chemin As String
Dim NomFichier As String

' VARIABLE, chemin du fichier 
Dossier = "\\******\" '<<<< termine par "\"

' VARIABLE, Nom du fichier
NomFichier = txtversion '<-- C'est le nom de ma zone de texte ou l'utilisateur dois rentrer le nom du fichier. Mon fichier et en .xlsx que j'ai rajouter plus bas... je me demand esi il ne faut pas rajouter quelque choses avant ou après "txtversion"

Chemin = Dossier & NomFichier & ".xlsx"

if dir(Chemin) = "" then msgbox "Fichier introuvable", 16: exit sub 'test existence
Workbooks.Open FILENAME:=Chemin, ReadOnly:=True, UpdateLinks:=0 'ouvre sans renvoyer d'objet (bug si déjà ouvert)

end sub

Ici, j'ai enlevé le with et les parenthèses car tu cherches juste à ouvrir le fichier apparemment. Les parenthèses servent à indiquer que tu renvoies un objet de type workbook.

Cdlt,

Bonjour 3GB,

Encore une fois tu me sauves ! C'etait bien une "textbox" et ta solution focntionne !

Bonne journée à toi :)