p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Candidat au titre de Membre du Club
    Homme Profil pro
    Développeur delphi junior
    Inscrit en
    février 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Développeur delphi junior
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2012
    Messages : 39
    Points : 11
    Points
    11

    Par défaut Impossible de fermer un classeur Excel

    Bonjour,

    Je dois pour mon travail traiter un fichier Excel. Mais déjà dès le début je tombe sur une problème que je n'arrive pas à traiter. Lorsque je souhaite fermer un classeur Excel que j'ai ouvert je me retrouve avec un (ou plusieurs) messages d'erreur.

    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    ExcelApplication:= CreateOleObject('Excel.Application');
      try
        Classeurs:= ExcelApplication.Workbooks;
        ClasseurA3Conseil:= Classeurs.Open(EditNomFichierExcel.Text);
        ExcelApplication.Visible:= True;
      finally
        Classeurs.Close(False, emptyparam,emptyparam,0);
        ExcelApplication.Quit;
        ExcelApplication:= unassigned;
      end;
    A priori cela devrai fonctionner, non ?
    Lorsque j'exécute j'ai le message d'erreur suivant :
    "Le projet Import à provoqué une classe d'exception EOLESysError avec le message 'Nombre de paramètres non valide'. Processus stoppé."
    quand je valide il point sur la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Classeurs.Close(False, emptyparam,emptyparam,0);
    Le close sans argument fonctionne mais normalement je ne dois pas afficher excel puisque je dois seulement récupérer les valeurs dans les cells. Et je souhaite ne pas sauvegarder à la fermeture. J'ai cherché sur le site et le forum je ne vois pas de solution, même avec les réponses sur le forum à des problèmes similaires je me retrouve avec des erreurs.

    Quelqu'un aurais une solution ?

  2. #2
    Candidat au titre de Membre du Club
    Homme Profil pro
    Développeur delphi junior
    Inscrit en
    février 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Développeur delphi junior
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2012
    Messages : 39
    Points : 11
    Points
    11

    Par défaut

    J'ai finalement réussi à trouver une solution.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    ExcelApplication:= CreateOleObject('Excel.Application');
      try
        // on ouvre le fichier choisi par l'utilisateur
        Classeur:= ExcelApplication.Workbooks.Open(EditNomFichierExcel.Text, unassigned, True);
        //traitement effectué à venir
      finally
        Classeur.Close(False, 0); // fermeture du classeur
        ExcelApplication.Quit; // fermeture de l'application
        ExcelApplication:= unassigned; // libération de la mémoire
        _MessageDlg('Le traitement à été effectué avec succès', mtInformation, [mbOk], 0);
      end;
    Je ne sais pas pourquoi mais il ne fallait que deux paramètres dans le close donc si quelqu'un à une explication je me sentirais moins bête.

  3. #3
    Membre régulier
    Profil pro
    Développeur informatique
    Inscrit en
    janvier 2003
    Messages
    178
    Détails du profil
    Informations personnelles :
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : janvier 2003
    Messages : 178
    Points : 74
    Points
    74

    Par défaut

    Bonjour, je viens de faire un test et tu a un peu tout mélangé.
    Ce n'est pas ton objet classeurs qu'il faut fermé, mais le classeur ouvert!

    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
    procedure TForm1.Button1Click(Sender: TObject);
    var
      ExcelApplication, Classeurs,ClasseurA3Conseil : Variant;
      vClose : Variant;
    begin
      vClose := False;
      ExcelApplication:= CreateOleObject('Excel.Application');
      try
        Classeurs:= ExcelApplication.Workbooks;
        ClasseurA3Conseil:= Classeurs.Open('c:\test.xls');
        ExcelApplication.Visible:= True;
      finally
        ClasseurA3Conseil.Close(vClose,'c:\test.xls');
        ExcelApplication.Quit;
        ExcelApplication:= unassigned;
      end;
    end;

  4. #4
    Candidat au titre de Membre du Club
    Homme Profil pro
    Développeur delphi junior
    Inscrit en
    février 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Développeur delphi junior
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2012
    Messages : 39
    Points : 11
    Points
    11

    Par défaut

    Merci coucoucmoi.
    Saurais-tu m'expliquer pourquoi il ne faille que deux argument dans le close. Je me suis aidé à la base de http://delphi.developpez.com/faq/?page=excelclasseur
    avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     MonClasseur.Close(False, emptyparam,emptyparam,0);
    du coup cela me générais une erreur.

  5. #5
    Membre régulier
    Profil pro
    Développeur informatique
    Inscrit en
    janvier 2003
    Messages
    178
    Détails du profil
    Informations personnelles :
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : janvier 2003
    Messages : 178
    Points : 74
    Points
    74

    Par défaut

    Dans ton lien, classeur est défini en _workbook qui lui, veut plus les arguments.

    Toi tu passes par des variant, donc lis plutot ce tuto :
    http://lfe.developpez.com/PasExcel/#L1

  6. #6
    Candidat au titre de Membre du Club
    Homme Profil pro
    Développeur delphi junior
    Inscrit en
    février 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Développeur delphi junior
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2012
    Messages : 39
    Points : 11
    Points
    11

    Par défaut

    je l'utilise maintenant mais je ne l'ai trouvé qu'après maintenant ça fonctionne correctement et je peux continuer mon travail.

    Merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Fermer un classeur Excel à la fin d'une macro
    Par alex830001 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/06/2008, 19h29
  2. [OLE Excel] Fermer un classeur Excel
    Par Shuret dans le forum C++
    Réponses: 1
    Dernier message: 26/05/2008, 10h09
  3. Impossible de fermer le process 'Excel.exe'
    Par davidQC dans le forum VB.NET
    Réponses: 5
    Dernier message: 24/09/2007, 14h20
  4. Fermer le classeur Excel BD pour la fusion word
    Par sailor lvcv dans le forum VBA Word
    Réponses: 4
    Dernier message: 28/03/2007, 16h29
  5. Fermer les classeurs excel sauf celui actif
    Par Balian1412 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/10/2006, 10h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo