Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[2007] Macro qui s'arrête sans raison apparente

2 réponses
Avatar
L.MAITRE
Bonsoir

voici un bout de code:

SUB ....

...
...
...

Workbooks(src).Activate
Range("a2").Copy
Workbooks(cbl).Activate
Range("a2").Select
ActiveSheet.Paste
------------------ en pas à pas détaillé, l'éxécution
s'arrête ici sans message d'erreur !!!!
Workbooks(src).Select

...
...
...
End sub

(je n'ai pas testé en execution normale)


avez vous des idées sur la raion ?

merci d'avance


Louis

2 réponses

Avatar
JLuc
Essaie comme ça :
Workbooks(src).Range("a2").Copy Destination:=Workbooks(cbl).Range("a2")


L.MAITRE a écrit :
Bonsoir

voici un bout de code:

SUB ....

...
...
...

Workbooks(src).Activate
Range("a2").Copy
Workbooks(cbl).Activate
Range("a2").Select
ActiveSheet.Paste
------------------ en pas à pas détaillé, l'éxécution
s'arrête ici sans message d'erreur !!!!
Workbooks(src).Select

...
...
...
End sub

(je n'ai pas testé en execution normale)


avez vous des idées sur la raion ?

merci d'avance


Louis



--
JLuc
« Celui qui trouve sans chercher est celui qui a longtemps cherché
sans trouver. » - Gaston BACHELARD
Avatar
L.MAITRE
merci beaucoup mais...

la solution était "simplement" le ... REBOOT du poste...

encore merci

Louis


"JLuc" a écrit dans le message de news:

Essaie comme ça :
Workbooks(src).Range("a2").Copy Destination:=Workbooks(cbl).Range("a2")


L.MAITRE a écrit :
Bonsoir

voici un bout de code:

SUB ....

...
...
...

Workbooks(src).Activate
Range("a2").Copy
Workbooks(cbl).Activate
Range("a2").Select
ActiveSheet.Paste
------------------ en pas à pas détaillé, l'éxécution
s'arrête ici sans message d'erreur !!!!
Workbooks(src).Select

...
...
...
End sub

(je n'ai pas testé en execution normale)


avez vous des idées sur la raion ?

merci d'avance


Louis



--
JLuc
« Celui qui trouve sans chercher est celui qui a longtemps cherché sans
trouver. » - Gaston BACHELARD