Workbooks(...).Activate

[Xavier]

Bonjour à tous,

Voici une question bien simple, pourquoi ca ne marche pas ... ca bloque à l'écriture suivante Workbooks(Mid(Fichier, i + 1, Longueur - i)).Activate.
Par la suite, j'aimerais terminer l'opérarion de telle manière que excel me présente le fichier 1 via la procédure windows () . Parce que je vois bien la réponse à cette question, il te suffit de mettre ton workbooks.open filename:=fichier1 en dernier lieu mais c'est pas ca qui m'interesse ... c'est de l'ordre de l'apprentissage comme diraient certaines personnes

Bon début de journée
Xa

Option Explicit
Sub Userform_Initialize()

With CommandButton1
.Default = True
End With
End Sub

Private Sub CommandButton1_Click()
Dim Fichier As String
Dim i As Byte, Longueur As Byte
Dim Text1 As String
Text1 = Application.GetOpenFilename("Tous les Fichiers Excel(*.xls),*.xls", , "A la recherche des fichiers")
TextBox1.Value = Text1

Fichier = TextBox1.Value

Longueur = Len(Fichier)
i = Longueur
While Mid(Fichier, i, 1) <> "\"
i = i - 1
Wend 'pour supprimer le chemin et ne garder que le nom du classeur
Workbooks(Mid(Fichier, i + 1, Longueur - i)).Activate

End Sub
Private Sub CommandButton2_Click()
Dim Fichier2 As String
Dim i2 As Byte, Longueur2 As Byte
Dim Text2 As String
Text2 = Application.GetOpenFilename("Tous les Fichiers Excel(*.xls),*.xls", , "A la recherche des fichiers")
TextBox2.Value = Text2

Fichier2 = TextBox2.Value

Longueur2 = Len(Fichier2)
i2 = Longueur2
While Mid(Fichier2, i2, 1) <> "\"
i2 = i2 - 1
Wend 'pour supprimer le chemin et ne garder que le nom du classeur
Workbooks(Mid(Fichier2, i2 + 1, Longueur2 - i2)).Activate
End Sub
Private Sub CommandButton3_Click()

Range("A1") = Mid(Fichier, i + 1, Longueur - i)
Range("A2") = Mid(Fichier2, i2 + 1, Longueur2 - i2)
Workbooks.Open Filename:=Fichier
Workbooks.Open Filename:=Fichier2

'j'aimerai que mon écran affiche le tableau du premier fichier
Windows(Fichier).Activate


End Sub