Discussion :

[NABIL74]

Bonjour,

Je souhaite récupérer le nom du fichier Excel déjà ouvert par l'utilisateur sachant que ce fichier n'a pas été ouvert par mon application.
Avec Word, je peux le récupérer sans soucis mais avec Excel, non.

J'ai essayé :

Code :

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

1
2
3
4
5
var EXCELApp : TExcelApplication ;
begin
EXCELApp := TEXCELApplication.Create(Self);
EXCELApp.ActiveWorkbook.QueryInterface(IDataObject, IData);
Edit1.Text := EXCELApp.ActiveWorkbook.FullName[0] ;

Mais cela ne récupère pas le nom du fichier + son chemin.

Avez-vous une idée comment récupérer le nom du fichier avec son chemin?

Merci.

Bonne journée

[ShaiLeTroll]

Pourquoi [0] ?
Je ne sais même pas ce que ça récupère, [0] sur une WideString, c'est quoi ?

Je n'utilise pas TExcelApplication (Early Binding) mais plus souvent la version Late Binding
Déjà le comportement est différent entre GetActiveOleObject et CreateOleObject, respectivement cela prend un Excel déjà ouvert ou cela ouvre un nouvel Excel donc le ActiveWorkbook n'aura pas la même valeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  VExcelOLE: OLEVariant;
begin
  try
    VExcelOLE := System.Win.ComObj.GetActiveOleObject('Excel.Application');
  except
     ShowMessage('Pas d''instance d''Excel');
     Exit;
  end;
 
  if not VarIsEmpty(VExcelOLE.ActiveWorkbook) then
    ShowMessage(VExcelOLE.ActiveWorkbook.FullName); // Ici c'est complet
end;

Avec TExcelApplication pour ouvrir un Excel existant il faut modifié ConnectKind en ckRunningInstance en Design Time
En RunTime il faut faire

Code :

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

1
2
    EXCELApp.ConnectKind := ckRunningInstance;
    EXCELApp.Connect;

la valeur par défaut ckRunningOrNew permet aussi d'ouvrir un Excel existant mais si il n'existe pas, cela va en ouvrir un nouveau, cela peut ne pas être intéressant

[NABIL74]

Bonjour,

@ ShaiLeTroll : Merci pour votre réponse

Pourquoi [0] ?
Je ne sais même pas ce que ça récupère, [0] sur une WideString, c'est quoi ?

J’utilise Excel 2010 dans mon programme. En fait, j'ai créé un Add-in (Complément COM) dans Excel et j'ai besoin de récupérer le fichier ouvert avec le Path.

Si on TExcelApplication, on doit renseigner le FullName suivi du [lcid] qui a généralement la valeur 0.

Je viens de tester votre code avec un fichier Excel déjà ouvert, il m'affiche : 'Pas d''instance d''Excel' , il ne détecte pas Excel s' il est lancé, pourtant le fichier Excel est déjà ouvert.

Avec Word, je récupère le nom du fichier de la manière suivante:

Code :

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

1
2
WordApp := TWordApplication.Create(Self);
Edit1.Text := WordApp.ActiveDocument.FullName;

Merci

[ShaiLeTroll]

En tout cas avec un Excel Office 365 version 16 (sur deux postes differents, l'un en 32 et l'autre en 64), le code fourni fonctionne, ne serait-ce pas votre Add-In qui pose problème ?


N'ayant pas TExcelApplication, je ne sais pas à quoi correspond [lcid], peut-être la langue pour les noms des dossiers systèmes
En tout cas, FullName n'a pas de spécificité selon la documention Microsoft

Quel est le code de déclaration de FullName et son code ?


Faudrait regarder l'exception déclenché par le GetActiveOleObject
le code d'erreur peut aider à comprendre le problème.


Si vous developpez un Add-In, je ne m'y suis jamais intéressé mais celui-ci ne reçoit pas une instance de l'Excel appelant ?
Et dans ce cas particulier, une différence entre les objets cOM 32 ou 64Bits ?

IDTExtensibility2 et OnConnection devrait permettre de récupérer directement l'application à l'origine de l'appel du Plugin

[NABIL74]

En tout cas avec un Excel Office 365 version 16 (sur deux postes differents, l'un en 32 et l'autre en 64), le code fourni fonctionne, ne serait-ce pas votre Add-In qui pose problème ?

Je viens de tester sur Office 2016 Plus installé sur un poste 32 bits, ça ne fonctionne pas. Peut-être bien les version de MS Office qui posent ce souci.

N'ayant pas TExcelApplication, je ne sais pas à quoi correspond [lcid], peut-être la langue pour les noms des dossiers systèmes
En tout cas, FullName n'a pas de spécificité selon la documention Microsoft

Quel est le code de déclaration de FullName et son code ?

Si on passe par un OLEVariant, on est pas obligé de renseigner après le FullName (FullName[...]), mais, si on passe par un TExcelApplication, là, il faut le renseigner.

Code :

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

1
2
3
4
function TExcelWorkbook.Get_FullName(lcid: Integer): WideString;
begin
  Result := DefaultInterface.FullName[lcid];
end;

Code :

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

property FullName[lcid: Integer]: WideString read Get_FullName;

Code :

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

property FullName[lcid: Integer]: WideString readonly dispid 289;

[NABIL74]

@Shai : je viens juste de tester ton code dans un nouveau projet (sans le Add-in) et cela fonctionne. Même mon code déjà cité fonctionne aussi.

Donc, le souci vient de mon projet du Add-in de Excel. Je vais le relire et voir qu'est-ce qui fait pour que cela ne fonctionne pas.

Merci.

[ShaiLeTroll]

Si vous developpez un Add-In, je ne m'y suis jamais intéressé mais celui-ci ne reçoit pas une instance de l'Excel appelant ?
Et dans ce cas particulier, une différence entre les objets cOM 32 ou 64Bits ?

IDTExtensibility2 et OnConnection devrait permettre de récupérer directement l'application à l'origine de l'appel du Plugin

Avez-vous pris en compte cette remarque dans ma précédente intervention, d'utiliser l'instance fournie, utiliser un Supports() pour transformer l'interface neutre en interface Excel

[NABIL74]

Avez-vous pris en compte cette remarque dans ma précédente intervention, d'utiliser l'instance fournie, utiliser un Supports() pour transformer l'interface neutre en interface Excel

L'instance, je l'ai utilisée (ckRunningInstance), cela ne produit rien: ça ne se connecte pas au fichier (classeur) Excel déjà ouvert, mais si j'ajoute :

Code :

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

ExcelApp.Workbooks.Add(...)

Cela récupère le nom du classeur que je viens d'ajouter.

Par contre IDTExtensibility2 , non pas encore, j'ai lu l'article à propos de , il héberge les notifications des événements qui se produisent au niveau des compléments. Je trouve des difficultés à l'intégrer dans mon programme.