Discussion :

[potili2]

mon programme ouvre un fichier excel qui est lui même en relation par lien OLE avec un autre programme.
puis je copie la colonne A dans le presse papier.
le délai d'ouverture d'excel étant plus ou moins long, j'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
vXLWorkbooks := vMSExcel.workbooks;
        vXLWorkbook := vXLWorkbooks.Open('C:\monfichier.xls',vlink,vreadonly);
        sleep(1000); //laisse le temps de s'ouvrir
        try
                 vXLWorkbook.Worksheets[1].Range['A:A'].copy;     
        except
                 on Error: EOLEsyserror do             
        showmessage('rate');
        end;

mais ça ne m'évite pas un plantage
comment faire pour ne tenter la copie de la colonne que lorsqu'elle est accessible?
merci pour votre aide
Jean Pierre

[potili2]

pas de réponse... mon problème est peut etre insoluble ?
ou alors y a t il un moyen détourné de connaitre le nombre de fenetre ouvertes dans microsoft office sans passer par le test dans excel?
mais je ne connais pas.

[rsc]

Puisque personne n'a d'idée, je peux t'en donner une générique : c'est de mettre ton try dans une boucle while :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Flag := False;
while not Flag do
  try
    Application.ProcessMessages;
    vXLWorkbook.Worksheets[1].Range['A:A'].copy; 
    Flag := True;
  except
  end;
end;

Le Flag ne passant à True que si ton traitement a réussi, et le Application.ProcessMessages;
étant là pour te permettre de prévoir de forcer ton Flag à True si tu veux sortir "en force" en cas de traitement trop long.
Tu peux effectivement insérer un Sleep si tu veux ralentir ta boucle.

[potili2]

merci pour cette réponse, mais ça ne peut pas fonctionner
toute tentative de "copy" trop précoce se soldera par le message d'erreur et le plantage de l'application.
l'utilisation du sleep est délicate car le temps d'accès varie enormément et je serais obligé de prendre une marge de sécurité trop importante

[rsc]

Tu veux dire que le try n'intercepte pas l'erreur ?? Et donc que l'exécution s'arrête après erreur et ne passe pas dans le expect (message "Raté" dans ton code) ?

[potili2]

exactement!

[rsc]

Ca c'est ennuyeux

Et si tu testes si ton vXlWorkBook est assigné ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Assigned(vXlWorkBook)...

ça donne quoi ?

[potili2]

désolé, pas répondu plus tôt, j'étais au boulot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        pro :=vXLWorkbook.Worksheets[1];
        if   assigned( @pro)  then showmessage('pas ouvert');

fait un plantage aussi...

[potili2]

ça me parait tout de même pas normal que le message 'raté' ne soit pas affiché dans mon code (cf plus haut).
peut être que je gère mal l'erreur?

[Lung]

ça me parait tout de même pas normal que le message 'raté' ne soit pas affiché dans mon code (cf plus haut).
peut être que je gère mal l'erreur?

Peut-être que l'erreur déclanchée n'est pas une EOLEsyserror.
Ratisse plus large avec un Exception.

[rsc]

désolé, pas répondu plus tôt, j'étais au boulot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        pro :=vXLWorkbook.Worksheets[1];
        if   assigned( @pro)  then showmessage('pas ouvert');

fait un plantage aussi...

On s'est mal compris. je me disais que peut-être vXLWorkBook n'était assigné qu'à la fin de l'ouverture, et je pensais donc à un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        if   assigned (xXlWorkBook) 
 then  pro :=vXLWorkbook.Worksheets[1];

ou peut-être une boucle du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while not assigned (vXlWorkBook) do;

[potili2]

merci pour vos suggestions

c'est bien une eolesyserror "l'appel a été rejeté par l'appelé"

vXLWorkbooks est assigned dès le début (excel est ouvert au départ pour une autre application qui tourne en fond de tache)
mais le test sur vXLWorkbook.Worksheets[1] déclenche l'erreur

donc j'ai toujours pas de solution: ça me fait penser au principe de "Peter" je crois où le fait d'observer modifie le comportement du sujet...

[potili2]

je pense à un truc:
mon problème est peut être plus complexe du fait que excel patiente en atendant l'ouverture du fichier de l'application reliée par OLE pour mettre à jour les données et peut être que Windows NE VEUT PAS que attente soit interrompue auquel cas il faudrait tester pour voir quand cette liaison OLE est ouverte ou non et là, ça devient difficile pour moi...

[rsc]

vXLWorkbooks est assigned dès le début (excel est ouvert au départ pour une autre application qui tourne en fond de tache)
mais le test sur vXLWorkbook.Worksheets[1] déclenche l'erreur

Je ne parlais pas de vXLWorkbooks mais bien de vXLWorkbook. Si tu le mets à nil avant vXLWorkbook := vXLWorkbooks.Open..., je suppose qu'il restera à nil jusqu'à ce que ton nouveau classeur soit ouvert, d'où mon idée.

[potili2]

ok
je teste ça ce soir (je peux pas interrompre mon programme en cours de journée).
merci.
Jean Pierre
PS ça fait plaisir de voir que je suis pas le seul "vieux" sur ce forum!

[rsc]

On n'est pas vieux, on est simplement jeunes depuis plus longtemps que les autres

[potili2]

finalement ça ne fonctionne pas non plus
workbook devient assigned immediatement et l'acces à workbooks pour test assigned plante tout.
faut chercher autrement, mais je sais pas où!
PS: mon grand père disait "j'ai quatre fois vingt ans"

[potili2]

bon j'ai tourné la difficulté en regardant quand l'envoi des données était terminé dans l'application de départ.
pas satisfaisant pour l'esprit.
si quelqu'un a une solution générale, ce serait super.
Jean Pierre