Basculer d'une fenetre à l'autre

[JUMJ]

bonjour à toutes et tous,

j'utilise la fonction suivante :
nom6 = Application.GetOpenFilename('Excel & Visiwin,*.xls;*.slk')
et
nom7 = Application.GetOpenFilename('Excel & Visiwin,*.xls;*.slk')
(mes 2 noms de fichier sont stockés dans 2 variables nom6 et nom7)

ensuite
Workbooks.Open nom6
Set wb6 = Workbooks.Open(Filename:=nom6)
et
Workbooks.Open nom7
Set wb7 = Workbooks.Open(Filename:=nom7)
(j'ouvre ainsi les 2 fichiers)

Ma question est comment passer d'une fenetre à l'autre, j'ai essayé
Windows('Nom6').Activate

mais ça ne marche pas.

Merci pour toute aide.

 

[PascalXLD]

Bonjour

ce serait plutot

Windows(Nom6).Activate

Bonne journée

 

[JUMJ]

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 ?

 

[PascalXLD]

RE

Passe per une autre variable


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

Windows(nomx).activate

 

[JUMJ]

J'ai l'eereur suivante :

'erreur de compilation :
tableau attendu'

et UBOUND est surligné

Merci

 

[PascalXLD]

Re

Tu l'as déclaré nom ??

dim nom() as string

 

[JUMJ]

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

 

[PascalXLD]

re

non

là c'est

Nomx as string

 

[JUMJ]

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 ?

 

[MichelXld]

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

 

[PascalXLD]

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

sinon envoie ton fichier pour voir

 

[JUMJ]

Merci à vous deux.

ca marche en faisant Wb6.activate

Cdt

 

[PascalXLD]

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