Discussion :

[smartbis]

bonjour
j'ai essayé d'utiliser la commande shellexecute sans succés un message d'erreur s'affiche
Auriez vous une idee de mon probleme

Merci d'avance



voici ce que j'ai mis en declaration

Code :

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

Private 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 ca dans mon code

Code :

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

1
2
3
Dim lapi As Long
Document = "C:\Documents and Settings\bureau\Mes documents\googleearth\" & "\" & "\loloessai-" & Range("E4") & "-" & Range("F4") & "-" & Range("G4") & ".kml"
lapi = ShellExecute(Me.hWnd, "open", a$, vbNull, vbNull, 5)

le message d'erreur

erreur de compilation
membre de méthode ou de donnée introuvable

le debogueur se place sur l'extension hwnd dans

Code :

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

lapi = ShellExecute(Me.hWnd, "open", a$, vbNull, vbNull, 5)

[SfJ5Rpw8]

remplace Me.hwnd par 0 ..

[smartbis]

cela semble mieux mais ensuite j'ai un nouveau message d'erreur qui s'affiche

erreur de compilation

sub ou func non defini



le texte shellexecute est surligné en bleu tandis que la ligne
Private Sub validation_Click() est surligné en jaune

[SfJ5Rpw8]

et tous ce code tu la mis ou ..?

[smartbis]

en fait j'ai creer un useform dans lequel se trouve un bouton
lorsque je clic sur celui ci je fais des calculs , j'enregistre un fichier au format kml ( jusque la pas desouci tout se passe bien) et ensuite je souhaitais ouvrir ce fichier dans l'application correspondante

la declaration a été faite en tete du workbook et le code dans la commande appui sur le bouton

j'espere etre assez clair

merci

[AlainTech]

Si ton Declare Function est en Private et dans un autre module que la procédure qui l'appelle, il y a peu de chance que les deux se rencontrent...