Bonjour,

J'ai un formulaire dans lequel je peux choisir le type de fichier que je veux créer en cochant la case voulue et en cliquant sur le bouton OK.



Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub Ok_Click()
 
    If Word.Value = True Then
 
    Dim oApp As Object
    Dim WordDoc As Word.Document
 
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    Set WordDoc = oApp.Documents.Add    '-- crée un nouveau document
    WordDoc.SaveAs "C:\Documents and Settings\Caed-Johar\Mes documents\Projet\monDocument.doc"   '-- enregistre le nouveau doc
 
    Else
 
        Word.Value = False
 
     End If
 
Exit_Ok_Click:
    Exit Sub
 
Err_Ok_Click:
    MsgBox Err.Description
    Resume Exit_Ok_Click
 
 
End Sub
Le probleme c'est qu'il ne décoche pas la fin, pourtant j'ai bien mis Word.value = False .

Est ce que quelqu'un peut m'aider.
Merci d'avance.