Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fenetre dialog

Fenetre dialog

4 réponses
Avatar
Kamel
Bonsoir à tous,

Mon problème est de savoir comment avoir en VBA une fenetre de dialogue
identique à celle qui sert à ouvrir un document sous Excel mais qui me
renvoie le fichier selectionné et qui ne l'ouvre pas ...

Merci !
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Salut Kamel,
Regarde ceci et adapte :
Sub Ouvrir()
Dim Pos As Long
On Error Resume Next
With Application.FileDialog(1)
.Show
.Filters.Clear
.Filters.Add "Fichiers Excel", "*.xls", 1
'ouvre le classeur
'Workbooks.Open .SelectedItems(1)
'retourne le nom du fichier et son chemin complet
MsgBox .SelectedItems(1)
'retourne juste le nom du fichier
Pos = InStrRev(.SelectedItems(1), "")
MsgBox Mid(.SelectedItems(1), Pos + 1, _
Len(.SelectedItems(1)) - Pos)
End With
End Sub

Hervé.

"Kamel" a écrit dans le message news:

Bonsoir à tous,

Mon problème est de savoir comment avoir en VBA une fenetre de dialogue
identique à celle qui sert à ouvrir un document sous Excel mais qui me
renvoie le fichier selectionné et qui ne l'ouvre pas ...

Merci !




Avatar
Jacques
Bonsoir,
Bonsoir à tous,

Mon problème est de savoir comment avoir en VBA une fenetre de dialogue
identique à celle qui sert à ouvrir un document sous Excel mais qui me
renvoie le fichier selectionné et qui ne l'ouvre pas ...

Merci !




Dim fd As FileDialog

Set fg = Application.FileDialog(msoFileDialogOpen)

With fg
.InitialFileName = RepertoireParDefaut
.Filters.Add "Fichier xls", "*.xls", 1
.Show
If .SelectedItems.Count > 0 Then MsgBox .SelectedItems(1)
End With

--
Cordialement,

Jacques.

Avatar
anonymousA
bonsoir,

utiliser la méthode Getopenfilename devrait suffire. Te reporter à
l'aide de VBA pour des explications supplémentaires. Elle est plutot
bien faite pour cette méthode.

A+


Bonsoir à tous,

Mon problème est de savoir comment avoir en VBA une fenetre de dialogue
identique à celle qui sert à ouvrir un document sous Excel mais qui me
renvoie le fichier selectionné et qui ne l'ouvre pas ...

Merci !




Avatar
Kamel
Merci c'est du lourd ca ! ;))

"Jacques" a écrit dans le message de
news:
Bonsoir,
Bonsoir à tous,

Mon problème est de savoir comment avoir en VBA une fenetre de dialogue
identique à celle qui sert à ouvrir un document sous Excel mais qui me
renvoie le fichier selectionné et qui ne l'ouvre pas ...

Merci !


Dim fd As FileDialog

Set fg = Application.FileDialog(msoFileDialogOpen)

With fg
.InitialFileName = RepertoireParDefaut
.Filters.Add "Fichier xls", "*.xls", 1
.Show
If .SelectedItems.Count > 0 Then MsgBox .SelectedItems(1)
End With

--
Cordialement,

Jacques.