word - excelRésolu

Question

Bonjour

Je cherche comment  je pourait faire depuis word pour que quand je coche une checkbox sa me renvoie une donnée ( du texte)  dans une cellule d'un classeur excel.

Merci d'avance

@+

mortalino · Accepted Answer

salut,

faut référencer Excel et ouvrir ton classeur (comme si tu pilotais Excel depuis VB6) :

Coche microsoft excel object library
(attention, je ne teste rien) :

Function MyVal(ByVal Chemin_Nom As String, ByVal NomOnglet As String, _
        ByVal AdresseCell As String) As String

Dim xlApp As New Excel.Application
Dim xlBook As Excel.WorkBook

On Error GoTo Fin
set xlBook = xlApp.WorkBooks.Open(Chemin_Nom)
On Error Resume Next

With xlBook
    .Sheets(NomOnglet).Select
    MyVal = .Range(AdresseCell).Value
End With

xlBook.Close False
Set xlBook = Nothing
Fin:
xlApp.Quit
Set xlApp = Nothing
End Function

Exemple d'appel :
MsgBox MyVal("C:\Mon Dossier\Mon Fichier.xls", "Totaux", "E2")

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

mortalino · Answer

On Error GoTo Fin set xlBook = xlApp.WorkBooks.Open(Chemin_Nom) ~~On Error Resume Next~~ On Error GoTo 0 @++

( Nouveau forum : Exclusivement Office & VBA

dodo1309 · Answer

merci ;)

Word - excel

3 réponses

Votre réponse

Discussions similaires