Pb Ole excel
emubusta
Messages postés
27
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
21 mai 2008
-
23 mai 2007 à 08:21
WhiteHippo Messages postés 1154 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 5 avril 2012 - 28 mai 2007 à 14:26
WhiteHippo Messages postés 1154 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 5 avril 2012 - 28 mai 2007 à 14:26
1 réponse
WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
3
28 mai 2007 à 14:26
28 mai 2007 à 14:26
Bonjour,
Une fonction rapide, non testée, et à améliorer, mais le principe est là :
function WorksheetExists( Wb : variant ; WsName : string ) :
// Wb = WorkBook
// WsName = Nom du WorkSheet
boolean ;
var
i : integer;
begin
Result := false ;
for i:=0 to Wb.WorkSheets.Count-1 do
begin Result :( Wb.WorkSheets[i].Name WsName ) ;
if Result then Exit ;
end ;
end ;
Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein
Une fonction rapide, non testée, et à améliorer, mais le principe est là :
function WorksheetExists( Wb : variant ; WsName : string ) :
// Wb = WorkBook
// WsName = Nom du WorkSheet
boolean ;
var
i : integer;
begin
Result := false ;
for i:=0 to Wb.WorkSheets.Count-1 do
begin Result :( Wb.WorkSheets[i].Name WsName ) ;
if Result then Exit ;
end ;
end ;
Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein