Discussion :

[dricks]

bonjour a tous,

voici mon souci j'ai plusieurs case a cocher que j'aimerais associer a des fichiers word chacun, et pouvoir les ouvrir à partir d'un bouton.

j'ai chercher sur la faq s'il y avait des tutoriels qui explique comment faire sa mais je ne trouve pas.

pourriez vous m'indiquez un tuto ou autre qui pourrais m'aider dans ma démarche svp!!

[le_niak]

Salut,


Peux tu être un peu plus clair.
SI j'ai bien compris en fonction de la case cochée, tu veux ouvrir un fichier word spécifique?

[dricks]

oui c'est bien sa, donc en selectionnant la case a cocher spécifique par exemple "courrier de document administratif", lorsque j'apuie sur le bouton "afficher le documents sélectionné" je veux qu'il m'ouvre le document que j'ai choisi avec la case a cocher.

c'est plus clair???

[le_niak]

Voici quelques conseils :

Code :

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

1
2
3
4
5
 
'ouverture du fichier Word
Dim WordApp As New Word.Application
WordApp.Application.Visible = True
Set WordDoc = WordApp.Documents.Open("F:\Transit\Gffunds\Hedge\BaseDEdonnées\Report\report.doc")

Code :

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

1
2
3
4
5
6
7
8
 
'si case chkMana10 est cochée alors...
Public Sub Temp()
    If Not Me.chkMana10 Then
        .....
 
    End If
End Sub

[dricks]

je test tout sa et je te dis ce qu'il en est!!

[le_niak]

Bon courage.

PS : ne pas oublier les références Microsoft Word dans VB

[dricks]

voila apres avoir testé ce que tu m'as indiqué, pour une ouverture d'un fichier word quelconque sa marche mais pour ouvrir un fichier que j'ai sélectionné avec une case à cocher sa ne fonctionne pas.
par contre:

tu utilise:

If Not Me.chkMana10 Then

c'est pas plutot "if" tout simplement au début et ensuite "if not" pour les autre déclarations imbriqués!??

[le_niak]

Peux tu poster ton code svp.

Sinon j'utilise le if not puis des else.
Tu peux utiliser des if mais dans ce cas le code devient :

Code :

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

1
2
3
4
 
If (Me.chkMana10=true) Then
....
End if

[dricks]

je t'envoi mon apli pour ke tu vois a peu pres ce que je veux.

la je l'ai mis avec le code de base sur le bouton pour ouvrir word!

[le_niak]

Peux pas l'ouvrir j'ai le pare-feu du bureau qui me bloque.

[dricks]

voici mon code que tu puisse y jeter un coup d'oeuil!!

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
Private Sub document_imprimer_Click()
On Error GoTo Err_document_imprimer_Click
 
    Dim oApp As Object
If Not Faxappeloffre Then
 
        Set oApp = CreateObject("Word.Application")
    oApp.worksbooks.Open "C:\Documents and Settings\c.strazel\Bureau\DOC ET COURRIER TYPE  POUR AUTOMATIK\Fax type pour demande d'offre.doc)"
    oApp.Visible = True
 
    End If
 
 
 
 
Exit_document_imprimer_Click:
    Exit Sub
 
Err_document_imprimer_Click:
    MsgBox Err.Description
    Resume Exit_document_imprimer_Click

[le_niak]

Est ce que cela fonctionne ?

En remplacant le If Not Faxappeloffre Then par if Faxappeloffre=True then

[dricks]

je galere toujour !!

je vais réexpliquermon probleme avec plus de précision:
voila ce que je veux faire !!

j'ai un groupe d'option composé de 7 case a cocher , je souhaite associer chaque case a cocher a un document word que je pourrais ouvrir grace a un bouton en fonction de la case que j'aurais séléctionné sachant qu'il m'est impossible de cocher 2 case différentes.

qui pourrais m'aider concernant ce probleme SVP!!

[le_niak]

En quoi ce que je t'ai donné ne fonctionne pas?
Apres pour eviter qu'on puisse cocher d'autres cases, il suffit lorsqu'une case est cochée de cacher les autres.

Pour cela tu utilises .Visible=False.

[Domi2]

Bonjour,

Si tu utilises un groupe d'option, tu testes simplement la valeur de ce dernier avec une instruction Select.

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
    Select Case ValeurDeTonGroupeOption
 
        Case 0
 
            'Tu ouvres tel document
 
        Case 1
 
            '.....
 
        Case Else
 
            '.....
 
    End Select

Domi2

[dricks]

ben le code que tu ma donné le_niak m'affiche une erreur de compile mais je crois que j'ai fais une erreur dans mon code donc je travail dessus toujours je te tiens au courant de mon evolution.

et domi2 en effet j'utilise deja un groupe d'option il me reste juste a faire les bon lien avec mon bouton pour afficher le document sélectionné avec la case a coché!

[le_niak]

A quel niveau l'erreur de compile?

[Domi2]

Re,

Dans la procédure liée au bouton Afficher...

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
Private Sub document_imprimer_Click()
On Error GoTo Err_document_imprimer_Click
 
    Dim intMaCaseCochee As Integer
 
    intMaCaseCochee = Me.envoi
 
    Select Case intMaCaseCochee
 
        Case 1
 
            'Ouverture d'un document
 
        Case 2
 
            'Ouverture d'un autre type de document
 
        Case else
 
            '....
 
    End Select

Pas besoin d'inactiver ou de cacher les cases à cocher

Domi2

[dricks]

merci a vous 2 je viens de trouver ma solution avec un remix de vos propositions sa marche a merveille !! merci beaucoup!!!