Problème ouverture de fichier avec Application.FileDialog(msoFileDialogOpen)

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:

---

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

---

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.

Je te remercie :D, ça marche nickel avec :

Code:

---

Workbooks.Open strFilePath

---

A+

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

Code:

---

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.

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

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

Citation:

---

Envoyé par Leilou65

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.

Oui rien ne s'ouvre (ce qui est normal) mais j'ai un message d'erreur sur cette ligne du code :

Code:

---

strFilePath = fld.SelectedItems(1)

---

Et ce que je souhaite c'est éviter ce message d'erreur.

Je dois donc mettre strFilePath <> "False" en dernière position ?

Réfléchis 10s.

Est-ce que le test doit se trouver avant ou après la procédure que tu veux empêcher ?
Quelle condition doit être remplie pour que cette procédure soit annulée ?

Citation:

---

Envoyé par 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:

---

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 :mrgreen:


exemple :

Code:

---

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 :ptdr: