Discussion :

[cfidko]

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.

[Renardo]

Si j'ai bien compris tu veux decocher word une fois ton fichier Word cree dans se cas met ta commande avant le Else

[cfidko]

C'est exact, ca marche, merci.
Par contre par simple curiosité, entre Else et End If, je laisse toujours Word.Value = False ? Qu'es ce que je dois mettre si je veux mettre une valeur nul ?

Merci d'avance.

[Renardo]

Le else tu peux le suprimer il est inutile dans ton code actuel

[cfidko]

Ok.

Merci bien.