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

CB60

XLDnaute Barbatruc

• 31 Janvier 2009

• #2

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

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

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 31 Janvier 2009

• #3

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.

 

Dernière édition: 31 Janvier 2009

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 31 Janvier 2009

• #4

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.

 

Pièces jointes

• IMAGE.zip

  50.5 KB · Affichages: 71
• IMAGE.zip

  50.5 KB · Affichages: 73
• IMAGE.zip

  50.5 KB · Affichages: 75

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 31 Janvier 2009

• #5

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+

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 31 Janvier 2009

• #6

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..🙂

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 31 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 31 Janvier 2009

• #8

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:

HTML:

[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

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 1 Février 2009

• #9

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

 

Vote positif 0 Vote négatif