Ouvrir un classeur - ça plante encore !

Bonjour LANIMAL,

http://cjoint.com

@+



LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

--
- -
lSteph

Salut Manimal :-)

si ta procédure plante en exec alors qu'elle fonctionne en pas-à-pas,
amha c'est parce qu'elle a besoin d'un délai qu'elle n'a pas pour
copier puis ouvrir. Qd VBA dit "ouvrir", XL est encore en train de
copier... bref, de toutes façons, je pense qu'il te faudrait simplifier
ta procédure, comme d'habitude, une priorité (comme le disait Michel
Gaboly dans un autre fil) est d'éviter les "select". Ensuite, tu
pourrais ouvrir ton classeur avant de faire ton copier/coller. Bon du
coup c'est vrai que je parlais de simplifier mais il faudra gérer les
noms des 2 classeurs donc cela va augmenter un peu le code ;-)

Je ne suis pas aussi expert dans le code beau et pur que nos autres
amis contributeurs du MPFE (je ne suis qu'un ptit jeune dernier arrivé,
presque par hasard par ailleurs), mais personnellement, je tendrais
vers un truc du genre :

Sub rlv_vers_bnqWeb()

Dim MonClasseur, MaFeuil as String
MonClasseur = ActiveWorkbook.Name
MaFeuil = ActiveSheet.Name
Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
range("[" & OrigClasseur & "]" & & "!A:D").Copy

range("[bnqWeb.xls]téléchrgt!A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End Sub

voilà en gros ce que cela devrait donner.

++ mac

LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

Bonjour
Benh oui, mais à moins qu'il y ait encore une autre astuce que j'ignore
je ne sais pas retrouver ton message avec l'adresse que tu me donnes.
Peut-être à + ?

Bonjour LANIMAL,

http://cjoint.com

@+



LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

Re,

;-) l'idée était que tu indiques un lien sur le forum après être allé
déposer le classeur, contenant le code qui te pose pb
sur http://cjoint.com
ainsi pour les différents contributeurs qui voudraient t'aider,
comprendre peut-être plus facilement d'où viendrait l'erreur.

Cordialement.

lSteph

Bonjour
Benh oui, mais à moins qu'il y ait encore une autre astuce que j'ignore
je ne sais pas retrouver ton message avec l'adresse que tu me donnes.
Peut-être à + ?

Bonjour LANIMAL,

http://cjoint.com

@+



LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

--
- -

lSteph

MerciDarthMac
Alors figure-toi qu'après avoir envoyé mon post,
en réfléchissant... encore...
J'avais pressenti que, peut-être, la commande "Copy" ne faisait pas bon
ménage avec la commande "Open" qui suivait.
Alors, j'avais pensé passer par l'intermédiaire d'un classeur annexe,
"bnq_rlv_Web.xls" et ça marchait, sans savoir le pourquoi.
Cf ci-dessous :

Sub Macro1()
ChDir "D:Documents MB"
ActiveWorkbook.SaveAs Filename:="D:Documents MBbnq_rlv_Web.xls"
ActiveWorkbook.Close

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Activate
Workbooks.Open Filename:="D:Documents MBbnq_rlv_Web.xls"
Columns("A:D").Copy
Windows("bnqWeb.xls").Activate
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
Windows("bnq_rlv_Web.xls").Close
End Sub

En, fait, sans savoir pourquoi, j'ai fait exactement ce que tu suggères
(sous une forme un peu différente).
Après coup, j'avais remarqué qu'en effet, en exécution "pas à pas" la
"Copy" était un peu longue, mais je n'ai pas su tirer parti de cette
remarque.
Merci de ta réponse, tout est clair maintenant, et j'ai appris qqchose.
Merci.
PS 1: je suppose que tu as voulu écrire :
Range("[" & MonClasseur & "]" & & "MaFeuil!A:D").Copy
Je suis heureux de découvrir cette syntaxe que je n'ai jamais utilisée.
PS 2: Moi non plus, je ne suis pas très expérimenté, et sous le poids de
mes 70 balais, j'avance pas vite.

Salut Manimal :-)

si ta procédure plante en exec alors qu'elle fonctionne en pas-à-pas,
amha c'est parce qu'elle a besoin d'un délai qu'elle n'a pas pour copier
puis ouvrir. Qd VBA dit "ouvrir", XL est encore en train de copier...
bref, de toutes façons, je pense qu'il te faudrait simplifier ta
procédure, comme d'habitude, une priorité (comme le disait Michel Gaboly
dans un autre fil) est d'éviter les "select". Ensuite, tu pourrais
ouvrir ton classeur avant de faire ton copier/coller. Bon du coup c'est
vrai que je parlais de simplifier mais il faudra gérer les noms des 2
classeurs donc cela va augmenter un peu le code ;-)

Je ne suis pas aussi expert dans le code beau et pur que nos autres amis
contributeurs du MPFE (je ne suis qu'un ptit jeune dernier arrivé,
presque par hasard par ailleurs), mais personnellement, je tendrais vers
un truc du genre :

Sub rlv_vers_bnqWeb()

Dim MonClasseur, MaFeuil as String
MonClasseur = ActiveWorkbook.Name
MaFeuil = ActiveSheet.Name
Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
range("[" & OrigClasseur & "]" & & "!A:D").Copy

range("[bnqWeb.xls]téléchrgt!A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End Sub

voilà en gros ce que cela devrait donner.

++ mac

LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

Ah - OK - Je comprends.
En fait, ça aurait été un peu long, car il aurait fallu aussi que
j'explique que la page téléchargée est une page xxx.slk exploitée sous
Excel (ouais... après tout c'est pas si long !)
En fait DarthMac ma donné la solution - évidente...
... une fois qu'on y a pensé ! - Comme toujours !
Merci, je retiens la solution "Cjoint" pour une autre fois.
LANIMAL...heureux !

Re,

;-) l'idée était que tu indiques un lien sur le forum après être allé
déposer le classeur, contenant le code qui te pose pb
sur http://cjoint.com
ainsi pour les différents contributeurs qui voudraient t'aider,
comprendre peut-être plus facilement d'où viendrait l'erreur.

Cordialement.

lSteph

Bonjour
Benh oui, mais à moins qu'il y ait encore une autre astuce que j'ignore
je ne sais pas retrouver ton message avec l'adresse que tu me donnes.
Peut-être à + ?

Bonjour LANIMAL,

http://cjoint.com

@+



LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne
(Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton
->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

LANIMAL a formulé la demande :

PS 1: je suppose que tu as voulu écrire :
Range("[" & MonClasseur & "]" & & "MaFeuil!A:D").Copy
Je suis heureux de découvrir cette syntaxe que je n'ai jamais utilisée.

J'ai été un peu vite, pardonnes-moi, en fait ce serait :
Range("[" & MonClasseur & "]" & MaFeuil & "!A:D").Copy

C'est la même syntaxe que si dans un classeur tu fais une formule = qui
fait référence à une cellule d'un autre classeur. Fais le test tout
simple, ouvre 2 nouveaux classeurs et dans la Feuil1 de l'un fait =
puis va cliquer dans une cellule de l'autre classeur. Regarde la
syntaxe de ce que tu as derrière le

PS 2: Moi non plus, je ne suis pas très expérimenté, et sous le poids de mes
70 balais, j'avance pas vite.

C'est pas grave, ce n'est que le double de mon âge : tu n'as donc le

droit qu'à 2 fois MOINS de temps pour comprendre... j'ai mis 2 ans à
saisir le VBA pour arriver au niveau actuel ;-)

bonne fin de we.

mac

Rebonjour
Pour le plaisir, j'ai essayé un autre remède qui consiste à placer une
MsgBox après la ligne "Copy" pour lui donner ainsi le temps de s'exécuter.
Ca marche "perfect", ce qui confirme - si besoin était - ton diagnostic.
Bonsoir.

Salut Manimal :-)

si ta procédure plante en exec alors qu'elle fonctionne en pas-à-pas,
amha c'est parce qu'elle a besoin d'un délai qu'elle n'a pas pour copier
puis ouvrir. Qd VBA dit "ouvrir", XL est encore en train de copier...
bref, de toutes façons, je pense qu'il te faudrait simplifier ta
procédure, comme d'habitude, une priorité (comme le disait Michel Gaboly
dans un autre fil) est d'éviter les "select". Ensuite, tu pourrais
ouvrir ton classeur avant de faire ton copier/coller. Bon du coup c'est
vrai que je parlais de simplifier mais il faudra gérer les noms des 2
classeurs donc cela va augmenter un peu le code ;-)

Je ne suis pas aussi expert dans le code beau et pur que nos autres amis
contributeurs du MPFE (je ne suis qu'un ptit jeune dernier arrivé,
presque par hasard par ailleurs), mais personnellement, je tendrais vers
un truc du genre :

Sub rlv_vers_bnqWeb()

Dim MonClasseur, MaFeuil as String
MonClasseur = ActiveWorkbook.Name
MaFeuil = ActiveSheet.Name
Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
range("[" & OrigClasseur & "]" & & "!A:D").Copy

range("[bnqWeb.xls]téléchrgt!A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End Sub

voilà en gros ce que cela devrait donner.

++ mac

LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

Salut,

et tant mieux ! Que cela ne t'empêche pas de "purifier" ton code.
Encore une fois, et je parle en tant que qu'ancien coupable de la même
chose : évite les ".select" et les "selection."
Tu me feras bien plaisir, et tu amélioreras tes performances.

mac

LANIMAL avait prétendu :

Rebonjour
Pour le plaisir, j'ai essayé un autre remède qui consiste à placer une MsgBox
après la ligne "Copy" pour lui donner ainsi le temps de s'exécuter.
Ca marche "perfect", ce qui confirme - si besoin était - ton diagnostic.
Bonsoir.

Salut Manimal :-)

si ta procédure plante en exec alors qu'elle fonctionne en pas-à-pas, amha
c'est parce qu'elle a besoin d'un délai qu'elle n'a pas pour copier puis
ouvrir. Qd VBA dit "ouvrir", XL est encore en train de copier... bref, de
toutes façons, je pense qu'il te faudrait simplifier ta procédure, comme
d'habitude, une priorité (comme le disait Michel Gaboly dans un autre fil)
est d'éviter les "select". Ensuite, tu pourrais ouvrir ton classeur avant
de faire ton copier/coller. Bon du coup c'est vrai que je parlais de
simplifier mais il faudra gérer les noms des 2 classeurs donc cela va
augmenter un peu le code ;-)

Je ne suis pas aussi expert dans le code beau et pur que nos autres amis
contributeurs du MPFE (je ne suis qu'un ptit jeune dernier arrivé, presque
par hasard par ailleurs), mais personnellement, je tendrais vers un truc du
genre :

Sub rlv_vers_bnqWeb()

Dim MonClasseur, MaFeuil as String
MonClasseur = ActiveWorkbook.Name
MaFeuil = ActiveSheet.Name
Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
range("[" & OrigClasseur & "]" & & "!A:D").Copy

range("[bnqWeb.xls]téléchrgt!A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End Sub

voilà en gros ce que cela devrait donner.

++ mac

LANIMAL a présenté l'énoncé suivant :

Bonjour
Mercredi dernier, je postais la question « Ouvrir un classeur en VBA »
Après avoir testé positivement (bien évidemment) les réponses de lSteph
et jps, j’ai écrit le code ci-dessous, en partant d'un classeur Excel
ouvert (relevé de banque téléchargé).
En exécution pas à pas : ça marche toujours.
En exécution normale : tantôt ça marche,
tantôt ça plante après l’exécution de la 2ème ligne (Sélection.Copy).
La fenêtre erreur ‘1004’ apparaît (je ne sais pas comment exploiter
cette info).
Si je clique sur « Débogage » et que je relance l’exécution (bouton ->),
sans aucune autre intervention, le code se termine sans pb.

Sub rlv_vers_bnqWeb()
Columns("A:D").Select
Selection.Copy

xxxxxxxxxxxxxxxxxx Plantage : Erreur « 1004 »
La méthode ‘Open’ de l’objet ‘Workbooks’ a échoué.

Workbooks.Open Filename:="D:Documents MBbnqWeb.xls"
Sheets("téléchrgt").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1:B1").Select
End Sub

Moi, après m’être arraché pas mal de cheveux ! – j’abandonne… en
espérant que qq +doué que moi (ils sont très nombreux) pourra m’aider.
Merci d’avance.
Salutations chaleureuses… et reconnaissantes !
LANIMAL

Je t'envoie la copie de ma réponse postée hier, bien partie de chez moi,
mais pas arrivée dans le forum ? ? ?
Ah - OK - Je comprends.
En fait, ça aurait été un peu long, car s'agissant du traitement de mes
opérations bancaires, je ne tenais pas à le "publier", on sait jamais...
alors j'aurais dû élaborer un classeur factice.
Et puis il aurait fallu aussi que j'explique que la page téléchargée est
une page xxx.slk exploitée sous Excel (ouais... après tout c'est pas si
long !)
En fait DarthMac ma donné une solution - évidente...
... une fois qu'on y a pensé ! - Comme toujours !
Je retiens la solution "Cjoint" pour une autre fois.
Merci encore de ton aide.
LANIMAL...heureux !

Re,

;-) l'idée était que tu indiques un lien sur le forum après être allé
déposer le classeur, contenant le code qui te pose pb
sur http://cjoint.com
ainsi pour les différents contributeurs qui voudraient t'aider,
comprendre peut-être plus facilement d'où viendrait l'erreur.

Cordialement.

lSteph