VBA pb avec workbooks activate.. aidez-moi svp!

[littlerainbow]

J'ai un souci, une partie de ma macro qui marchait avant, ne marche plus et je ne vois pas pourquoi. et c'est assez urgent...
J'ai une ligne :

Workbooks(classeur_arrivee).Activate

et il y a un bug sur cette ligne, pourtant la variable "classeur_arrivee" a bien la bonne valeur (nom du classeur + .xls )...
et le classeur est ouvert donc il devrait pouvoir être activé.
(c'est peut être un pb tout bête mais je vois pas)

 

[zeb]

Et si tu nous communiquais le message d'erreur.

 

[littlerainbow]

erreur d'exécution 9
l'indice n'appartient pas à la sélection

 

[littlerainbow]

en fait il n'y a pas de bug quand le classeur qui contient la macro et "classeur_arrivee" sont ouverts à partir de la même fenêtre Excel...
le bug arrive quand ils sont ouverts à partir de deux fenêtres différentes.

 

[zeb]

le classeur est ouvert donc il devrait pouvoir être activé.
ils sont ouverts à partir de deux fenêtres différentes

Ben non. tu parles de "fenêtres" différentes, il s'agit en fait d'instance de Excel différentes. Donc pas possible comme ça.

On peut peut-être voir s'il n'y à pas une solution. Pourquoi as-tu deux instances d'Excel ?

 

[littlerainbow]

mon programme doit prévoir tous les cas : celui où l'utilisateur a ouvert le "classeur arrivee" à partir de celui contenant la macro, et le cas ou il l'a ouvert à partir d'une autre "instance" d'Excel...
(je dois anticiper toutes les situations possibles)

 

[zeb]

Aïe aïe, ce n'est pas évident... Je regarde...

 

[littlerainbow]

oki merci beaucoup

 

[littlerainbow]

(dans le pire des cas je préciserai à l'utilisateur ce qu'il faut éviter, mais si je peux intégrer tous les cas dans mon programme c'est mieux)

 

[zeb]

Et en utilisant Open. Si le fichier est déjà ouvert, il va dessus, s'il ne l'ai pas il l'ouvre.

A voir si le fichier déjà ouvert est en cours de modif. --> Test.

 

[littlerainbow]

J'arrive pas à faire le Open....
Il faut le chemin pour ça non? j'arrive pas à le formuler...

 

[littlerainbow]

c'est bon j'ai trouvé

 

[littlerainbow]

(enfin coment faire le OPen)

 

[zeb]

Eh, eh.... Ce n'était pourtant pas difficile :

Dim wb As Workbook
Set wb = GetObject("chemin\fichier.xls")
wb.Activate

 

[littlerainbow]

ça marche ! merci
si tout colle, j'ai peut être fini mon projet

 

[zeb]

j'ai peut être fini mon projet

:sol:

 

[zeb]

Si c'est un stage, n'oublie pas de citer PPC dans ton rapport

 

[littlerainbow]

oki ! promis !