Ouvrir un fichier à partir d'un bouton dans un UserForm

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #2

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

Bonjour,

n'importe quel type de fichier ou une extension bien spécifique ?

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 1 Mai 2015

• #3

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

Hervé.

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 1 Mai 2015

• #4

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

Re,
Non par exemple un fichier appeler:
LUTIN.XLSM
Amicalement
Toubabou

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #5

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

changer le chemin par votre chemin

VB:

Sub ouvrir()
    rep = Application.Dialogs(xlDialogOpen).Show("C:\Users\######\Documents\*.xls*")
End Sub

 

Dernière édition: 1 Mai 2015

Vote positif 0 Vote négatif

Zdz16

XLDnaute Occasionnel

• 1 Mai 2015

• #6

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

Cordialement

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 1 Mai 2015

• #7

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

Bonjour Gilbert_RGI,

Avec votre code la boite de dialogue "OUVRIR" s"affiche, mais n'ouvre pas directement le fichier



Toubabou

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #8

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

sélectionner le fichier puis cliquer sur le bouton "ouvrir"

ça doit fonctionner

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 1 Mai 2015

• #9

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

Effectivement cela fonctionne, mais je pensais que le fichier souvrirai automatiquement.
Toubabou

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 1 Mai 2015

• #10

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

un double clique sur le fichier ouvre le fichier

 

Vote positif 0 Vote négatif

T

Toubabou

XLDnaute Impliqué

• 1 Mai 2015

• #11

Re : Ouvrir un fichier à partir d'un bouton dans un UserForm

Oui effectivement mais pa s automatiquement je suis obligé de cliquer sur le nom du fichier.

Quel travail!! Non je rigole
Merci tout de même

Toubabou

 

Vote positif 0 Vote négatif