filedialog qui entraine un bug bizarre

Question

Developpeur_Fou



Bonjour a tous 



J'utilise la commande filedialog pour r&#233;cup&#233;rer le chemin d un fichier. Tout marche bien mais un petit bug perciste. 

Une fois le doc s&#233;lectionn&#233;, un epage excel s'ouvre !!



voila mon code



Private Sub mnu_fiche_Click()



Dim fso As FileDialog

Dim patch As Variant



Dim w As New Word.Application



Set fso = Application.FileDialog(msoFileDialogFilePicker)



With fso



    .AllowMultiSelect = False

    .Filters.Add "Document texte", "*.txt", 1

    

If .Show = True Then



patch = .SelectedItems(1)



Else

Exit Sub



End If

End With

je pense que c'est ici que la page excel s'ouvre



w.Documents.Open (patch) ces deux lignes n'ont aucunes influences

w.Visible = True



End Sub

cs_EBArtSoft · Answer

peux etre que ton extension txt s'ouvre par defaut avec excel


E.B.

Filedialog qui entraine un bug bizarre

1 réponse

Discussions similaires