Bonjour tout le monde,
J’ai un petit problème d’écriture sur les checkbox que je n’ai jamais utilisé.
Voici mon exemple j’ai 6 checkbox qui me permette de lancer différent publipostage
Regarde la pièce jointe 1212.bmp
Concernant la macro de publipostage, je l’utilise déjà depuis longtemps la voici :
J’aimerais qu’une vérification se fasse au niveau des checkbox :
- Si checkbox 1+2+3 n’est pas coché lancé la macro publipostage (Fichier 1)
- Si checkbox 1 est coché lancé la macro publipostage (Fichier 2)
- Si checkbox 1+2 est coché lancé la macro publipostage (Fichier 3)
- Si checkbox 1+4 est coché lancé la macro publipostage (Fichier 2+4)
2 publipostages différents
- Si checkbox 1+4+5+6 est coché lancé la macro publipostage (Fichier 2+4+5+6)
4 publipostages différents
J’ai réfléchis à la façon de procéder et je pense que le mieux serait de faire la vérification dans un premier temps ce qui permettrait de déterminer qu’elle macro de publipostage doit être lancé.
N’hésitez pas à me dire si ma réflexion est erronée.
Voici ce que j’ai pu trouver concernant les checkbox mais vu les nombreux cas je ne vois pas comment les structurer.
Un peu plus de précision concernant mon exemple, les checkbox 1, 2 et 3 lance un fichier de publipostage différent même si les 3 sont cochées, alors que les checkbox 4, 5 et 6 lance 1 fichier de publipostage chacune.
Exemple : Si toute les checkbox sont cochées (1+2+3+4+5+6). Elles ne lanceront que 4 publipostages différents.
1+2+3 = 1
4 = 1
5 = 1
6 = 1
Merci d’avance de m’éclairer de vos lumières.
Cordialement,
J’ai un petit problème d’écriture sur les checkbox que je n’ai jamais utilisé.
Voici mon exemple j’ai 6 checkbox qui me permette de lancer différent publipostage
Regarde la pièce jointe 1212.bmp
Concernant la macro de publipostage, je l’utilise déjà depuis longtemps la voici :
Code:
Sub Nom de la macro()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
NomBase = "chemin du fichier"
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
Set docWord = appWord.Documents.Open("chemin du fichier")
With docWord.mailMerge
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [AFAPS_BDD$]"
.Execute Pause:=False
End With
Application.ScreenUpdating = True
End Sub- Si checkbox 1+2+3 n’est pas coché lancé la macro publipostage (Fichier 1)
- Si checkbox 1 est coché lancé la macro publipostage (Fichier 2)
- Si checkbox 1+2 est coché lancé la macro publipostage (Fichier 3)
- Si checkbox 1+4 est coché lancé la macro publipostage (Fichier 2+4)
2 publipostages différents
- Si checkbox 1+4+5+6 est coché lancé la macro publipostage (Fichier 2+4+5+6)
4 publipostages différents
J’ai réfléchis à la façon de procéder et je pense que le mieux serait de faire la vérification dans un premier temps ce qui permettrait de déterminer qu’elle macro de publipostage doit être lancé.
N’hésitez pas à me dire si ma réflexion est erronée.
Voici ce que j’ai pu trouver concernant les checkbox mais vu les nombreux cas je ne vois pas comment les structurer.
Code:
1. Private Sub CheckBox1_Change()
2. If CheckBox1.Value = True Then
3. Range("E1").Value = "1"
4. Else
5. Range("E1").Value = ""
6. End If
7. End SubUn peu plus de précision concernant mon exemple, les checkbox 1, 2 et 3 lance un fichier de publipostage différent même si les 3 sont cochées, alors que les checkbox 4, 5 et 6 lance 1 fichier de publipostage chacune.
Exemple : Si toute les checkbox sont cochées (1+2+3+4+5+6). Elles ne lanceront que 4 publipostages différents.
1+2+3 = 1
4 = 1
5 = 1
6 = 1
Merci d’avance de m’éclairer de vos lumières.
Cordialement,
Dernière édition:
