Excel, boite de dialogue, fichiers&macro

Private Sub CommandButton3_Click()

If CheckBox1 = True Then

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open("C:\lien") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules
WordDoc.Bookmarks("RappEss").Range.Text = Cells(1, A)
WordDoc.Bookmarks("Client").Range.Text = Cells(2, A)
WordDoc.Bookmarks("Ref").Range.Text = Cells(3, A)
WordDoc.Bookmarks("Date").Range.Text = Cells(4, A)

WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'si on veut imprimer

'WordDoc.Close True 'si on veut fermer le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word

End If

Unload Me
End Sub

Dim WordApp As Word.Application

Dim WordApp As Word.Application

WordApp.Quit 
Set WordApp = Nothing

Dim Fich As String
Const chemin = "C:\Documents and Settings\Pierre-Amaury\Bureau\Masques communs IFTH\"
Fich = Dir(chemin & "*.xlt")
Do While Fich <> ""
Workbooks.Open chemin & Fich

'là c'est le code saisi à la souris

Workbooks(Fich).Close True
Fich = Dir
Loop
End Sub

Workbooks(Fich).Close True

Dim WordApp As Word.Application

If CheckBox1 = True Then   
    Dim WordApp As Word.Application   
    Dim WordDoc As Word.Document   
    Dim i As Byte   
    Set WordApp = CreateObject("word.application") 'ouvre une session Word   
    Set WordDoc = WordApp.Documents.Open("C:\cible\doc_Word_du_checkbox1.doc") 'ouvre le document Word   
    WordApp.Visible = False   'Word est masqué pendant l'opération   

    For i = 1 To 5   
           'les signets du document Word sont nommés Signet1 à Signet5   
    ActiveDocument.Bookmarks("Signet" & i).Range.Select   
    WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1) 'copie des cellules A1 à A5 (c'est à dire le texte des textbox) à l'emplacement des signets word   
    Next i   

    WordApp.Visible = True    'affiche le document Word   
    'WordDoc.Close False 'ferme le document word sans sauvegarder   
    'WordApp.Quit 'ferme la session Word   
End If   

If CheckBox2 = True Then   
    Dim WordApp As Word.Application   
    Dim WordDoc As Word.Document   
    Dim i As Byte   
    Set WordApp = CreateObject("word.application")   
    Set WordDoc = WordApp.Documents.Open("C:\cible\doc_Word_du_checkbox2.doc")   
    WordApp.Visible = False   'Word est masqué pendant l'opération   

    For i = 1 To 5   
    ActiveDocument.Bookmarks("Signet" & i).Range.Select   
    WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)   
    Next i   

    WordApp.Visible = True    'affiche le document Word   
    'WordDoc.Close False 'ferme le document word sans sauvegarder   
    'WordApp.Quit 'ferme la session Word   
End If   

Et ainsi de suite avec les autres checkbox

Sub VVV()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

    Set WordApp = CreateObject("word.application") 'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\cible\doc_Word_du_checkbox1.doc")
    WordApp.Visible = False   'Word est masqué pendant l'opération'ouvre le document Word
    If CheckBox1 = True Then
        For i = 1 To 5
            'les signets du document Word sont nommés Signet1 à Signet5
            ActiveDocument.Bookmarks("Signet" & i).Range.Select
            WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1) 'copie des cellules A1 à A5 (c'est à dire le texte des textbox) à l'emplacement des signets word
        Next i
    End If

    If CheckBox2 = True Then
        For i = 1 To 5
            ActiveDocument.Bookmarks("Signet" & i).Range.Select
            WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
        Next i
    End If

    'Et ainsi de suite avec les autres checkbox

    WordDoc.Close False 'ferme le document word sans sauvegarder
    WordApp.Quit 'ferme la session Word
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

Option Explicit  
Dim Check As Collection  


Private Sub Appliquer_Click()  
Dim WordApp As Word.Application  
Dim WordDoc As Word.Document  
Dim i As Byte  
Dim e As Integer  
      
    Set WordApp = CreateObject("word.application") 'ouvre une session Word  
    WordApp.Visible = False   'Word est masqué pendant l'opération'ouvre le document Word  
    For e = 1 To Check.Count  
        If Check(CStr(e)) Then  
            Set WordDoc = WordApp.Documents.Open("C:\cible\doc_Word_du_checkbox" & e & ".doc")  
            For i = 1 To 5  
                'les signets du document Word sont nommés Signet1 à Signet5  
                ActiveDocument.Bookmarks("Signet" & i).Range.Select  
                WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1) 'copie des cellules A1 à A5 (c'est à dire le texte des textbox) à l'emplacement des signets word  
            Next i  
            WordDoc.Close False ' à vérifier ..  
        End If  
    Next e  
    WordApp.Quit 'ferme la session Word
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub  

Private Sub UserForm_Initialize()  
Dim Chk As Control  
    Set Check = New Collection  
    For Each Chk In Me.Controls  
        If TypeOf Chk Is MSForms.CheckBox Then  
            Check.Add Chk, CStr(Chk.Tag)  
        End If  
    Next Chk  
End Sub 

Private Sub CheckBox3_Click()
    If CheckBox3 Then CheckBox2 = False: CheckBox1 = False
End Sub

Private Sub CommandButton1_Click()
    If CheckBox3 = True Then
        MsgBox ("bien joué")
    Else
        If CheckBox1 = True Then MsgBox ("affiche le 1")
        If CheckBox2 = True Then MsgBox ("affiche le 2")
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox4 = Date
End Sub

For i = 1 to Unbound(Chk) 'Le dernier checkBox
    If Chk(i).Value = True then
        'tu exécute ce que tu veux comme si c'était le checkBox que tu teste
    End if
Next i