salut c'est titemireille
toujours aux prises avec ses formulaires!
bien, alors mon pb du jour est le suivant : remplir des combobox avec les données contenues dans une feuille excel. Lisez jusqu'au bout SVP
je précise :
D'un côté, j'ai un fichier word que je veux remplir avec un formulaire.
De l'autre côté, j'ai un classeur excel avec plusieurs feuilles.
j'ouvre mon formulaire dans word, je remplis la combox1 avec la liste des onglets de mon classeur, par ex. X, Y et Z
dans la combobox1, je choisis par exemple Y et les autres combobox doivent se remplir avec les données contenues dans les cellules de la feuille Y.
j'ai environ 20 cellules et chacune doit remplir une combobox differente, 10 cellules = 10 combobox.
le code a fonctionné trois ou quatre fois mais cela ne marche plus.
en fait, cela fonctionne jusqu'à la réouverture de la page selectionnée et puis je recois un message d'erreur : "la méthode sheets de l'objet global à échoué"
pouvez vous m'aider s'il vous plait
merci d'avance
le code est le suivant, la combobox1 s'appelle "mome", la combobox2 s'appelle combobox1
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 Option Explicit Private Sub Userform_initialize() 'Avenant au contrat d'accueil 'Déclaration des variables pour ouvrir Excel 'Application Excel Dim appExcel As New Excel.Application 'Classeur Excel Dim wbExcel As Excel.Workbook 'Feuille Excel Dim wsExcel As Excel.Worksheet 'Ouverture de l'application 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Mes documents\Mes sources de données/Données.xls") appExcel.Visible = True 'Choix du nom de l'enfant Dim sh As Worksheet For Each sh In activeworkbook.Sheets mome.AddItem sh.name Next appExcel.Workbooks("Données.xls").Close appExcel.Quit End Sub Private Sub Valider_click() 'insertion du nom de l'enfant dans mon document word Selection.GoTo , , , "enfantnom" Dim smome As String smome = mome Selection.InsertAfter mome 'Déclaration des variables pour ouvrir Excel 'Application Excel Dim appExcel As New Excel.Application 'Classeur Excel Dim wbExcel As Excel.Workbook 'Feuille Excel Dim wsExcel As Excel.Worksheet 'Ouverture de l'application 'Ouverture d'un fichier Excel 'ouverture de la feuille correspondant au nom de l'enfant choisi Dim ssmome As String ssmome = mome Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Mes documents\Mes sources de données/Données.xls") appExcel.Visible = True wbExcel.Sheets(ssmome).Activate 'insertion de la date d'entrée dans la comboxbox Dim i For i = 1 To 1 comboBox1.AddItem Sheets(ssmome).Cells(6, 2) Next 'insertion de la date d'entée dans le document word Dim sdateentree As String sdateentree = comboBox1 Selection.InsertAfter comboBox1 End Sub
Partager