lire des cellules excel

Question

###TITEUF###
 ;)  >:) 
Salut à tous !!
Débutant, j'aimerais savoir le plus simplement comment ouvrir un fichier excel test.xls, récupérer les infos dans la cellule A1 et D4, puis les afficher dans une textbox, et refermer le tout sans dégats.

Mais aussi, aller copier les infos d'une textbox dans des cellules bien précises A1 et D4;

Merci de votre écoute.

A+

econs · Answer

'Ajouter la référence Microsoft Excel X.y pour que le type EXCEL soit pris en compte


Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")

    'Creation d'un classeur Excel
    objExcel.Workbooks.Add
    
    'objExcel.Workbooks.Open "toto.xls" pour une ouverture

    With objExcel.ActiveSheet

    .Range("A2").Value = "coucou"
    For i=1 to 4    
    .Range("B" & i).Value = i

    'Recupération d'une valeur
    MsgBox .Range("B3").Value

    End With

    objExcel.Visible = True

    'Fermeture sans sauvegarder
    'objExcel.Quit
    'Set objExcel = Nothing



Manu

econs · Answer

For i=1 to 4 
.Range("B" & i).Value = i
NEXT I

lol j'ai oublié le Next i !!!!

Manu

cs_titeuf44 · Answer

###TITEUF###
 ;)  >:) 

Merci pour ton aide, je pense pouvoir m'en sortir.

A+

Lire des cellules excel

3 réponses

Discussions similaires