SQLCB.DBMS = "ODBC"
SQLCB.DBParm = "ConnectString='DSN=ma source xls',DelimitIdentifier='No'"

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

OLEobject lole_range
Any la_value

lole_range = lo_ole.Range("e1:e800").Find("D574-60652-001-20")

// test IfNull( lole_range ) à faire

la_value = lole_range.Cells(1, 1).Value

Sub NommerMaTable()
' Les colonnes A à C contiennent mes données
    Columns("A:C").Select
    ActiveWorkbook.Names.Add Name:="ma_table", RefersToR1C1:="=Feuil1!C1:C3"
End Sub

global type f_file_load_excel from function_object
end type

forward prototypes
global function integer f_file_load_excel (string as_filename, ref s_filedata astr_filedata[])
end prototypes

global function integer f_file_load_excel (string as_filename, ref s_filedata astr_filedata[]);// Fonction : Lecture d'un fichier excel, décomposition et chargement dans une structure s_filedata
// Auteur : PH. BUCAILLE
// Date : 03/11/2005

// Arguments :
// as_filename : nom du fichier excel à charger

// Valeur retournée par référence :
// astr_filedata : contenu du fichier excel décomposé dans une structure s_filedata

// Valeur retournée :
// 1 : opération réussi
// -1 : Impossible de se connecter à l'objet (excel n'est probablement pas installé sur le poste)
// -2 : Classeur excel introuvable
// -3 : Feuille de calcul introuvable
// -4 : Feuille de calcul vide
// -5 : Opération annulée par l'utilisateur
long       ll_nbrlignes, ll_nbrcols, ll_nbrsheet, ll_nbrclasseur
long      ll_i, ll_j
string    ls_waitmsg, ls_path, ls_file, ls_range, ls_columnname

any      ls_columncontent[]

s_filedata  lstr_filedata[]
w_progress   lw_prg
OLEObject  lole_excel

lole_excel = CREATE OLEObject

DoSablier(True)
UsrWaitPlease(TRUE)

IF lole_excel.ConnectToObject( as_filename ) = 0 THEN
      
  ls_waitmsg = "Un instant S.V.P, lecture du fichier excel en cours : "
  
  getfilefrompath(as_filename, ls_path, ls_file)
    
  // Récupération informations sur le fichier excel
  
  // Nombre de classeur
  ll_nbrclasseur  = lole_excel.application.workbooks.Count
  IF ll_nbrclasseur = 0 THEN 
    lole_excel.DisconnectObject()
    DESTROY lole_excel
    UsrWaitPlease(FALSE)
    RETURN -2 // Aucun classeur trouvé dans le document excel
  END IF  
  
  // Nombre de feuille de calcul
  ll_nbrsheet   = lole_excel.application.workbooks(ls_file).worksheets.Count
  IF ll_nbrsheet = 0 THEN 
    lole_excel.DisconnectObject()
    DESTROY lole_excel
    UsrWaitPlease(FALSE)
    RETURN -3 // Aucune feuille de calcul trouvée dans le document excel
  END IF  
  
  // Remarque : Il faut préciser nominativement le nom du classeur (workbooks) et non mettre l'indice 1
  // En cas d'instance d'excel ouverte avec un fichier, on importe ce fichier et non celui désiré
    
  // Nombre de colonnes
  ll_nbrcols    = lole_excel.application.workbooks(ls_file).worksheets(1).UsedRange.Columns.Count
    
  // Nombre de lignes
  ll_nbrlignes  = lole_excel.application.workbooks(ls_file).worksheets(1).UsedRange.Rows.Count
  
  IF ll_nbrcols = 0 OR ll_nbrlignes = 0 THEN 
    lole_excel.DisconnectObject()
    DESTROY lole_excel
    UsrWaitPlease(FALSE)
    RETURN -4 // Feuille de calcul vide
  END IF  
  
  UsrWaitPlease(FALSE)
  lw_prg = ThermoInit ( ls_waitmsg , ll_nbrcols, True )
  
  FOR ll_j = 1 TO ll_nbrcols
        
    // Nom de la colonne sous la forme : $A:$A
    ls_columnname = lole_excel.application.workbooks(ls_file).worksheets(1).Columns(ll_j).Address
    // Extraction de la dénomination alphabétique uniquement de la colonnne : $A:$A => A
    ls_columnname = Mid( ls_columnname, 2, Pos(ls_columnname, ':') - 2)
    
    // Construction de la plage de données à extraire de la colonne => ex : "A1:A3300"
    ls_range = ls_columnname + '1:' + ls_columnname + string(ll_nbrlignes)
    
    // Extraction du contenu de la colonne
    ls_columncontent = lole_excel.application.workbooks(ls_file).worksheets(1).Range(ls_range).Value
      
    FOR ll_i = 1 TO ll_nbrlignes
            
      lstr_filedata[ll_i].ss_data[ll_j] = trim(string(ls_columncontent[ll_i]))
            
      // Cas particulier de l'import du plan comptable API
      // Colonne contenant la valeur VRAI ou FAUX => EXCEL l'interprète comme la valeur logique
      // En lecture, on obtient les valeurs true ou false et non la chaîne VRAI ou FAUX
      CHOOSE CASE lower(lstr_filedata[ll_i].ss_data[ll_j])
        CASE "false"
          lstr_filedata[ll_i].ss_data[ll_j] = "0"
        CASE "true"
          lstr_filedata[ll_i].ss_data[ll_j] = "1"
      END CHOOSE    
      
      IF IsNull(lstr_filedata[ll_i].ss_data[ll_j]) THEN lstr_filedata[ll_i].ss_data[ll_j] = ""
      
      // Remarque PH. BUCAILLE 01/03/2006 PB 9.0.3.8565 : On n'utilise pas le code çi-dessous avec une variable intermédiaire
      // On obtient par cette méthode une utilisation aberrante de la mémoire : 600 Mo pour 3000 lignes
      // Problème d'allocation mémoire surement à la taille maximum de la variable ls_cellule !!
      
      // ls_cellule = trim(string(lole_excel.application.workbooks(ls_file).worksheets(1).cells(ll_i, ll_j).value))
      // IF ISNULL(ls_cellule) THEN ls_cellule = ""
      // lstr_filedata[ll_i].ss_data[ll_j] = ls_cellule
    
    NEXT
    
    IF NOT lw_prg.Stopped THEN 
      ThermoIteration ( ll_j, lw_prg) 
    ELSE 
      DoSablier( FALSE )
      lole_excel.DisconnectObject()
      DESTROY lole_excel
      CLOSE( lw_prg )  
      RETURN -5
    END IF
    
  NEXT
  
  DoSablier( FALSE )
  CLOSE( lw_prg )  
  
  lole_excel.DisconnectObject()
ELSE
  UsrWaitPlease(FALSE)
  Dosablier(FALSE)
  RETURN -1
END IF  

DESTROY lole_excel

astr_filedata = lstr_filedata

RETURN 1
end function

global type s_filedata from structure
  string    ss_data[]
end type

// Copy the data from the array of structures to the destination DataWindow
dw_dest.Object.Data = lstr_Data

lstr_filedata[ll_i].str_fields.si_age = integer(trim(string(ls_columncontent[ll_i])))

lstr_filedata[ll_i].str_fields.ss_nom = trim(string(ls_columncontent[ll_i]))