[XL-2007] Fermer un répertoire

[Thebeginner]

Bonjour, j ai une macro qui ouvre un répertoire, ceci selon le code suivant:

Code :

1
2
3
4
5
6
7
Sub repertoireExplorateur4()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ("C:\Documents and Settings\michel\dossier\general\excel")
MsgBox (trop de fichier!!!)
....

L'utilisateur doit alors supprimer un ou deux fichier, puis cliquer sur OK.

J'aimerais m'assurer que l'utilisateur a refermer le répertoire, et si ce n'est pas le cas, fermer le répertoire par macro.

De plus, est-il possible de donner une taille et une position au répertoire lorsqu'il s'ouvre. (en haut à gauche par exemple)

En vous remerciant chaleureusement de votre aide

[defluc]

Pour pouvoir répondre, il faudrait comprendre ton code et ce que tu veux faire.

L'instruction

Code :

MsgBox (trop de fichier!!!)

n'est soumise à aucune condition, alors, où est la logique ?

[Thebeginner]

Bonjour Defluc et merci de t'intéresser à mon soucis.

En effet, je n'ai laissé qu'un bout de code et je conçois que, extrait ainsi la logique n'est pas apparente.

En fait le tout est dans un bloc if.

S'il y a plus de 1 fichier .xls dans le répertoire, le répertoire s'ouvre et le msgbox apparait. L'utilisateur doit supprimer les fichiers .xls superflus et ensuite cliquer sur Ok pour que la macros reprenne. Mes soucis:

• Que le répertoire s'ouvre en plein écran
• Que le msg box apparaisse par dessus
• Si l'utilisateur n'a pas refermer le répertoire, le fermer automatiquement

En te remerciant.

[defluc]

L'idéal serait de «balancer» le code complet.
En attendant comment ouvres-tu le répertoire et qu'est-ce que tu entends par :

Que le répertoire s'ouvre en plein écran

Deuxième question, quelle est la version de Excel ?
Parce qu'il y a des procédures builtin plus souples que le Shell pour permettre des actions sur des dossiers et des fichiers.