J'utilise le code suivant pour remplir des cellules dans excel et qui marche bien.

Mais comment changer la valeur d'un objet 'togglebutton' (1 choix posible sur les 3) depuis access?



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim Path As String
    Dim Ffeuil As String
    Dim ExcelApp As Object
    Dim Excelsheet As Object
 
    Path= "le chemin de mon classeur.xls"
    Feuil = "la_Feuille_de_mon_classeur"
    Set ExcelApp = GetObject(Path)
    Set Excelsheet = ExcelApp.Worksheets(Feuil)
   'j ecris dans cette cellule     A1  
    Excelsheet.Cells(1,1) = Me.un_champ_de_mon_formulaire
     ExcelApp.Save    
    Set Excelsheet = Nothing
    Set ExcelApp = Nothing   
    MsgBox "Fin de l'écriture. :)"
merci de votre aide