Soucis avec excel

Version imprimable

06/10/2005, 11h34
poussinphp

Soucis avec excel

Bonjour,

Je doit faire un petit utilitaire qui vérifie le contenu de feuilles excel pour corriger les problèmes lors de l'insertion. J'ai un petit soucis concernant l'utilisation des fichiers.

Les feuilles sont protégé. Dans excel il suffit de faire "ôter la protection de la feuille" mais en delphi comment fait t'on ça? :?
06/10/2005, 11h49
Manopower

Si tu utilises TExcelApplication et que tu veux effectuer une action que tu ne sais pas écrire en Delphi voici comment faire : (c'est comme ça que je faisais)

:arrow: Dans Excel tu créé une macro, tu effectue ton action (dans ton cas ôter la protection de la feuille
:arrow: tu termines ta macro, tu vas l'éditer, tu regardes le code généré en VBA, et tu essaye d'adapter logiquement en Delphi.

Je n'ai jamais essayé de retranscrir cette fonction précise, et je ne sais pas comment ça se passe si la protection de la feuille a un mot de passe.

Bon courage, et si tu trouves par cette méthode, écris le code Delphi ça peut en intéresser plus d'un !
06/10/2005, 11h55
poussinphp

Je vient de regarder dans vba.

On obtient

Citation:

ActiveSheet.Unprotect

Je cherche dans delphi avec activesheet mais ya rien. j'ai cherché partout les fonction unprotect, protect, protected.... rien :(

Essai dont ça :

Code:

1
2
3
4
5
6
7
8
9
 
  try
    vMSExcel := GetActiveOleObject('Excel.Application');
  except
    vMSExcel := CreateOleObject('Excel.Application');
  end;
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook  := vXLWorkbooks.Open(OpenDialog1.FileName, vLink, vReadOnly);
  vXLWorkbook.WorkSheets[NumeroDeLaFeuille].Unprotect;

06/10/2005, 12h21
poussinphp

ton vMSExcel fais référence à quoi? :?
06/10/2005, 12h23
Bissada

vMSExcel est l'objet OLE Excel.Application
06/10/2005, 13h05
poussinphp

J'ai essayé et ça marche pas.

J'ai trouvé cette fonction :

Citation:

Excel.Workbooks.Item[1].Unprotect('',0);

Malheureusement, ça ne fais rien :(

Cette fonction marche, c'est sur !

Par exemple, tu as un classeur Excel qui contient une seule feuille protégée par le mot de passe "coucou"

1) Crée un nouveau projet et ajoute la bibliothèque "ComObj"
2) Ajoute ces variables globales :
Code:

1 2 3 vMSExcel : variant; vXLWorkbooks, vXLWorkbook, vReadOnly, vLink, vWorksheet : variant;
3) Place un composant OpenDialog et un bouton
4) Sur le clic du bouton effectue la procédure suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 try vMSExcel := GetActiveOleObject('Excel.Application'); except vMSExcel := CreateOleObject('Excel.Application'); end; vXLWorkbooks := vMSExcel.Workbooks; vXLWorkbook := vXLWorkbooks.Open(OpenDialog1.FileName, vLink, vReadOnly); vWorksheet := vXLWorkbook.WorkSheets[iFeuille]; vWorksheet.Unprotect('coucou'); vXLWorkbook.Close(true, OpenDialog1.FileName); vMSExcel.Quit; vMSExcel := unassigned;
Vérifie ensuite que ta feuille n'est plus protégée dans Excel !

A+
Julien[/code]

06/10/2005, 15h52
poussinphp

ça fonctionne !!!

Merci beaucoup :D
07/10/2005, 10h09
Giovanny Temgoua

Bonjour,

Désolé de faire remonter le thread mais je voulais savoir si tu a testé cette le code de la FAQ :
:arrow: http://delphi.developpez.com/faq/?pa...celfeuproteger

Merci de préciser ta version d'Excel aussi.
07/10/2005, 10h14
Bissada

C'est à partir de la FAQ que j'ai appris à utiliser Excel ! :lol:

Cette procédure fonctionne aussi bien avec Excel 2000 qu'avec Excel 2003.