erreur de compil [Résolu]

[lounacou]

bonjour,
voila, je veux ouvrir un document tuype de word "dossier type.doc" qui est au meme endroit que la base données, puis copier le nom et prenom adresse tel et medecin traitant de la patiente dans ce document puis enregistrer le toutsous le nom "nompatient prenompateint datenaissance.doc"

j'ai créer un bouton nouveau dossier dans les formumaires F-atient et SF-patient
et j'ai inseré ce code, mais je n'ai pas pu aller plus loin il m'affiche erreur de compil.

Code :

1
2
3
4
5
6
7
Private Sub Bascule20_Click()
Dim ret As Variant
 
ret = ShellExecute Me.hwnd, "open", CurrentProject.Path "dossier type.doc"
 
 
'MsgBox (ret)

End Sub

merci.

[marot_r]

Je pense qu'il manque quelque chose entre CurrentProject.Path et "dossier type.doc".

Je soupsconne que c'est CurrentProject.Path & "\dossier type.doc"


A+

[User]

Tu as oublié l'opérateur de concaténation (&)

Code :

1
2
3
4
5
6
7
8
9
Private Sub Bascule20_Click()
Dim ret As Variant
 
ret = ShellExecute Me.hwnd, "open", CurrentProject.Path & "\dossier type.doc"
 
 
'MsgBox (ret)
 
End sub

A+

[Edit:]
Croisement avec René

[lounacou]

bonsoir,
je recapitule:
j'ai inseré 2 bouton commande l'un dans un formulaire SF-Patient avec le code suivant:

Code :

1
2
3
4
5
6
7
8
9
Private Sub Commande9_Click()
Dim ret As Variant
 
ret = ShellExecute Me.hwnd, "open", CurrentProject.Path & "\dossier type.doc"
 
 
'MsgBox (ret)
 
End Sub

et l'autre dans le formulaire F-patient avec le code suivant:

Code :

1
2
3
4
Private Sub Commande20_Click()
 ShellExecute Me.hwnd, "open", CurrentProject.Path & "\dossier type.doc"
 
End Sub

dans le premier code du SF-Patient il m'affiche erreur de syntaxe

et dans le 2 eme code il m'affiche argument non facultatif
merci.

[marot_r]

essaye

Code :

ret = ShellExecute(Me.hwnd, "open", CurrentProject.Path & "\dossier type.doc")

pour le premier, pour l'autre généralement quand tu tapes l'instruction Access te montre en jaune en dessous la liste des paramêtres attendus donc regarde celui qui manque.

Tu peux regarder ici : http://support.microsoft.com/kb/170918 qui explique comment utiliser ShellExecute et les paramêtres qu'elle attend.

A+

[lounacou]

pour le formulaire SF_patient, apres modification du code, il m'affiche

Code :

--> Private Sub Commande9_Click()

selectionné en jaune et la commande Shellexecute selectioné en bleu avec un message d'erreur argument non facultatif.
merci

[marot_r]

À priori, il te manque le 4ième argument.

La page http://support.microsoft.com/kb/170918 explique comment se servir de ShellExecute.

A+

[lounacou]

bonjour,
c'est quoi le 4 eme argument?
merci

[marot_r]

As-tu lu le lien que j'ai posté ?

Mais tu as raison ce n'est pas seulement le 4ième paramètre (ou argument) de ta fonction qui manque mais plus.

Voici l'exemple qui est dans le code de Microsoft de la page http://support.microsoft.com/kb/170918

Code :

ShellExecute(Scr_hDC, "Open", DocName,"", "C:\", SW_SHOWNORMAL)

Comme tu peux le voir il faut 6 paramètres pour que ta fonction soit appelé correctement car aucun n'est optionnel.

A+

[lounacou]

Bonjour,
il m'affiche erreur de compilation variable non defini
il selectionne:

1 ere ligne selectionné en jaune
4 eme ligne: (Scr_hDC selectionné eb bleu)

Code :

1
2
3
4
5
6
7
8
Private Sub Commande9_Click()
Dim ret As Variant
 
ret = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\Users\Desktop\dossier type.doc", SW_SHOWNORMAL)
 
'MsgBox (ret)
 
End Sub

[lounacou]

Bonjour,
merci a tous c'est résolu