macro qui ne veut plus fonctionner

[bpol]

bonjour,

j'ai une macro qui d'un coup n'accepte plus de tourner elle bloque à hauteur de la ligne en gras

Dim Test As Workbook
On Error Resume Next
Set Test = Workbooks("Classeur1.xls")
On Error GoTo 0
If Test Is Nothing Then GoTo suite Else GoTo plusloin

suite:

Workbooks("Classeur1").Activate
plusloin:

Workbooks("Classeur1").Activate
........
qui peut éclairer ma lanterne?
Merci
bpol

 

[Pierrot93]

Re : macro qui ne veut plus fonctionner

Bonjour,

essaye peut être ainsi :

Workbooks("Classeur1[B][COLOR="Red"].xls[/COLOR][/B]").Activate

Bon après midi
@+

 

[bpol]

Re : macro qui ne veut plus fonctionner

bonjour pierrot,

non j'avais déjà essayer
et en plus la 2e solution du test fonctionne.

il faut toujours que le 2e classeur soit ouvert.


Bpol

 

[CHALET53]

Re : macro qui ne veut plus fonctionner

Coucou,

Il y a bien deux fichiers ouverts : celui qui contient la macro (ça va de soi) et le fichier Classeur1

Chez moi, ça marche

 

[CHALET53]

Re : macro qui ne veut plus fonctionner

En relisant ta macro, où sont passées les lignes d'ouverture du fichier Classeur1
Parce que là où il plante, il est censé avoir réalisé l'ouverture du fichier puisque à la suite du test, il poursuite sur l'étiquette Suite: (et comme à priori il n'y a pas d'instruction d'ouverture du fichier, il ne le trouve pas et se plante)

 

[Pierrot93]

Re : macro qui ne veut plus fonctionner

Re

comprends pas trop, si tes 2 lignes de code concerne le même classeur:

Set Test = Workbooks("Classeur1.xls")

et :

Workbooks("Classeur1").Activate

que tu veuille tout de même l'activer. De toute façon, sous 2003, tu ne peux activer un classeur sans l'extension, si ll en a une...

@+

 

[bpol]

Re : macro qui ne veut plus fonctionner

re,
ok merci chalet je ne sais pas ce que j'ai fait mad:encore certainement un bouton, touche p'tit con)

A+
Bpol