Word - excel

[Résolu]
Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
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

@+

3 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
On Error GoTo Fin
set xlBook = xlApp.WorkBooks.Open(Chemin_Nom)
<strike>On Error Resume Next</strike>
On Error GoTo 0

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

merci ;)