ATTAQUER EXCEL AVEC DELPHI

Commentaire de aymenk le 18/06/2005 12:38:19

Tous commentaires est le bienvenus...
Faites moi savoir si vous faites des Modifications sur ce code

Commentaire de aymenk le 19/06/2005 09:57:13

Merci Delphiprog.Mais si on vois tous les exemples y'en beaucoup qui dépasser même Delphi5 ,comme celui qui dessine un calendrier sur le Wallpapaer du bureau,si je te dis que je me vois VIEUX on utilisant D5 !!!???...
Merçi quand même ..puisque nous y somme donne moi votre avis sur l'exemple de cryptage

Commentaire de papyvore le 20/06/2005 09:37:20

pour SIDENA
(****************************************
Modif pour fonctionnement avec D7
- ajouer l'unité Variants
- change tous les Range en ExcelRange
- ajouter 2 params EmptyParam a tous les Open(fichierXLS....
    Open(fichierXLS,False,False,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
      devient
    Open(fichierXLS,False,False,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,0);
a priori ça marche sur D7 avec ces modifs      
*****************************************)

Commentaire de sidena le 20/06/2005 10:49:57

Merci, mais ça ne marche pas encore.
Ok pour Variants, ok pour les open, mais après avoir changé Range en Excelrange ligne 308, j'ai :
[Erreur] Unit1.pas(390): '[' attendu(e) mais ':=' trouvé(e)
le ligne 390 étant :
  MaFeuille.Range['B1','E3'].Value:='Hello World Cellule Ajuster par largeur ...etc'  ;
??!!

Commentaire de papyvore le 20/06/2005 11:18:56

correctif
y compris MaFeuille.Range['B1','E3'].Value et tous les autres range

Commentaire de papyvore le 20/06/2005 12:30:40

oups erreur de ma part dans l'explication
il faut bien laisser les
  MaFeuille.Range['B1','E3'].Value
Mais il faut changer toutes le variables de Type Range en            ExcelRange désolé  :(
Exemple
procedure TForm1.Button21Click(Sender: TObject);
var
  MonClasseur : _workbook;
  MaFeuille   : _worksheet;
  rMaPlage    : ExcelRange;//Range;
begin
If ExcelApplication1.Workbooks.Count>=1 Then                           //xlWBATExcel4MacroSheet : Feuille macro Excel 4
  MonClasseur:=ExcelApplication1.Workbooks[1];
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  rMaPlage:=MaFeuille.UsedRange[0];
  //Attention : la plage définie par UsedRange est remise à jour par Excel
  //après des insertions ou suppression lors du prochain appel de UsedRange.
  //Par exemple l'adresse montrée ici n'est pas correcte :
MaFeuille.Range['A2','A4'].EntireRow.Delete(xlUp);
.........................
je pense ne rien avoir oublié

Commentaire de papyvore le 21/06/2005 09:33:45

j'ai la même config que toi et je t'assure que ça marche.
tu drevrais tout reprendre a zéro en replaçant l'unit1 télécharger
et faire les modifs
parceque la ligne 390 est
          MaFeuille.Range['B5','C12'].Select;
et non    MaFeuille.Range['B1','E3'].Value

le seul   MaFeuille.Range['B1','E3'].Value2 :='Hello World ...
est à la ligne 325.
rééssais c'est une bonne unit.
mais n'oublit pas avant compil et aprés les modifs de supprimer le .dcu fourni dans le zip qui est un D5, ou bien fait menu construire projet1.
si tu ne supprime pas le DCU c'est lui qui est prit en pemier
et génére des erreurs (ce qui m'est arrivé) :)
aprés ça marche trés bien.

Commentaire de papyvore le 27/06/2005 19:42:33

bonjour
remplace value par value2
ligne :   MaFeuille.Range['B1','E3'].Value := 'Hello ..etc
devient   MaFeuille.Range['B1','E3'].Value2 := 'Hello ..etc

procedure TForm1.Button23Click(Sender: TObject);
var
  MonClasseur : _workbook;
  MaFeuille   : _worksheet;
begin
  ExcelApplication1.SheetsInNewWorkbook[0]:=1;
  MonClasseur:=ExcelApplication1.Workbooks.Add(EmptyParam,0);
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  MaFeuille.Range['B1','E3'].Value2 :='Hello World Cellule Ajuster par largeur ...etc'  ;
  ExcelApplication1.Visible[0]:=true;
  with  MaFeuille.Range['A1','E3'] do
  begin

Commentaire de papyvore le 29/06/2005 09:23:20

bonjour
en D7 value est remplacé par value2 et value demande d'autre param [olevariant]

ces commandes sont dans ExcelXP.pas

Button22Click donne un ex. de graphe
tu peu aussi aller voir
http://delphi.developpez.com/faq/?page=excelgraphs#excelgraphtravail

Commentaire de groben le 14/11/2005 11:54:20

Bonjour,
Je bosse avec une très vielle version de Delphi : delphi2.0 & je dois piloter Excel, Je peux le lancer faire quelques bidouilles, mais je n'ai ni Variant.pas, ni CimObj.pas, ni Excel200.pas...
1) comment savoir quelles fonctions je peux utiliser
2) est il possible de récupérer les fichiers *.pas et les DLL coorrrespondants ?
Merci de m'éclairer, bonne prog
BEN

Commentaire de Mouniriz le 12/05/2006 10:38:33

Salut tt le monde !
Les tuto ont l'air cool mais je pe pas les utiliser. Je pe pas faire de graphes sur excel parceke il me manke les uses excel2000 ou 97.pas et *.dcu.
Je cri "a l'aide" et je vous demande si kelkun peu me les envoyer a mounirdrd@aol.com.
Merci

Commentaire de yvessimon le 15/05/2006 08:48:04

Bonjour,

Delphi 2 avec windows 95 ? alors bon courage ! .

Passe à une version résente. Ce sera plus facile.

sur mon poste les fichiers  sont sur
C:\Program Files\Borland\Delphi7\Ocx\Servers
C:\Program Files\Borland\Delphi7\Imports
as tu fait une recherche complette sur les repertoires ?


Salutations

Commentaire de drezmir le 18/12/2006 10:00:34

Bonjour (Excuse-moi pour ma francaise)

J'ai une question:
Pour visualiser les Gridlines en Excel il doive ecrire
  // Show/ Hide Gridlines:
    ExcelApp.ActiveWindow.DisplayGridlines := False; // ou True.

Ma question.
Si je ne veut pas visualier le Zero values.. je doive ecrire ?
ExcelApp.ActiveWindow.??????:=False;

Merci

Commentaire de guykoumba le 05/02/2008 15:44:04

Salut à tous.Le code est très interressant et ca marche chez moi.Mais j'essai d'utiliser la fonction AutoFilter pour filtrer une plage mais ja n'y arrive pas.Quelqu'un pourrait-il m'aider?

Commentaire de yvessimon le 01/07/2008 08:39:01

Bonjour,

Regarde avec windows 2000, cela fonctionne très bien

Salutations

Commentaire de yvessimon le 01/07/2008 09:03:14

Bonjour,
Soit tu installes windows 2000 sur ton pc
soit tu utilises un autre pc qui a windows 2000

Salutations