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.
Ouvrir un fichier à partir d'un bouton dans un UserForm
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 !
Bonjour à tous,
Voila je voudrai pouvoir ouvrir un fichier se trouvant sur une clé USB, où dans un dossier à partir d'un bouton de commande se trouvant dans un UserForm.
Re : Ouvrir un fichier à partir d'un bouton dans un UserForm
Bonjour,
Teste ce qui suit pour voir si ça te convient :
Code:
Private Sub CmdOuvrir_Click()
Dim Fichier
With Application.FileDialog(3)
'seulement les .xls et xlsx, adapter...
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx", 1
.Show
On Error Resume Next 'si annuler
Fichier = .SelectedItems(1)
If Err.Number <> 0 Then
MsgBox "Pas de sélection !"
Exit Sub
End If
End With
'ouverture du fichier
Application.Workbooks.Open Fichier
End Sub
Re : Ouvrir un fichier à partir d'un bouton dans un UserForm
Bonjour à tous et au forum;
Peut être en utilisant Application.GetOpenFileName.
Permet d'afficher la boite Ouvrir et sélectionner le fichier que tu veux avec possibilité de choisir les extensions
Par exemple :
Code:
Sub RecupFichier()
Dim sFile As String
'Avec filtre pour *.Txt, mais tu peu sélectionner ce que te convient
sFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Application.ScreenUpdating = False
If Len(sFile) > 0 Then
'Ton traitement ....
End If
Application.ScreenUpdating = True
End Sub
- 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