Discussion :

[beben31]

Bonjour à tous, je sollicite votre aide pour le problème suivant :

j'ai ouvert un fichier de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
FiletoOpen = Application.GetOpenFilename("fichiers excel (*.xls), *.xls")
Workbooks.Open Filename:=FiletoOpen

Et dans la suite de mon programme j'ai besoin de me ballader entre le fichier ouvert et le fichier hôte de ma macro, je souhaitais donc réaliser l'opération comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Windows("Bilan 2008.xls").Activate
Windows(FiletoOpen).Activate

Or lorsque je fais ceci une erreur 9 apparaît me disant que l'indice n'appartient pas à la sélection.
Avez-vous une solution pour résoudre ce problème ?

Merci.

[Fvandermeulen]

Bonjour,
Sauf erreur de ma part c'est le .xls dans la partie d'activation qui pose problème.

Essaies:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("Bilan 2008").activate

Reste à voir comment tu définis le nom du fichier à ouvrir, il faudra surement que tu passes par une autre variable, mais comme je sais pas comment tu le définis à la base (en dur, ou tu choisi via la boite de dialogue...)

En espérant que ça aide.

[fred65200]

bonsoir
FiletoOpen te donne le chemin complet de ton fichier, pour l'activer il te faut uniquement le nom du fichier avec l'extension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows(Dir(FiletoOpen)).Activate

cordialement

[AlainTech]

En créant un objet Workbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim wb as Workbook
FiletoOpen = Application.GetOpenFilename("fichiers excel (*.xls), *.xls")
Set wb = Workbooks.Open Filename:=FiletoOpen
' Ensuite, on peut faire tout ce qu'on veut avec wb
wb.Activate

[ouskel'n'or]

Comme j'aime bien couper les cheveux en 4, j'ajouterais juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If fileToOpen <> False Then _
    Set wb = Workbooks.Open Filename:=FiletoOpen

parce que sinon...

(hello Alain, meilleurs voeux)

[beben31]

Ok ! Merci à tous pour vos contributions. Je pense qu'avec tout ça je devrais y arriver...

Je teste ça et je coche le résolu si ça marche !

Bonne journée,

Beben31