Forum Clubic

Comment ouvrir une page Word par une image sous VBA ACCESS

bonjour,
voila j’ai un formulaire et j’aimerais en cliquant sur une image que l’on puisse ouvrir une page Word, comment puis-je faire par code VBA ??
Merci d’avance pour votre aide!!
Edité le 28/06/2007 à 08:25

Dans l’évènement onclick, tu utilises la commande shell()

ben voila ce que je vien d’essayer mais cela ne fonctionne pas :

Private Sub Image211_Click()
    
    Shell ("X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc")
    
End Sub

voila!!

Pas de parenthèses avec les sub, seulement avec les fonctions !

essaie
argument = "X:“Comptes Utilisateurs"stagebeluc"Loïc"perso.doc”
shell "winword.exe "+argument , true
(attention à l’espace après le .exe)

bonjour gcc,
donc tout d’abord pour mon Sub, j’ai essayé en enlevant les () mais il les remets immédiatements.
Puis, j’ai essayé ce que tu ma di d’essayer mes il y a toujours un problème c’est à dire qu’il m’affiche le message suivant :
Erreur d’execution ‘5’: Argument ou appel de procédure incorrect

mon code est le suivant
:

Private Sub Image211_Click()
    
    Dim argument As String
    
    argument = "X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc"
    Shell "winword.exe " + argument, True
    
End Sub

Voila, je croit que tu sait tout!!


donc gcc, je voulais te prévenir que j'avais réussi de la manière suivante :
Private Sub Image211_Click()
On Error Resume Next
    Dim W_App As New Word.Application
    
    With W_App
        .Visible = True
        .Documents.Open ("X:\Comptes Utilisateurs\stagebeluc\Loïc\perso.doc")
    End With
    Set W_App = Nothing
    
End Sub

voila!!

Je parlais des parenthèses à l’intérieur des Sub(), donc pour toi à la ligne shell …

Pour ta source d’erreurs, il y a 2 choses
D’abord, il faudrait remplacer true par la taille de fenêtre souhaitée pour l’ouverture de winword (ex vbNormalFocus)
Ensuite il faut remplacer la syntaxe Winword.exe argument par Winword.exe “argument”
donc au final, tu vas avoir
Shell "winword.exe " + Chr(34) + Argument + Chr(34), vbNormalFocus

Edit
(toujours avec un espace entre exe et le guillemet)
Edité le 28/06/2007 à 08:40

ok, merci pour ton aide mais comme je t’ai dit sur le message qui se situe au dessus du tien, j’ai trouvé la solution!!
merci quand même!!