workbooks("toto.xls").activate code error 9

[WILFRIED]

Salut à tous,

J'ai créer un utilitaire de gestions sous excel03 et l'utilisateur est sous excel07 la ligne de commande :

workbooks("toto.xls").activate

me renvoie un code erreur 9 alors que sous 03 ça marche nickel...

Y a t il une commade spécifique pour activé un classeur déjà ouvert?

D'avance merci

 

[CB60]

Re : workbooks("toto.xls").activate code error 9

Bonsoir
de cette façon peut être
Windows("toto.xls").Activate

 

[WILFRIED]

Re : workbooks("toto.xls").activate code error 9

Salut CB60,

je viens de tester ta solutions, cela ne marche pas.

En faite je veut en utilisant un commandbarscombobox naviger entre les différents classeur ouvert.

D'ou le workbooks(bouton2.text).activate.

merci quand même.

A+

Aprés revérification n utilisant l'enregistreur de macro c'est bien windows().activate.

C'est ma facon de gerer qu'il faut que je modifie.

 

[CB60]

Re : workbooks("toto.xls").activate code error 9

Bonsoir
Peux tu tester les fichiers joints à mettre à la racine
C:\

Image1 et image 3
sur 2003 et 2007, ouvre l'un ou l'autre et active l'un ou l'autre en cliquant sur l'image.

 

[WILFRIED]

Re : workbooks("toto.xls").activate code error 9

je vais telecharger ta PJ mais je ne pourrait pas faire le test complet aujourd'hui car il n'y a que 07 sur ce pC et 03 uniquement.
Je vais continuer à creuse car mon combo doitavoir deux fonction :

1 si le classeur de la liste n'est pas ouvert : l'ouvrir,

2 s'il est ouvert l'afficher.

Je vais essayer de trouver une solutions sinon il repassera sous 03...😀

A+

 

[WILFRIED]

Re : workbooks("toto.xls").activate code error 9

Salut CB60,

Je viens de regarder ta macro de test d'ouverture,

Bravo je ne connaissai pas cette méthode, je vais essayer de l'intégrer à mon appli, et te dirait si cela fonctionne..🙂

 

[WILFRIED]

Re : workbooks("toto.xls").activate code error 9

Hourra😀 😎

Ta super méthode marche nikel.

Je vis l'intégrer à la version initial.

Grâce à toi cela devrai marcher pour l'avenir.

Par contre peut tu m'explique :

x = FreeFile()
Open Fichier For Input Lock Read As #x
Close x

car je ne comprend pas ...😕

Merci

 

[CB60]

Re : workbooks("toto.xls").activate code error 9

Bonsoir
le fichier que je t'ai proposé n'est qu'une adaptation d'un fichier de J Walkenbach ( enfin je crois).
L'aide excel donne cela comme indication:

[b]FreeFile, fonction, exemple[/b]
 
Cet exemple utilise la fonction FreeFile pour renvoyer le prochain numéro de fichier disponible.
 
 Cinq fichiers sont ouverts à l'intérieur de la boucle et des données sont écrites dans chacun 
 
d'eux.
Dim MyIndex, FileNumberFor MyIndex = 1 To 5    ' La boucle est effectuée cinq fois. 
 
   FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé.' Crée le nom du fichier. 
 
   Open "TEST" & MyIndex For Output As #FileNumber 
 
   Write #FileNumber, "Ceci est un exemple"    ' Écrit le texte. 
 
   Close #FileNumber    ' Ferme le fichier
 
.Next MyIndex

 

[WILFRIED]

Re : workbooks("toto.xls").activate code error 9

Salut,

Merci pour ces précisions.

Je vais digérer tous cela tranquillement chez moi.

A bientôt