Besoin d'aide

bonjour et merci de m'avoir accepté dans le forum

j'ai un problème et j'aimerai beaucoup votre aide

je voudrait utiliser les valeurs des textbox et les insérer dans le chemin d’accès à un fichier

voici la procédure que j'ai..

sub()

dim a as string

dim b as string

dim c as string

dim d as string

a = textbox1.value

b = textbox2.value

c = textbox3.value

d = textbox4.value

Workbooks.Open Filename:="D:\fichier sysdos\a\b\c\d.xlsx"

'worksheets("IRC").Select

Workbooks("SYSDOS.xlsm").Sheets("IRC").Range("B6:E65").copy Workbooks("d.xlsx").Worksheets("IRC").Range("B6:E65")

end sub

Bonjour,

Workbooks.Open Filename:="D:\fichier sysdos\" & a & "\" & b & "\" & c & "\" & d & "\d.xlsx"

ps/ s.v.p. placer vos code entre la balise "code"

Bonsoir,

Vu que le choix est donné par l'intermédiaire de TextBox, je procéderai plutôt de la façon suivante (avec un contrôle de l'existance du fichier dans le dossier) :

Sub Test()

    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As String
    Dim Chemin As String

    a = textbox1.Value
    b = textbox2.Value
    c = textbox3.Value
    d = textbox4.Value

    Chemin = "D:\fichier sysdos\" & a & "\" & b & "\" & c & "\" & d & "\.xlsx"

    If Dir(Chemin) <> "" Then
        Workbooks.Open Chemin
    Else
        MsgBox "Le fichier est introuvable dans le dossier '" & Replace(Chemin, d & "\.xlsx", "") & "'!"
        Exit Sub
    End If

    'ici, la suite...
    'Workbooks("SYSDOS.xlsm").Sheets("IRC").Range("B6:E65").Copy Workbooks("d.xlsx").Worksheets("IRC").Range("B6:E65")

End Sub

merci à tous pour l'aide