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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
merci beaucoup mais...
la solution était "simplement" le ... REBOOT du poste...
encore merci
Louis
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
OcgND3ZzJHA.2656@TK2MSFTNGP05.phx.gbl...
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
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