Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Ouverture de n'importe quel fichier via une Listbox
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Je viens de récupérer un code qui permet d'afficher les fichiers d'un répertoire dans une listbox...j'aimerais qu'en sélectionnant le fichier qu'il s'ouvre ...
Bonsoir Thespeedy,
Pourquoi passer par une listbox ?
On peut utiliser un service VBA pour le faire :
VB:
Sub OuvrirFichier()
Dim Fichier As String
With Application.FileDialog(3)
.Show
On Error Resume Next
Fichier = .SelectedItems(1)
If Err.Number <> 0 Then Exit Sub
Workbooks.Open Fichier
End With
End Sub
ou encore si on veut aller à un endroit spécifique :
Code:
Sub OuvrirFichier()
Dim Fichier As String, Chemin As String
Chemin = "g:\Users\PC_PAPA\Documents\_SYLVAIN\Technique\Excel" ' Mettre le chemin désiré
ChDrive "G"
ChDir Chemin
Fichier = Application.GetOpenFilename()
If Fichier = "Faux" Then Exit Sub
Workbooks.Open Fichier
End Sub
tes deux propositions sont valables pour ouvrir des fichiers excel...ici je désire pouvoir ouvrir tous les fichiers, aussi bien image, que pdf, que format word....
Oups, désolé, ce n'était pas précisé.
Au cas où ... cette macro ouvre tout type.
VB:
Sub OuvrirFichier3()
Dim Fichier As String
With Application.FileDialog(3)
.Show
On Error Resume Next
Fichier = .SelectedItems(1)
If Err.Number <> 0 Then Exit Sub
OuvrirFichier4 Fichier
End With
End Sub
Public Function OuvrirFichier4(MonFichier As String)
'par Excel-Malin.com ( https://excel-malin.com )
On Error GoTo OuvertureFichierErreur
'vérifie si le fichier existe
If Len(Dir(MonFichier)) = 0 Then
OuvrirFichier4 = False
Exit Function
Else
End If
'ouvre le fichier dans son application associée
Dim MonApplication As Object
Set MonApplication = CreateObject("Shell.Application")
MonApplication.Open (MonFichier)
OuvrirFichier4 = True
Set MonApplication = Nothing
Exit Function
OuvertureFichierErreur:
Set MonApplication = Nothing
OuvrirFichier4 = False
End Function
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD