rendre classeur actif à partir de la valeur d'un textbox

[ben]

Bonjour le forum

J'ai un classeur ouvert à partir d'un getopenfilename qui va chercher le chemin dans un textbox.
Ex : mon textbox1 = c:\mondossier\fichier.xls

Je ne trouve pas la commande pour rendre actif ce classuer pour la suite de ma macro

pour l'instant j'ai fais windows(textbox1.value).activate cela ne marche pas il m'indique l'indice n'appartient pas à la sélection
Comment faire ???

merci pour votre aide

 

[C@thy]

bonjour Ben,

essaie ça :

ActiveSheet.Shapes("textbox1").Select
mavaleur = Selection.Characters.Text
Windows(mavaleur).Activate

C@thy

 

[ben]

ca marche pas cathy ca me marque l'élément portant ce nom est introuvable pourtant le textbox a bien pour valeur mon chemin complet

 

[C@thy]

Ah, je sais pourquoi!

le getopenfile te donne le chemin complet alors qu'il est ouvert, donc le nom du classeur sans le chemin suffit

C@thy

 

[ben]

oui j'ai pensé à prendre que le nom du fichier mais comme mon textbox à besoin du chemin pour la suite je suis un peu bloqué. je sais pas comment faire pour prendre juste le fichier dans le textbox

 

[ben]

Je dois aller en réunion, je te remercie beaucoup pour ton aide, je m'y remets demain lol

 

[C@thy]

pour activer ton classeur ouvert, il te faut juste le nom du classeur et non pas le chemin complet, mais ça je sais pas comment le faire,
(examiner tous les classeurs ouverts, avec For Each Class In Workbooks?)

avis aux pros du VBA, c'est sans doute très simple, mais moi je débute ... ... ... depuis longtemps! lol!!!

C@thy

 

[LaurentTBT]

Bonsoir à tous.

Voici une macro que je viens d'écrire vite fait. Je ne l'ai pas testée.

Sub ActiverClasseurChoisi()
Dim Classeur As Workbook

For Each Classeur In Workbooks
If Classeur.Path & "\" & Classeur.Name = textbox1 Then
Classeur.Activate
Exit Sub
End If
Next Classeur
End Sub

Dites-moi si ça marche.

Bonne chance.
Laurent.

 

[ben]

merci laurent je vais tester

 

[ben]

merciii ca marche !!