Basculer d'une fenetre à l'autre

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #2

Bonjour

ce serait plutot

Windows(Nom6).Activate

Bonne journée

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 23 Décembre 2005

• #3

merci Pascal76 mais ça ne marche toujours pas.
En fait en enlevant les guillemets j'ai dans ma variable Nom6 le chemin du fichier.

Comment extraire de Nom6 le nom du fichier pour pouvoir activer sa fenetre ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #4

RE

Passe per une autre variable


nom = Split(Nom6, '\\')
nomx = nom(UBound(nom))

Windows(nomx).activate

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 23 Décembre 2005

• #5

J'ai l'eereur suivante :

'erreur de compilation :
tableau attendu'

et UBOUND est surligné

Merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #6

Re

Tu l'as déclaré nom ??

dim nom() as string

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 23 Décembre 2005

• #7

Désolé je ne suis pas un expert

j'ai fait ce que tu as dit mais maintenant c'est Nomx qui est surlgné avec le meme message, je l'ai déclaré dim Nomx() as string

est ce correct ?

merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #8

re

non

là c'est

Nomx as string

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 23 Décembre 2005

• #9

Merci ca marche sauf

que là j'ai la ligne Windows(Nomx).Activate surlignée en jaune

en passant mon curseur sur Nomx j'ai
Nomx=c:\\Macro\\Classeur1.xls

en fait j'ai le chemin complet
dans Nom, Nom6, Nomx le chemin est le meme ?

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 23 Décembre 2005

• #10

bonjour Jumj , bonjour cher Pascal

as tu essayé

Dim Wb6 As Workbook, Wb7 As Workbook
nom6 = Application.GetOpenFilename('Excel & Visiwin,*.xls;*.slk')
nom7 = Application.GetOpenFilename('Excel & Visiwin,*.xls;*.slk')

Set Wb6 = Workbooks.Open(Filename:=nom6)
Set Wb7 = Workbooks.Open(Filename:=nom7)
Wb6.Activate



bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #11

RE attention nom et nomx sont de nouvelles variables et différentes de tes nom6 etc

sinon envoie ton fichier pour voir

 

Vote positif 0 Vote négatif

J

JUMJ

Guest

• 23 Décembre 2005

• #12

Merci à vous deux.

ca marche en faisant Wb6.activate

Cdt

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Décembre 2005

• #13

Re

Mais oui mais c bien sur où avais-je la tête ??

Voilà ce que c'est je me suis focalisé sur le windows sans regarder le workbook

Merci michel

 

Vote positif 0 Vote négatif