Word - excel

Résolu
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
- 24 août 2007 à 12:30
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
- 24 août 2007 à 17:56
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

mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
17
24 août 2007 à 16:33
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
3
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
17
24 août 2007 à 16:36
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
3
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

24 août 2007 à 17:56
merci ;)
0