Forum du club des d�veloppeurs et IT Pro - VBA Word

Blocage de saisie

colnago4 — Fri, 19 Jun 2026 06:44:58 GMT

Bonjour j�ai un document sur lequel il y a un d�veloppement qui permet a l�aide de popup de saisir des donn�es chronophage (NOM, Pr�nom �. ) qui apparaissent un peu partout (ci-dessous).
Sur ces Popup, j�ai 3 champs � saisir pour la partie parents (NOM, Nom Usuel, Pr�nom,) 2 champs pour la partie enfant (Nom de l�enfant, Pr�nom de l�enfant) et 2 coches pour les parents (Sexe Masculin ; sexe f�minin) et 2 coches pour la partie enfant (Gar�on , Fille).

Le probl�me que le rencontre est que je ne peux pas cocher la partie parents sans que la partie enfant se d�coche et vice et versa.

Avez-vous id�e ?

ARRETE cong� de naissance contractuel - Copie.doc

CONSIDERANT la demande en date du xx/xx/xxxx par laquelle pour son enfant � Pr�nom enfant � � Nom enfant � n�(e) le xx/xx/xxxx ; � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique �, � grade �, � statut�, affect� � � affectation � sollicite un cong� suppl�mentaire de naissance au titre de son enfant � Pr�nom � � Nom � n�(e) le xx/xx/xxxx ;
CONSIDERANT que � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique � a �puis� ses droits � cong�s de maternit� et/ou de paternit� et d�accueil de l�enfant et /ou de cong� d�adoption ;
CONSIDERANT que � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique �, � grade �, � statut�, affect� � � affectation � a consomm� xx mois au titre du cong� suppl�mentaire de naissance.

ARTICLE 1 - A compter du xx/xx/xxxx et jusqu�au xx/xx/xxxx inclus, � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique � est plac� en cong� suppl�mentaire de naissance, soit xx mois.

ARTICLE 2 � Pendant ce cong� l'int�ress� a un droit � r�mun�ration correspondant � :

- 70% de son traitement pendant 1 mois du xx/xx/xxxx au xx/xx/xxxx inclus, sous r�serve des indemnit�s journali�res vers�es par la S�curit� Sociale, selon la r�glementation en vigueur
- 60% de son traitement pendant 1 mois du xx/xx/xxxx au xx/xx/xxxx inclus, sous r�serve des indemnit�s journali�res vers�es par la S�curit� Sociale, selon la r�glementation en vigueur
(� d�finir par HR par calcul selon dur�e du cong� comme cela se fait pour les cong�s maladie)
Pendant la dur�e du cong� suppl�mentaire de naissance, le cas �ch�ant, l�agent autoris� � exercer ses fonctions � temps partiel est r�tabli dans les droits d�un agent � temps plein.

ARTICLE 3 � En cas de d�c�s de l�enfant ou en cas de diminution importante des ressources du foyer, il pourra �tre mis fin au cong� suppl�mentaire de naissance � la demande de l�agent.

ARTICLE 4 � A l�issue de la p�riode accord�e, l�int�ress�(e) est r�int�gr�(e) de plein droit sur son poste.

Fichiers attach�s

ARRETE cong� de naissance contractuel - Copie.doc (66,5 Ko)

Changement de CAB

colnago4 — Thu, 11 Jun 2026 11:44:37 GMT

Bonjour,

J'ai un arr�t� type sur le quel je vourdrais que si je selectionne f�minin sur une popup, que le code barre *ARR-CPA* change en *ARR-CPAR *
ce code barre est dans le pied de page change. si je mets ce Code a Barre dans le texte, tout fonctionne mais dans le pied de page �a bloque

Vous avez des id�es ?

Pour info j'ai voulu ins�rer mon fichier qui est au format docm mais il n'est pas pris en compte

Ci dessous le mod�le Partie 1

Citation:

VU le code g�n�ral de la fonction publique ;
VU le d�cret n� 2020-1208 du 1er octobre 2020 ;

CONSIDERANT la lettre en date du xx/xx/xxxx par laquelle � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique �, � grade �, � statut�, affect�(e) � � affectation � sollicite un cong� de proche aidant pour s�occuper de � Pr�nom � � NOM � handicap�(e) ou en perte d�autonomie particuli�rement grave ;

CONSIDERANT les justificatifs produits � l�appui de la demande ;

SUR la proposition de Monsieur le Directeur G�n�ral des services du D�partement.

ARRET�

ARTICLE 1 - A compter du xx/xx/xxxx et jusqu�au xx/xx/xxxx inclus, � civilit� � � pr�nom � � nom usuel �, n�(e) � nom patronymique � est plac�(e) en cong� sans traitement de proche aidant, soit xx jours.

ARTICLE 2 � La dur�e de ce cong� est assimil�e � une p�riode de service effectif et est prise en compte pour la constitution et la liquidation des droits � pension de retraite.

ARTICLE 3 � Ce cong� peut �tre renouvel� par p�riode de 3 mois sans toutefois d�passer une dur�e d�un an pour toute la carri�re. La demande de renouvellement devra �tre formul�e de mani�re expresse.

ARTICLE 4 � A l�issue de la p�riode accord�e, l�int�ress�(e) est r�int�gr�e de plein droit sur son poste.

ARTICLE 5 - La pr�sente d�cision peut �tre contest�e devant le tribunal administratif de Commune (d�partement) ou par l�application T�l�recours citoyens accessible � partir du site www.telerecours.fr dans un d�lai de deux mois � compter de sa notification.
ARTICLE 6 � Le directeur g�n�ral des services et la payeuse d�partementale sont charg�s, chacun en ce qui le concerne, de l'ex�cution du pr�sent arr�t�

*ARR-CPA*

La macro partie 2

Code:

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Private Sub enregistrer_click()
    Dim reponse As Byte
 
    reponse = MsgBox("Toutes les informations sont-elles correctes ?", vbYesNo + vbQuestion)
 
    If (reponse = 6) Then
        ' On vérifie que la checkbox masculin ou féminin soit renseigné
        If (champ_masculin Or champ_feminin) Then
            ' On vérifie que le nom patronymique a été renseigné
            If (champ_patronymique <> "") Then
                ' On vérifie que le prénom ait été renseigné
                If (champ_prenom <> "") Then
                    ' S'il n'y a pas de nom usuel de renseigné OU si le sexe sélectionné est le masculin, on revoit la mise à forme
                            If (champ_usuel = "" Or champ_masculin) Then
                                ' SI le nom usuel n'est pas renseigné
                                ' REMPLACE PRENOM NOM_USUEL né(e) NOM_PATRONYMIQUE le DATE_DE_NAISSANCE
                                ' PAR PRENOM NOM_PATRONYMIQUE né(e) le DATE_DE_NAISSANCE
                                With ActiveDocument.Content.Find
                                    .Execute FindText:="né(e) « nom patronymique »", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
                                    .Execute FindText:="le « date de naissance »", ReplaceWith:="né(e) le " & champ_naissance, Format:=True, Replace:=wdReplaceAll
                                    .Execute FindText:="« nom usuel »", ReplaceWith:=UCase(Left(champ_patronymique, 1)) & Mid(LCase(champ_patronymique), 2), Format:=True, Replace:=wdReplaceAll
                                End With
                            End If
 
                            ' UNIQUEMENT si le sexe FEMININ a été sélectionné
                            If (champ_feminin) Then
                                ' On remplace les variables les plus simples
                                With ActiveDocument.Content.Find
                                    .Execute FindText:="« civilité »", ReplaceWith:="madame", Format:=True, Replace:=wdReplaceAll
                                    .Execute FindText:="(e)", ReplaceWith:="e", Format:=True, Replace:=wdReplaceAll
                                End With
 
                                ' Si un nom usuel a été renseigné il sera inséré
                                If (champ_usuel <> "") Then
                                    With ActiveDocument.Content.Find
                                        .Execute FindText:="« nom usuel »", ReplaceWith:=UCase(Left(champ_usuel, 1)) & Mid(LCase(champ_usuel), 2), Format:=True, Replace:=wdReplaceAll
                                    End With
                                End If
 
                                ' ne doit pas être déplacé car créerait des bugs avec les conditions du sexe MASCULIN
                                With ActiveDocument.Content.Find
                                    .Execute FindText:="« date de naissance »", ReplaceWith:=champ_naissance, Format:=True, Replace:=wdReplaceAll
                                End With
                            Else
                                ' UNIQUEMENT si le sexe MASCULIN a été sélectionné
 
                                ' Remplace les variables les plus simples
                                With ActiveDocument.Content.Find
                                    .Execute FindText:="« civilité »", ReplaceWith:="monsieur", Format:=True, Replace:=wdReplaceAll
                                    .Execute FindText:="(e)", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
                                End With
 
                                ' UNIQUEMENT si le sexe MASCULIN a été sélectionné
 
                                ' Remplace les variables les plus simples
                                With ActiveDocument.Content.Find
                                    .Execute FindText:="« civilité »", ReplaceWith:="monsieur", Format:=True, Replace:=wdReplaceAll
                                    .Execute FindText:="*ARR-CPA*", ReplaceWith:="*ARR-CPAR*", Format:=True, Replace:=wdReplaceAll
                                End With
 
                            End If
 
                            With ActiveDocument.Content.Find
                                .Execute FindText:="« nom patronymique »", ReplaceWith:=UCase(Left(champ_patronymique, 1)) & Mid(LCase(champ_patronymique), 2), Format:=True, Replace:=wdReplaceAll
                                .Execute FindText:="« prénom »", ReplaceWith:=UCase(Left(champ_prenom, 1)) & Mid(LCase(champ_prenom), 2), Format:=True, Replace:=wdReplaceAll
                                .Execute FindText:="« lieu de naissance »", ReplaceWith:=UCase(Left(champ_lieu_naissance, 1)) & Mid(LCase(champ_lieu_naissance), 2), Format:=True, Replace:=wdReplaceAll
                            End With
 
                            ' Améliore la qualité du document
                            With ActiveDocument.Content.Find
                                ' Si on trouve deux espaces dans un arrêtés, on supprime le double-espace
                                .Execute FindText:="  ", ReplaceWith:=" ", Format:=True, Replace:=wdReplaceAll
 
                                ' Si on trouve deux espaces dans un arrêtés, on supprime le double-espace
                                .Execute FindText:=" ,", ReplaceWith:=",", Format:=True, Replace:=wdReplaceAll
                            End With
 
                            informations.Hide
                        Else
                    MsgBox ("Veuillez inscrire le prénom de l'agent.")
                End If
            Else
                MsgBox ("Veuillez inscrire le nom patronymique de l'agent.")
            End If
        Else
            MsgBox ("Veuillez sélectionner le sexe de l'agent.")
        End If
    End If
End Sub
 
Private Sub champ_masculin_click()
    If (champ_masculin) Then
        champ_usuel.Enabled = False
 
        champ_usuel.Value = "Ne pas remplir"
    End If
End Sub
 
Private Sub champ_feminin_click()
    If (champ_feminin) Then
        champ_usuel.Enabled = True
 
        champ_usuel.Value = ""
    End If
End Sub
 
Private Sub annuler_click()
    Dim reponse As Byte
 
    reponse = MsgBox("Souhaitez-vous vraiment annuler ?", vbYesNo + vbQuestion)
 
    If (reponse = 6) Then
        informations.Hide
    End If
End Sub

[WD-365] WdPageBorderArt comment cree un nouveau dessin de bordure

la vouivre — Fri, 22 May 2026 19:09:07 GMT

Bonjour a tous

je cherche depuis un moment comment mettre un dessin de ma collection en bordure
j'ai trouv� une macro que j'ai modifi� pour changer la couleur , mais je n'arrive pas a incorporer mon image
comment je doit dire a la macro de choisir tel dessin dans un fichier
je vous ai joint un document avec la macro

bonne soir�e a tous

Fichiers attach�s

bordure couleur wartstyle.docx (13,9 Ko)

[WD-365] couper/coller les en-t�tes et pieds de page dans le corps du texte

Kiu31 — Wed, 18 Feb 2026 13:54:06 GMT

Bonjour,
J'ai plusieurs fichiers rtf (hum) avec des infos en en-t�tre et pied de page.

je souhaiterais :

qu'elles soient dans le corps du texte au format texte et non en en-t�te / pied de page (ainsi l'ent�te et pied de page vides).
traiter plusieurs fichiers rtf les uns apr�s les autres dans un m�me dossier en faisant un enregistrer sous du nouveau fichier en docx pour ne pas �craser l'ancien ...
J'ai tent� avec l'enregistreur de macro mais je d�barque un peu !!!
Pour exemple voici un fichier docx
Je vous remercie grandement de votre aide ;)

Fichiers attach�s

l03-03-test.docx (29,0 Ko)

[WD-365] Sensitivity Labels | Publipostage

meumeu73.1 — Thu, 05 Feb 2026 16:14:24 GMT

Bonjour � tous,

J'utilise une macro qui me dispatche un publipostage, mais lorsque la sauvegarde de chaque document doit se faire, j'ai un rejet (d�s le premier �videmment), en fait, � chaque cr�ation de document, je dois affecter un Sensitivity Label ce qui est obligatoire. Je n'arrive pas � l'int�grer automatiquement dans la macro. Je n'ai pas acc�s � l'Id du label. Je voudrai simple que le label soit h�rit� du word qui poss�de la macro.

Voici le code, si quelqu'un a d�j� eu cet probl�matique. Pr�cision dans le processus de cette macro, je peux choisir en pdf ou en Word, �videmment le probl�me est sur la section word.

Par avance merci de votre aide.

Code:

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
ub Decoupage(format As String, SendMail As Boolean)
 
' Désactiver le rafraîchissement d'écran
Application.ScreenUpdating = False
MonApplication.ScreenUpdating = False
MonApplication.Visible = False
 
' Déclaration des variables
Dim iR As Long
Dim i As Long
Dim oDoc As Document
Dim xx As Document
Dim DocName As String
Dim RepName As String
Dim rep As String
Dim oDS As MailMergeDataSource
Dim destin As String
 
Dim appword As Object, lesdocuments As Object, ledoc As Object
 
' <<< AJOUT : Récupération de l’étiquette du document source >>>
Dim srcLabel As Object
'Set srcLabel = ThisDocument.SensitivityLabel
' <<< FIN AJOUT >>>
 
Set oDoc = DocWord
Set oDS = oDoc.MailMerge.DataSource
Set srcLabel = oDoc.SensitivityLabel  ' héritage automatique
 
iR = oDoc.MailMerge.DataSource.RecordCount
 
For i = PremPage To DerPage
    With oDoc.MailMerge
        .DataSource.FirstRecord = i
        .DataSource.LastRecord = i
        .Destination = wdSendToNewDocument
        .Execute
        .DataSource.ActiveRecord = i
 
        If NumColRep > 0 Then
            RepName = .DataSource.DataFields(NumColRep).Value
        Else
            RepName = ""
        End If
 
        DocName = .DataSource.DataFields(NumColFic).Value
        If SendMail Then destin = .DataSource.DataFields(NumColMail).Value
    End With
 
    If Len(RepName) > 0 Then
        If Right(RepName, 1) <> "\" Then RepName = RepName & "\"
        fic = Racine & RepName & DocName
        rep = Racine & RepName
    Else
        fic = Racine & DocName
        rep = Racine
    End If
 
    Set lesdocuments = MonApplication.Documents
 
    If CreerDossier(rep) Then
        If format = "PDF" Then
 
            fic = fic & ".pdf"
            With lesdocuments.Item(1)
                .ExportAsFixedFormat _
                    OutputFileName:=fic, _
                    ExportFormat:=wdExportFormatPDF, _
                    OpenAfterExport:=False, _
                    OptimizeFor:=wdExportOptimizeForPrint, _
                    Range:=wdExportAllDocument
                .Close SaveChanges:=wdDoNotSaveChanges
            End With
 
 
ElseIf format = "DOC" Then
 
    fic = fic & ".docx"
 
    Dim newDoc As Document
    Set newDoc = Application.ActiveDocument
 
    With newDoc
 
        ' --- Application correcte et stable de l’étiquette de sensibilité ---
        On Error Resume Next   ' au cas où MIP n’est pas chargé
        .SetLabel LabelId:=srcLabel.LabelId, _
                  Justification:="Héritage automatique"
        On Error GoTo 0
        ' -------------------------------------------------------------------
 
        .SaveAs fic
        .Close SaveChanges:=wdDoNotSaveChanges
    End With
 
End If
 
 
        If SendMail Then
            If AdresseEmailValide(destin) Then
                Call EnvoyerEmail(MailObject, destin, MailBody, fic)
            Else
                MsgBox "Adresse mail incorrecte : " & destin
            End If
        End If
 
    Else
        MsgBox "Impossible de créer le dossier : " & Racine & RepName
    End If
 
Next i
 
Fin:
Application.ScreenUpdating = True
MonApplication.ScreenUpdating = True
MonApplication.Visible = True
 
End Sub

liste d�roulante avec choix OUI/NON et suppression si NON (WORD)

johana10600 — Mon, 26 Jan 2026 15:28:45 GMT

Bonjour je suis toute nouvelle.
J'ai un document � faire qui comporte une suite de phrase de ce type:

En dessous des phrases j'ai mis une liste d�roulante avec 2 choix OUI et NON.
Je souhaiterais faire ceci:
- si la r�ponse est "OUI", je voudrais que la personne qui remplis le document est la possibilit� de mettre une pr�cision en dessous.
- si la r�ponse est "non", je souhaiterais que la phrase + la liste d�roulante disparaisse.
Je ne connais pas du tout le VBA et je ne sais pas du tout comment faire.
J'ai essayer avec ce que me disais ChatGPT mais cela ne fonctionnait jamais.
Auriez-vous possibilit� de m'aider et de me donner la proc�dure?
Merci d'avance

Images attach�es

[WD-365] Comment afficher le volet des styles

jonasWhale — Thu, 08 Jan 2026 11:09:19 GMT

Bonjour � tous,

Ce code ne fonctionne pas pour ma version de Word 2025 sur Mac.
A

Code:

1
2
3
 Sub AfficherPanneau()
    CommandBars.ExecuteMso ("StylesPane")
End Sub

Si je remplace l�idMso par "SelectionPane" �a fonctionne.
J�en d�duis que le terme a chang�.
J�ai pass� plusieurs heures � essayer de trouver le moyen de r�cup�rer cet ID, sans succ�s.
Quelqu�un aurait-il une piste ?
Merci!!!☺️

[WD-2010] Ins�rer une ic�ne personnalis�e dans la barre d'outils

Ericcool02 — Sat, 27 Dec 2025 17:19:39 GMT

Bonsoir le forum - Est-il possible (si oui, comment faire) d'ins�rer une ic�ne, que j'ai cr��e, dans la barre d'outils, rubrique "accueil avec l'association d'une macro contenant "Alt" + "touche gauche" ? Je suis sans r�ponse malgr� mes recherches. Cordialement

[WD-2019] Suppression des puces d'un texte et remplacer par tiret cadratin

donpopo — Fri, 14 Nov 2025 18:44:31 GMT

Bonsoir,

Je cherche depuis pas mal de temps comment supprimer toutes les puces d'un document Word et les remplacer par le tiret de dialogue (tiret cadratin).
Il s'agit d'une �bauche de roman r�dig�e par deux personnes; or, tous les tirets de dialogue ont �t� remplac�s par des puces.

Quelqu'un aurait-il une id�e?

Merci d'avance,

Donpopo

[WD-2003] FileSearch sur cl� USB svp !

iBenny — Mon, 13 Oct 2025 14:40:13 GMT

Bonjour � tous :coucou:,

L'instruction FileSearch ne recherche pas les cl�s USB 8O ?

Salutations cordiales,
iBenny

[WD-2016] Publipostage condition IF

esse2016 — Fri, 01 Aug 2025 20:08:09 GMT

Bonjour,

Je viens ici pour trouver de l�aide.
J�ai mes donn�es issues de excel avec en-t�te, et dans un champ de word, j�ai besoin d�y mettre une condition selon la donn�e dans excel.

Je tape ceci mais je pense que je m�y prends mal dans ma syntaxe

{ IF mergefield voiture = �� X �� mergefield voiture �� }

lorsque excel envoi ses donn�es � word, si la macro rencontre un X sur la ligne balay�e par excel, alors envoi dans le champs de word la valeur trouv�e sinon laisse vide.

Avez vous l�id�e de la syntaxe svp ?

Merci