Bonjour a tous,
Voila, j'ai creer sur un formulaire un bouton "AfficherImage" pour que quand on clique sur ce bouton Access ouvre le fichier image...
Voici mon code:
le message d'erreur est "fichier introuvable"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub Afficher_Image_Click() On Error GoTo Err_Afficher_Image_Click Dim stAppName As String stAppName = "Z:\duben\Mes documents\Mes images\roulage_01.jpg" Call Shell(stAppName, 1) Exit_Afficher_Image_Click: Exit Sub Err_Afficher_Image_Click: MsgBox Err.Description Resume Exit_Afficher_Image_Click End Sub
alors qu'il ai exactement là ou je l'indique...
j'ai essayé de meme d'ouvrir un fichier word :
mais le msg d'erreur est different: "Argument ou Appel de procedure incorrect"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub OuvrirTexte_Click() On Error GoTo Err_OuvrirTexte_Click Dim stAppName As String stAppName = "Z:\duben\Mes documents\Mes images\roulage1.doc" Call Shell(stAppName, 1) Exit_OuvrirTexte_Click: Exit Sub Err_OuvrirTexte_Click: MsgBox Err.Description Resume Exit_OuvrirTexte_Click End Sub
Est ce que vous pourriez me dire d'ou ca vient???
Merci!!
Partager