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

C

C@thy

Guest

• 11 Décembre 2003

• #2

bonjour Ben,

essaie ça :

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

C@thy

 

Pièces jointes

• Ben.zip

  8.8 KB · Affichages: 26
• Ben.zip

  8.8 KB · Affichages: 22
• Ben.zip

  8.8 KB · Affichages: 28

Vote positif 0 Vote négatif

B

ben

Guest

• 11 Décembre 2003

• #3

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 11 Décembre 2003

• #4

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

 

Vote positif 0 Vote négatif

B

ben

Guest

• 11 Décembre 2003

• #5

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

 

Vote positif 0 Vote négatif

B

ben

Guest

• 11 Décembre 2003

• #6

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 11 Décembre 2003

• #7

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

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 11 Décembre 2003

• #8

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.

 

Vote positif 0 Vote négatif

B

ben

Guest

• 12 Décembre 2003

• #9

merci laurent je vais tester

 

Vote positif 0 Vote négatif

B

ben

Guest

• 12 Décembre 2003

• #10

merciii ca marche !!

 

Vote positif 0 Vote négatif