Discussion :

[PadawanDuDelphi]

Salut à tous,

Voilà, je développe un outil de transfert de courbes Chart vers Excel, tout fonctionne bien sauf lorsque l'un des classeur Excel ouvert a été modifié par l'utilisateur et non enregistré. J'ai alors cette erreur:

Code :

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

L'appel a été rejeté par l'appelé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Var
    XLApp, XLLWorkbooks: variant;
Begin
  Try
    XLAPP := GetActiveOleObject('Excel.Application');
  Except
    XLAPP := CreateOleObject('Excel.Application');
  End;
 
    XLWorkbooks := XLAPP.Workbooks; //=>plantage ici

Mon problème étant que toutes mes fonctions suivantes utilisent XLWorkBooks...
Donc je vois pas comment m'en sortir sans mettre un message d'erreur à l'utilisateur "enregistrer tous vos classeurs excel ouvert"...Et alors là j'imagine déjà tous les gars du bureau venir dans le mien pour se plaindre...

Donc si quelqu'un a une idée, je le remercie par avence.

A+.

[EMC51]

Moi je fais toujours un CreateOleObject, comme ça justement pas d'interférence avec les classeurs de l'utilisateurs...

[PadawanDuDelphi]

Merci pour ta réponse,

Effectivement, j'ai plus de problème si je fais un CreateOleObject à chaque fois,
sauf que j'ai deux fois le même classeur d'ouvert dont le mien en lecture seul. (Et si l'utilisateur a déjà utilisé l'autre, j'en ai même deux différents...).

L'idéale,en fait ce serait de pouvoir enregistrer le classeur selectionner par l'utilisateur avant de l'ouvrir...Mais mon problème c'est que je parcours mon XLAPP.Workbooks pour savoir si il est ouvert.

J'ai l'impression de tourner en rond,

A+.

[Eric Boisvert]

t'as essayé quelque chose avec

XLAPP.ActiveWorkbook?

tu peux peut-être forcer la sauvegarde...

[PadawanDuDelphi]

Merci, effectivement ActiveWorkBook passe, et il est possible d'enregistrer le classeur ouvert avant toute action.
Le soucis c'est que ce n'est pas forcémment le classeur actif qui a été modifié (et ce n'est pas forcémment lui non plus qui doit me servir de récepteur de données).

En fait, pour m'en sortir, il me faudrait une autre méthode que

Code :

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

 XLWorkBook:= XLApplications.Workbooks.Open(FileName)

pour ouvrir mon fichier (une méthode qui ne passerait pas par Workbooks).

J'ai voulu essayer de parcourrir tous mes classseurs pour activer celui que je souhaite, mais pareil, on doit passer par workbooks.

A+.

[Eric Boisvert]

dans ce cas, il ne reste pas beaucoup de choix...
faudra que tu passe par l'objet windows...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
       //== Examine toutes les fenêtres Excel pour enregistrer
       //== et/ou fermer le classeur désiré.
       for i:=1 to XLAPP.windows.Count do
       begin
          //== Le caption correspond au texte affiché dans la barre de titre
          //== en haut de la fenêtre lorsqu'elle n'est pas agrandie
          if XLAPP.Windows.Item[i].caption='monfichier.xls' then
          begin
              //== Active le classeur trouvé ==
              XLAPP.Windows.Item[i].Activate;
              //== sauvegarde le classeur ou le ferme...
              //XLAPP.ActiveWorkbook.Save ;
              //XLAPP.Windows.Item[i].Close(..)
          end;
       end;

quelque chose du genre...

[PadawanDuDelphi]

Merci beaucoup pour ton aide, c'est une excelente idée...
Mais il reste un pb dans mon code (désolé, je maitrise pas du tout les OleObject... ), mon windows.count vaut toujours 0 dans mon code, quelque soit le nombre de fenêtre ouvertes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Procedure(...);
Begin
 
  Try
    XLAPP := GetActiveOleObject('Excel.Application');
  Except
    XLAPP := CreateOleObject('Excel.Application');
  End;
 
 If Savedialog1.execute then
  Begin
    FileName:=Savedialog1.filename;
      If Trim(FileName) ='' then Begin
        Ouvert:=false;
        Exit;
      End;
 
    ShowMessage(IntToStr(XLAPP.windows.Count)); // => affiche 0
    For I:=0 to XLAPP.windows.Count-1 do
      ShowMessage(XLAPP.Windows.Item(i).caption);
 
....

Encore merci pour tout...

A+.

[Eric Boisvert]

si windows.count vaut toujours 0... alors j'ai l'impression que

Code :

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

1
2
3
4
5
6
 
  Try
    XLAPP := GetActiveOleObject('Excel.Application');
  Except
    XLAPP := CreateOleObject('Excel.Application'); //<== c'est ce code qui s'execute
  End;

tu peux me le confirmer svp...
et dans ce cas... je vois pas comment?!?

[Eric Boisvert]

et attention...

les indices pour Windows.Item[] sont de 1 à Windows.Count

et non de 0 à windows.Count-1

[PadawanDuDelphi]

Apparemment c'est plutôt l'inverse...
Je doit avoir un problème dans la gestion de mes OleObject, puisque je passe toujours par GetActiveOleObject('Excel.Application'), sans jamais déclenché une exception.

Et dans ma barre des tâches j'ai plein de Excel lancé dès que je lance mon application, donc on dirais que certaine connexion ne sont pas fermée, et qu'il en récupère une ancienne...

Il va falloir que je nettoie un peu (beaucoup) mon appli. Juste une petite question:

Code :

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

XLApp := unassigned;

Cela libère bien la connexion, n'est-ce pas?

A+.

[Eric Boisvert]

XLApp := unassigned;

Non pas vraimment...
c'est plutot ceci...

Code :

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

1
2
3
4
5
try
  //fait des choses avec excel...
finally
  XLApp.Disconnect;
end;

[PadawanDuDelphi]

XLApp := unassigned;

Non pas vraimment...
c'est plutot ceci...

try //fait des choses avec excel...
finally XLApp.Disconnect;
end;

Forcémment il devait y avoir un paquet de connection qui se ballade...
Je vais modifier ça et tester.

Merci pour ton aide et pour ta patience...

A+.

[PadawanDuDelphi]

Je viens de tester et tout fonctionne à la perfection maintenant.
Je te remercie encore pour ton aide.

A+.