création bouton sous Word

Question

Bonjour,


je suis vraiment nul en programmation..
et j'aurais voulu savoir si quelqu'un pouvait m'aider...


POur cela je vous explique mon projet


Il s'agit de la cr&#233;ation d'un formulaire sous Word


C'est un formulaire qui est destin&#233; &#224; &#234;tre install&#233; sur plusieurs postes
et qui va &#234;tre utilis&#233; par de nombreuses personnes ne ma&#238;trisant pas
forc&#233;ment l'informatique.


Le but est l'impression papier de ce formulaire pour que les personnes
puissent partir avec l'&#233;dition de leur formulaire.


A/ J'ai donc r&#233;alis&#233; dans un premier temps un formulaire avec des signets
(je suis sur qu'en VBA &#231;a aurait &#233;t&#233; plus chouette mais je n'y comprends pas
grand chose et je n'ai pas le temps de me pencher dessus...)


B/ Ce formulaire demande aux personnes de remplir diff&#233;rents signets (noms,
pr&#233;noms, date naissance, etc.) et comme ces donn&#233;es sont r&#233;percut&#233;es &#224; diff&#233;rents
endroits dans le formulaire pour &#234;tre ins&#233;r&#233;s dans des formules toutes faites, 
j'ai effectu&#233; des renvois. Ce formulaire est prot&#233;g&#233; pour &#233;viter que les 
utilisateurs le modifie.


C/ Mon travail est pratiquement termin&#233; mais je voudrais ajouter 3
boutons sur le formulaire (et l&#224; je sais pas faire !):
 1/ un bouton unique permettant de:
  - d&#233;prot&#233;ger le formulaire
  - r&#233;initialiser tous les signets
  - reprot&#233;ger le formulaire
 2/ un bouton unique permettant:
  - d'imprimer les pages 2 &#224; 18
  - d'imprimer les pages 2 &#224; 9
  (ainsi j'aurais les pages 2 &#224; 7 en double)
 3/ un bouton unique permettant:
  - de sauvegarder le formulaire rempli avec une invite
  de nom de sauvegarde.


Je ne sais pas si c'est compliqu&#233; &#224; faire... Je me rends pas trop compte
Si vous pouvez me dire ce que vous en pensez et si ma requ&#234;te est
irr&#233;alisable
 
Merci d'avance &#224; ceux qui me r&#233;pondront.

cs_lim · Answer

Salut

J'esp&#232;re que ce sera pas trop compliqu&#233;, une petite chose &#224; savoir c'est que tu peux demander &#224; Excel ou Word de te g&#233;n&#233;rer des macros. C'est &#224; dire tu fais outils\macros
ouvelle macros
tu fais les actions dont tu as besoin et ensuite tu arr&#234;tes l'enregistrement de ta macros tu vas dans l'&#233;diteur de code de visual basic et tu vois le code.
Je peux aussi t'envoyer par mail le fichier doc que j'ai g&#233;n&#233;r&#233; avec des commentaires
[mailto:tlimondin@yahoo.fr tlimondin@yahoo.fr]


Pour ajouter des boutons il faut utiliser la barre d'outils "Visual Basic" et faire un peu de code VBA.

Ensuite utiliser l'icone "marteau et cl&#233;" pour faire afficher la barre d'outils et ajouter un bouton

Ensuite utilise  l'icone "&#233;querre" et double clic sur ton bouton la page de code de visual basic s'ouvre avec la routine "click sur mon bouton"
Private Sub CommandButton1_Click()
End Sub
en faisant un clic droit (sous word) sur le bouton et propri&#233;t&#233; tu peux modifier son nom et le texte du bouton

pour d&#233;prot&#233;g&#233; un document
ActiveDocument.Unprotect

pour prot&#233;g&#233; ton document c'est 1 des trois
'Formulaire
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyFormFields
'Modifications
    ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyRevisions
'Commentaires    
    ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyComments

Pour imprimer c'est le suivant

'Page 2 &#224; 18
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2-18", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

'Page 2 &#224; 9
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2-9", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Et enfin la souvegarde avec boite de dialogue

'Declare a variable as a FileDialog object.
    Dim fd As FileDialog


    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)


    'Declare a variable to contain the path
    'of each selected item. Even though the path is a String,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant


    'Use a With...End With block to reference the FileDialog object.
    With fd


        'Use the Show method to display the File Picker dialog box and return the user's action.
        'The user pressed the action button.
        If .Show = -1 Then


            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems


                'vrtSelectedItem is a String that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example simply displays the path in a message box.
                MsgBox "The path is: " & vrtSelectedItem


            Next vrtSelectedItem
        'The user pressed Cancel.
        Else
        End If
    End With


    'Set the object variable to Nothing.
    Set fd = Nothing

@+
LIM

sssccc · Answer

Création bouton sous Word

2 réponses

Discussions similaires