Ouvrir un logiciel avec ShellExecute [Résolu]

[73brunette73]

Bonjour

J'ai appliqué la meme procédure que "ptichum" dans cette discussion : http://www.developpez.net/forums/d56...-grace-access/

mais quand je clic sur mon bouton j'obtiens le message suivant

"Erreur de compilation

Nombre d'arguments incorrect ou affectation de proprités incorrect"

Dans la fentre de debug shellexecute est surligné

Quelqu'un a une idée

merci

[Philippe JOCHMANS]

Bonjour

C'est que tu as un problème dans ta ligne de code, et sans le code que tu as utilisé, cela va être dur de te répondre.

Il faut donc la ligne de code et indiquer où tu as fait la déclaration.

Philippe

[73brunette73]

Bonjour,

j'ai place ce code dans un module

Code :

1
2
3
4
5
6
7
8
9
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
et ce code dans mon formulaire
 
Private Sub imgPhoto_Click()
ShellExecute Me.hWnd, "open", "C:\WINDOWS\system32\mspaint.exe", Me.Photo, "", "", 1
End Sub

Merci d'avance

[dumas.blr]

Bonjour 73brunette73

As tu vérifié que ton objet me.photo était bien champ de texte ou se trouve le lien de ton fichier image, et non l'image elle-même ?

[73brunette73]

Bonjour,

oui le champ photo est un champ texte de la table ou il est attaché.

Le champ imgPhoto est la ou s'affiche l'image.

[dumas.blr]

Bonjour,

j'avais mal regardé :
dans ta procédure, il y a 7 paramètres, alors que dans ta fonction ShellExecute, il n'y en n'a que 6

[73brunette73]

Merci de t'as réponse mais que me suggeres tu?

[mala92]

Envoyé par 73brunette73

Merci de t'as réponse mais que me suggeres tu?

Virer le paramètre de trop.

Code :

ShellExecute Me.hWnd, "open", "C:\WINDOWS\system32\mspaint.exe", Me.Photo, "", 1

[73brunette73]

Merci de ton aide je viens de trouver et ca fonctionne !!!

J'ai simplement enlever les deux points en trop

Code :

1
2
3
Private Sub imgPhoto_Click()
ShellExecute Me.hWnd, "open", "C:\WINDOWS\system32\mspaint.exe", Me.Photo, "", "", 1
End Sub

devient

Code :

1
2
3
Private Sub imgPhoto_Click()
ShellExecute Me.hWnd, "open", "C:\WINDOWS\system32\mspaint.exe", Me.Photo, "", 1
End Sub

Et tout fonctionne trés bien je clos le sujet merci encrore