Discussion :

[Leilou65]

Bonjour à tous,
Je vous écris car j'ai un problème sur une macro.
La macro permet d'ouvrir une boite de dialogue (avec un chemin donné) pour sélectionner un fichier Excel et l'ouvrir sauf que quand je clic sur le fichier pour l'ouvrir il ne s'ouvre pas.
Voici le code :

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
Sub OuvrirDichier()
 
  Dim fld As FileDialog
  Dim strFilePath As String
  Dim Wb As Workbook
 
 
  Set fld = Application.FileDialog(msoFileDialogOpen)
  With fld
    .InitialFileName = "\\serveur\CONTROLE\INVALIDITE\Fiche INVA 7.5\"
    .Show
  End With
 
  If strFilePath <> "False" Then Exit Sub
 
  strFilePath = fld.SelectedItems(1)
 
End Sub

[Menhir]

Tout simplement parce que Application.FileDialog(msoFileDialogOpen) n'ouvre pas de fichier.
Cette propriété se contente d'ouvrir une fenêtre pour sélectionner le fichier à ouvrir.
Comme toute propriété (contrairement aux méthodes), elle ne réalise pas d'action, elle se contente de renvoyer une valeur.

Il faut ensuite ouvrir le fichier avec une instruction correspondant à sa nature.
Par exemple, un Workbooks.Open si c'est un fichier Excel.

[Leilou65]

Je te remercie , ça marche nickel avec :

Code :

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

Workbooks.Open strFilePath

A+

Par contre j'ai un problème avec ce bout de code :

Code :

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

If strFilePath <> "False" Then Exit Sub

En fait il m'empêche d'ouvrir le fichier. En effet quand je le désactive avec l'apostrophe le fichier s'ouvre mais quand il est actif il ne s'ouvre pas.

[Menhir]

Qu'est-ce que cette ligne est supposée faire ?

[Leilou65]

Elle est supposée fermer la boite de dialogue si je clique sur "Annuler" sans qu'il y ai un débogage.

[Menhir]

Elle est supposée fermer la boite de dialogue si je clique sur "Annuler" sans qu'il y ai un débogage.

Il semble donc normal que si tu annules, rien ne s'ouvre, non ?

Mais il y a quand même quelque chose d'étrange : strFilePath est testée avant d'être renseignée.
Vu que c'est une variable String, elle est égale à "" par défaut donc différente de "False".
Il est donc normal que tu sois systématiquement éjectée.

[Igloobel]

Bonjour à tous,
Je vous écris car j'ai un problème sur une macro.
La macro permet d'ouvrir une boite de dialogue (avec un chemin donné) pour sélectionner un fichier Excel et l'ouvrir sauf que quand je clic sur le fichier pour l'ouvrir il ne s'ouvre pas.
Voici le code :

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
Sub OuvrirDichier()
 
  Dim fld As FileDialog
  Dim strFilePath As String
  Dim Wb As Workbook
 
 
  Set fld = Application.FileDialog(msoFileDialogOpen)
  With fld
    .InitialFileName = "\\serveur\CONTROLE\INVALIDITE\Fiche INVA 7.5\"
    .Show
  End With
 
  If strFilePath <> "False" Then Exit Sub
 
  strFilePath = fld.SelectedItems(1)
 
End Sub

Bonjour,

Tu as voulu utiliser le DileDialog et c'est très bien cependant tu as oublié une instruction : ".Execute" qui permet d'ouvrir ton fichier


exemple :

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
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Open dialog box.
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
        .AllowMultiSelect = True
        .InitialFileName = "\\serveur\CONTROLE\INVALIDITE\Fiche INVA 7.5"
        
        If .Show = -1 Then
             .Execute
        Else
            Exit Sub
        End If
    End With

PS : Ce code fonctionne parfaitement chez moi et j'en ouvre même plusieur