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!