Discussion :

[audiman]

Bonjour a tous

je viens vers vous car je suis embeté dans un document word, j'ai une liste déroulante qui donne les noms de mes collegue, une autre qui me donne leur numéros de telephone et une autre qui me donne leur service et je voudrais que lorsque je choisi un nom dans les deux autre j'ai son numero de telephone et son service comme la fonction recherche v dans excel
merci a vous pour vos reponses

[Heureux-oli]

Salut,

On peut le faire, mais ce n'est pas si simple, Word reste un traitement de texte et pas de données.

Comment sont agencées les données dans ton document ?
La façon dont les données sont dans le document a une importance primordiale.

[audiman]

Salut,

On peut le faire, mais ce n'est pas si simple, Word reste un traitement de texte et pas de données.

Comment sont agencées les données dans ton document ?
La façon dont les données sont dans le document a une importance primordiale.

bonjour mr heureux oli
les donnees sont crees grace a l'outil liste deroulante de la barre d'outil formulaire puis propriete. les liste sont les unes en dessous des autres
sur des lignes differentes dans une colonne de tableau Je me permets de vous joindre un fichier pour vous voyez mieux mon soucis

encore merci de vos reponses

[Heureux-oli]

Salut,

Je vais t'aider à le faire autrement.

[audiman]

Salut,

Je vais t'aider à le faire autrement.

merci beaucoup et dans le meme tableau j'essaye aussi d'inserer un calendrier automatique au niveau de la date d'expedition.
encore merci beaucoup

[Heureux-oli]

Une des choses les plus faciles à faire, c'est un document contenant un tableau avec toutes les données.
Ce document va servir de "base de données", je choisis toujours un tableau parce que la mise à jour est assez facile à faire, il suffit d'ajouter une ligne et les données.

Ensuite, on va aller chercher les données pour remplir les cases qui sont utiles. Cette méthode n'est pas très performante, on ne peut pas gérer de grande quantités de données. Je ne sais pas quel est le nombre d'enregistrements que tu compte gérer, mais je pense que dans un premier temps, ça devrait le faire.

Si tu préfères, on peut utiliser un tableau Excel pour les données.

Dis moi ce que tu en penses.

[audiman]

Une des choses les plus faciles à faire, c'est un document contenant un tableau avec toutes les données.
Ce document va servir de "base de données", je choisis toujours un tableau parce que la mise à jour est assez facile à faire, il suffit d'ajouter une ligne et les données.

Ensuite, on va aller chercher les données pour remplir les cases qui sont utiles. Cette méthode n'est pas très performante, on ne peut pas gérer de grande quantités de données. Je ne sais pas quel est le nombre d'enregistrements que tu compte gérer, mais je pense que dans un premier temps, ça devrait le faire.

Si tu préfères, on peut utiliser un tableau Excel pour les données.

Dis moi ce que tu en penses.

mr heureux oli

j'ai 7 noms a inserer 7 n° de tel 3 API 7 n° IPN si vous creer un tableau dans word
Si cela se fait dans excel cela voudris dir que chaque cellule un peut comme cela mais apres je ne vois pas comment on peut faire pour lui dire de mettre les valeurs au bon endroit c'est comme mon calendrier automatique je ne sais pas comment lui dire de mettre la date au bon endroit car dans excel j'arrive car c'est un range

merci encore pour votre aide

[Heureux-oli]

Salut,

Regarde si ce mode de fonctionnement peut te convenir.

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
 
Sub Document_Open()
'Déclaration des variables
Dim myFld As FormField
Dim myFile As String
Dim myDLG As FileDialog
Dim xlApp As Excel.Application
Dim xlSH As Excel.Worksheet
Dim xlCell As Cell
Dim noLigne As Integer
 
'Déprotéger le document
ActiveDocument.Unprotect
'Affectation de l'objet Excel pour obtenir les données
Set xlApp = New Excel.Application
 
'Affectation de l'objet Fields
Set myFld = ActiveDocument.FormFields("Liste1")
'Vider la liste pour la mettre à jour
myFld.DropDown.ListEntries.Clear
'Ouverture de la boîte de dialogue pour ouvrir le fichier Excel
Set myDLG = Application.FileDialog(msoFileDialogFilePicker)
With myDLG
    .InitialFileName = "essai1.xls"
    .Show
End With
myFile = myDLG.SelectedItems(1)
Set xlSH = xlApp.Workbooks.Open(myFile).Worksheets(1)
'Ajout des données
For noLigne = 2 To xlSH.UsedRange.Rows.Count
      myFld.DropDown.ListEntries.Add xlSH.Cells(noLigne, 1), noLigne - 1
Next noLigne
xlApp.ActiveWorkbook.Close SaveChanges:=False
Set xlSH = Nothing
xlApp.Quit
Set xlApp = Nothing
Set myFld = Nothing
Set myDLG = Nothing
'Protection du document
ActiveDocument.Protect wdAllowOnlyFormFields
 
 
End Sub

J'ai utilisé le fichier Excel que tu as posté sur le forum.