Discussion :

[nietzsche64]

Bonjour,

J'utilise le code suivant (sur un bouton) pour permettre à l'utilisateur de sélectionner un fichier Excel sur son ordinateur :

Code :

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

    SaisieFichier = Excel.Application.GetOpenFileName("Fichiers Excel (*.xls; *.xlsm),*.xls;*.xlsm")

Or, cette fenêtre de sélection de fichier n'apparait pas toujours au 1er plan et je suis obligé d'utiliser [Tab]+[Alt] pour me déplacer entre les tâches ouvertes pour la faire afficher. De temps en temps, elle apparait au 1er plan, cela semble aléatoire...

La fenêtre sur laquelle se trouve mon bouton est Indépendante et Modale.

Quelqu'un a-t-il une solution pour faire afficher la fenêtre de sélection d'un fichier au 1er plan ?

Le vous en remercie par avance.

Bonne journée.

[ClaudeLELOUP]

Bonjour,

La fenêtre sur laquelle se trouve mon bouton est Indépendante et Modale.

Modale premier-plan

[nietzsche64]

Bonjour et merci pour ton aide.

Alors, la fenêtre A sur laquelle se trouve le bouton qui, quand on clique dessus, ouvre la "fenêtre B" de sélection d'un fichier est, comme je l'ai précisé dans mon 1er mail, modale.
Même si je la déclare non modale, la "fenêtre B" de sélection d'un fichier ne s'affiche pas au 1er plan.
Pour être plus clair, si j'ai mis fenêtre B entre guillemets c'est parce qu'il n'existe pas de fenêtre B, c'est le code

Code :

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

SaisieFichier = Excel.Application.GetOpenFileName("Fichiers Excel (*.xls; *.xlsm),*.xls;*.xlsm")

qui ouvre un écran de sélection d'un fichier...

Donc que faire ?

Merci encore.

[ClaudeLELOUP]

Personnellement, j'utilise ce qui est décrit dans la FAQ, ici : http://access.developpez.com/faq/?pa...#AffBoitDialog

... et la boîte de dialogue s'affiche au premier-plan.

[nietzsche64]

Merci encore pour ta réponse.

Ta solution ne fonctionne pas chez moi, ça ne m'ouvre rien...

J'ai donc utilisé le code suivant :

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
22
23
24
25
26
27
28
Function SelectionFichier()
  Dim fd As Office.FileDialog
 
  SelectionFichier = ""
 
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
 
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."
 
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
 
  ' Définir les types de fichiers autorisés
  fd.Filters.Clear
  fd.Filters.Add "Excel", "*.xls; *.xlsm"
 
  ' Présélectionner le 2ème type de fichier (images)
  fd.FilterIndex = 1
 
  ' Afficher la boîte de dialogue
  If fd.Show() Then
    SelectionFichier = fd.SelectedItems(1)
  End If
  Set fd = Nothing
End Function

qui fonctionne bien ici (après avoir ajouté la référence "Microsoft Office 14.0 Object Library".

Merci encore pour ton aide.