Discussion :

[backx3]

Bonjour,

J'ai crée un userform et le problème est dans le titre, je n'arrive pas à ouvrir mon fichier après l'avoir choisi.

Les bouts de code qui posent problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public var As String
 
Private Sub Parcourir_Click()
var = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
'Appli.Localisation.Text = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
End Sub
 
Private Sub Generer_Click()
Debug.Print var
    Workbooks.Open Filename:=var
En Sub

Merci d'avance pour votre aide... Je galère

[backx3]

Cela fonctionne très bien en fait, j'avais un exit sub dans mon code un peu plus haut que je n'ai pas posté....

[Invité]

Bonjour,

Il faut déclarer votre variable Var en variant, car le si la boite de dialogue est annulée Var est de type booleen

Sinon vous avez la possibilité d'ouvrir directement le fichier choisi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Parcourir_Click()
 
Dim Var As Variant
 
Var = Application.GetOpenFilename("Fichiers (*.xls*),*.xls*")
 
 If Var <> False Then Workbooks.Open Filename:=Var
 
 
End Sub

Cordialement.

[backx3]

Merci pour tes précisions que j'ai appliquées