Discussion :

[Le Sphinx]

Bonjour,
J'ai bien assimiler le tuto concernant la récupération du chemin d'un fichier et d'un répertoire.
Mais, il y a t'il moyen d'ouvrir un fichier a partir d'Access en parcourant un dossier. C'est a dire a partir de la procédure décrite dans le tuto "Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné", en poussant plus loin peut on ouvrir le fichier sélectionné au lieu de renvoyer uniquement le chemin.

J'espère avoir été assez clair.

[Psychopathe]

Quel fichier? Essaie shellExceute sinon:

http://vb.developpez.com/faq/?page=Systeme#shellexecute

[christophe31]

Salut,

Voici un code pour ouvrir un fichier excel :

Il te suffit de remplacer C:\MonFichierExcel.xls par ton chemin d'accès du fichier excel ou ta variable qui comporte le chemin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel (rajoute ton chemin fichier ici)
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls") 
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

[Le Sphinx]

Merci a tous deux,
Mais ce n'est pas tout a fait ca. J'aimerais après avoir ouvert la fenetre de dialogue des dossiers par le commande suivante:

Code :

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

1
2
3
strLink = OuvrirUnFichier(Me.hwnd, _
                         "Sélectionner une photo" & Me.NrCR, _
                         1)

ouvrir un fichier en cliquant dessus comme dans l'explorateur windows avec l'application par défaut.
Mes fichiers sont des images au format JPG.
Merci quand meme de vos réponses.

[Invité]

Bonjour

Psychopathe t'a donné la solution en utilisant l'API ShellExecute, cette API permet d'utiliser l'application associé au type de fichier.

Il suffit de passer en paramètre ton strLink

Philippe

[Le Sphinx]

Rebonjour
Merci, mais je suis désolé je suis un vieux débutant autodidacte et je dois me planter quelque part mais ca ne fonctionne pas.
Je dois placer la déclaration de la fonction au mauvais endroit, car cela me renvoie un message d'erreur du genre on ne doit pas placer de comentaires ou de déclaration avant sub etc...

[Invité]

Re

Merci, mais je suis désolé je suis un vieux débutant autodidacte

Moi aussi

Je dois placer la déclaration de la fonction au mauvais endroit, car cela me renvoie un message d'erreur du genre on ne doit pas placer de comentaires ou de déclaration avant sub etc...

Si tu mets le code sur le forum, cela permettra aux membres de celui-ci de comprendre ton soucis.

Philippe

[Le Sphinx]

Rebonsoir,
bon je vous soumets ce que j'ai comme code, une dernière tentative je ne voudrais pas abuser de votre patience, j'essaireai de trouver une autre solution sinon mais qui risque d'être moins distinguée.

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
17
18
19
20
21
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
 
Private Sub OuvrirImage1_Click()
 
 
 
strLink = OuvrirUnFichier(Me.hwnd, "Sélectionner une photo ", 1)
 
    ' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la photo
    Me.imgPhoto1.Picture = strLink
    Me.Photo1 = strLink
 
    ShellExecute Me.hwnd, "open", strLink, , App.Path, 1
 
End If
 
End Sub

[Invité]

Re

Remplaces ta ligne par celle-ci pour voir, car tu as pris le code dans la FAQ Vb, il faut prendre celui de la FAQ Access.

Code :

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

ShellExecute Me.hwnd, "open", strLink, "", CurrentProject.Path, 1

Ta déclaration de la fonction ShellExecute se trouve bien au début du module ?

Philippe

[Le Sphinx]

Bonjour,

Yes

Je te remercie infiniment,Philippe, ca marche je l'ai un peu adapté a mon cas car je désirai une photo bien précise a chaque fois. donc j'ouvre bien la photo avec l'appli par défaut et non le répertoire en modifiant "strLink".

Ce n'est pas le lieu pour s'épandre mais je suis satisfait de voir que malgré mes bientot 60 printemps et sans aucune formation en informatique j'arrive avec votre aide a tous, a toujours progresser.

Bravo et merci a toi Philippe.

Raymond