Salut les DEV
je voudrais dans un memo retourner les messages d'un transfert de données en masse. Je crée la form contenant le memo, j'ajoute les lignes avec add mais le memo ne retourne rien. En un seul mot, rien ne se passe. J'ai lu et relu mon code mais rien ne me semble anormal et je ne comprends toujours pas pourquoi j'ai rien dans mon memo bien qu'en executant pas à pas mon memo est bien renseigné !!!

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
// création de la fenêtre LOG
  try
    Application.CreateForm(TfmLOG, fmLOG);
    fmLOG.ShowModal;
    fmLOG.cxMemo_LOG.Clear;
    with fmLOG.cxMemo_LOG.Lines do
    begin
      Add('********************************************************');
      Add('GEXPLOITE DESK VER 1.0 - MODULE TRANSFERT');
      Add('E X P L O I T A T I O N');
      Add('Rapport généré automatiquement');
      Add('********************************************************');
      heure_debut := now;
      Add('TRAITEMENT DES DONNEES');
      Add('********************************************************');
      Add('Date début ' + DateToStr(heure_debut) + ' A ' + timeToStr(now));
      Add( '********************************************************');
      Refresh;
    end;
 
    try
      // Excel est déjà lancé, utiliser l'instance
      ExcelApp := GetActiveOleObject('Excel.Application');
    except
      // Lancer excel pour la 1ère fois
      ExcelApp := CreateOleObject('Excel.Application');
    end;
 
    try
      // ouvrir le classeur
      ExcelApp.Workbooks.Open(pFileName, Unassigned, True);
    except
      CloseFile(file_log);
      raise Exception.Create('Fermer le fichier d''échange tout d''abord');
    end;
 
    //***************************************
    // accèder à la feuille curage
    try
      vworksheet := ExcelApp.Worksheets.Item['Curage Réseaux'];
    except
      raise Exception.Create('La feuille de calcul Curage Réseaux est introuvable,' +
                              #10#13 +
                'assurez-vous qu''elle n''a pas était supprimer ou renommer ');
    end;
  ..... suite du code de transfert  
  finally
    fmLOG.Free;
  end;
Je me retourne vers vous pour trouver la solution

Merci par avance.