@
@Christophe@
Guest
Bonjour,
Je vous explique:
Je crée un projet sur VB6, j'ai dans un module le code suivant:
Sub OpenWord(FileName As String, Optional AppVisible As Boolean)
Set myWord = CreateObject("word.Application")
myWord.visible = AppVisible
myWord.documents.Open ("C:\Documents and Settings\Christophe\Mes documents\Securis\Reserve Copy NSA\Test USArmy\" & FileName & ".doc")
End Sub
Dans un userform un commandbutton avec le code suivant:
Private Sub cmdStartDA_Click()
OpenWord ("Daily Staff Journalv1.01")
End Sub
La tous marche très très bien, maintenant si je donne un argument à la variable Optional AppVisible As Boolean la ça Bug, code CommandButton suivant:
Private Sub cmdStartDA_Click()
OpenWord ("Daily Staff Journalv1.01", True)
End Sub
J'ai comme erreur Compile Erreur, Expected: =
J'ai tous essayé avec le True, y a si je le supprime que mon code fonctionne, mais il me le faut...
Qui peux m'aider??
Merci d'avance
@Christophe@
Je vous explique:
Je crée un projet sur VB6, j'ai dans un module le code suivant:
Sub OpenWord(FileName As String, Optional AppVisible As Boolean)
Set myWord = CreateObject("word.Application")
myWord.visible = AppVisible
myWord.documents.Open ("C:\Documents and Settings\Christophe\Mes documents\Securis\Reserve Copy NSA\Test USArmy\" & FileName & ".doc")
End Sub
Dans un userform un commandbutton avec le code suivant:
Private Sub cmdStartDA_Click()
OpenWord ("Daily Staff Journalv1.01")
End Sub
La tous marche très très bien, maintenant si je donne un argument à la variable Optional AppVisible As Boolean la ça Bug, code CommandButton suivant:
Private Sub cmdStartDA_Click()
OpenWord ("Daily Staff Journalv1.01", True)
End Sub
J'ai comme erreur Compile Erreur, Expected: =
J'ai tous essayé avec le True, y a si je le supprime que mon code fonctionne, mais il me le faut...
Qui peux m'aider??
Merci d'avance
@Christophe@