Bonjour a tous,

J'ai un petit soucis, j'ai des filedialog de type FolderPicker.
Je pense bien à les libérer comme ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fd as FileDialog
 
Set Fd = Application.FileDialog(msoFileDialogFilePicker)
with Fd
 .Show
 if .SelectedItem.Count>0 then
   SimuPath = .SelectedItems(1)
 else
   Set Fd = Nothing
   Exit Sub
 end if
end with
set Fd = Nothing
Cela marche niquel je peux l'ouvrir le fermer, prendre un fichier le réouvrir... ETC la fenetre marche toujours pareil.

Cependant si entre temps j'ouvre ma filedialog, je la libère... etc, j'exécute un .bat par exemple et bah la lorsque je réouvre ma filedialog, je ne peux plus cliquer sur les raccourcis à droite (Mes documents récents, bureau...)

Je pense qu'il y a une méthode plus précise pour libérer Fd ou alors à un autre endroit.

J'espere avoir été assez claire. Merci a tous,

Basiten

EDIT: Pour que cela marche, je suis obligé de faire un
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.WindowState = xlNormal
juste après avoir ouvert mon .bat comme si on devait "recharger" excel...