Discussion :

[PradBoule]

Bonjour,

j'aimerais ouvrir un fichier d'extraction à partir d'une textbox d'un userform, mais en évitant de devoir écrire tout le chemin du fichier dans la textbox.

En gros pour ouvrir par exemple le fichier d'extraction du 20/07, j'aimerais juste à avoir à taper 20072012 et la macro enregistre ca et l'accole au chemin du fichier (C:\\....\)
Auriez-vous une idée du code pour ça? J'arrive à ouvrir un fichier si je rentre tout le chemin mais c'est quand même assez fastidieux...

Merci d'avance.

[mercatog]

A adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Chemin As String, Fichier As String
Dim Wbk As Workbook
 
 
Fichier = TextBox1
If Fichier <> "" Then
    Chemin = "C:\Users\user\Desktop"
    Fichier = Chemin & "\" & Fichier & ".xls"
    If Dir(Fichier) <> "" Then
        Set Wbk = Workbooks.Open(Fichier)
'Suite de ton code avec Wbk, variable contenant l'objet classeur qui vient d'être ouvert
 
        Wbk.Close True
        Set Wbk = Nothing
    End If
End If

[PradBoule]

C'est parfait merci beaucoup!