Discussion :

[cocolemee]

Je suis débutante en VBA et je souhaite donner la possibilité, dans un document word ou/et excel d'intégrer une classification (confidentiel, public, etc).Dans les tutoriels, j'ai trouvé le programme suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub pieddepage()
Dim Classification As String
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
.CenterFooter = "classification CONFIDENTIEL"
End With
End Sub

Lorsque j'execute cette commande, j'ai le message suivant "erreur de compilation for sans next" or je ne sais pas ou mettre le next. Pouvez vous m'indiquer où se trouve mon erreur?

[clementmarcotte]

Bonjour,

Je suis débutante en VBA et je souhaite donner la possibilité, dans un document word ou/et excel d'intégrer une classification (confidentiel, public, etc).Dans les tutoriels, j'ai trouvé le programme suivant :

Lorsque j'execute cette commande, j'ai le message suivant "erreur de compilation for sans next" or je ne sais pas ou mettre le next. Pouvez vous m'indiquer où se trouve mon erreur?

En ajoutant le Next et en utilisant les bienfaits du code indenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub pieddepage()
     Dim Classification As String
     For x = 1 To Sheets.Count
          With Sheets(x).PageSetup
               .CenterFooter = "classification CONFIDENTIEL"
          End With
     'Il manquait un Next ici
     Next
End Sub

[cocolemee]

Bonjour,



En ajoutant le Next et en utilisant les bienfaits du code indenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub pieddepage()
     Dim Classification As String
     For x = 1 To Sheets.Count
          With Sheets(x).PageSetup
               .CenterFooter = "classification CONFIDENTIEL"
          End With
     'Il manquait un Next ici
     Next
End Sub

[cocolemee]

Super ! Merci pour votre aide, ça fonctionne enfin! Et cette commande peut elle fonctionner avec word 2010?

[clementmarcotte]

Bonjour,

Super ! Merci pour votre aide, ça fonctionne enfin! Et cette commande peut elle fonctionner avec word 2010?

Pas celle-ci, mais le principe reste le même. En fait, Word travaille avec un Objet Document qui représente le document. En gros, l'objet Document dans Word, correspond à l'objet Workbook dans Excel. Mais Word n'a pas d'objet Sheet. Mais, un fichier Word peut contenir plusieurs versions du même texte. Donc Word a un objet Version pour traiter les différentes versions du texte.

Voici une macro vite faite avec l'enregistreur de macros de Word 2010. Je ne garantis rien pour les autres versions. Word 2010 a des "blocs de construction" et l'enregistreur de macros les utilise. Tu vas sans doute devoir modifier les chemins d'accès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro23()
'
' Macro23 Macro
'
'
    Application.Templates( _
        "C:\Users\Clément Marcotte\AppData\Roaming\Microsoft\Document Building Blocks\1036\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries(" Vide (3 colonnes)").Insert Where:=Selection. _
        Range, RichText:=True
    Selection.MoveDown Unit:=wdLine, Count:=6
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

Sauf que dans Word, tu peux aussi utiliser un objet WordArt pour écrire "Confidentiel", ou n'importe quoi d'autre en diagonale sur ton texte et sur chaque page. Je ne l'ai jamais fait avec Word 2010, mais, je l'ai fait, il y a (trop) longtemps avec Word 2002.