Discussion :

[BenoitB31]

Bonjour,

je vous présente mon projet et ce que j'ai déjà fait mais je bloque.
Je veux pouvoir sélectionner différents type de documents pour un ou plusieurs produits.
Avec la commande call je les appelles et les copie dans un dossier mais je bloque pour sélectionner plusieurs documents pour les différents produits.

A ce jour j'avais réussi avec le code ci-dessous mais seulement avec 2 type de documents. Je pense que je n'utilise pas la bonne méthode merci de vos avis et de votre aide.
Dans la réalité j'aurais 6 types de docs et environ 100 produits différents.

un extrait de mon code:

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
Private Sub UserForm_Click()
 
Private Sub CMD_Click()
 
'Application.Dialogs(wdDialogFileSaveAs).Show
 
Application.ScreenUpdating = False
 
Call cdecopy
 
If chkP1 = True Then 'Selection de du produit
 
If chkdocutil = True Then 'si demande de la doc util
 
Call selectpdf("docutilP1.pdf") 'Selection du fichier doc util
 
ElseIf chkdocinst = True Then 'si demande du certif
 
Call selectpdf("docinstP1).pdf") 'Selection du fichier Certif
 
End If
 
If chkdocutil = True And chkdocinst = True Then 'si demande de la NTP et du certif
 
Call selectpdf("docutilP1.pdf") 'Selection du fichier Certif
 
Call selectpdf("docinstP1") 'Selection du fichier NTP
 
End If
 
End If
 
If chkP2 = True Then 'Selection de du produit
 
If chkdocutil = True Then 'si demande de la doc util
 
Call selectpdf("docutilP2.pdf") 'Selection du fichier doc util
 
ElseIf chkdocinst = True Then 'si demande du certif
 
Call selectpdf("docinstP2).pdf") 'Selection du fichier Certif
 
End If
 
If chkdocutil = True And chkdocinst = True Then 'si demande de la NTP et du certif
 
Call selectpdf("docutilP2.pdf") 'Selection du fichier Certif
 
Call selectpdf("docinstP2") 'Selection du fichier NTP
 
End If
 
End If
 
End Sub

Merci

[Invité]

Bonjour,

J'aurais à faire cela, je le ferais sous Excel. Pour cela, j'aurais :

• Une table des documents possibles (6).
• Une tables des produits (100).

Enfin, si pour un produit, seul 1 ou plusieurs documents sont possibles sur l'ensemble, il vous faut une troisième table associant les produits et les documents.

Dans un Userform, j'aurais un liste à liste (comprendre deux ListBox) qui me permettrait de sélectionner mes produits (ou mes couples) et une fois ceux-ci définis, j'aurais la possibilité de choisir les documents souhaités également à partir d'un liste à liste et non pas à partir des CheckBox car non évolutif.

C'est possible de faire cela sous Word, mais en allant chercher vos données dans des tables Excel. Cependant la mise au point à partir d'Excel est plus facile.

Vous avez un exemple de liste à liste Word dans mon blog : Word-vba-concatener-fichiers-dat-sauvegarde-rtf-partir-document-word-docm.
Nb : Le principe est le même sous Excel.

Pour charger une Combobox (ou une ListBox) Word avec une table Excel : Word-charger-combobox-range-excel

[BenoitB31]

Merci pour ta méthodologie je regarde si j'arrive a faire comme ça.