Bonjour tout le monde,

J'ai un petit soucis de gestion de la position d'un userform et de l'ouverture et fermeture d'un userform.

Mon code permet de vérifier qu'il y a un seul fichier .xls dans un répertoire, s'il y a plus d'un fichier .xls le répertoire s'ouvre, l'utilisateur doit supprimer les fichiers superflus, puis fermer fermer le répertoire et cliquer sur ok (dans le userform)

Mes problèmes:

  • Ouvrir le répertoire dans la taille maximale (plein écran)
  • Que le userform apparaisse devant le répertoire ouvert
  • Vérifier que le répertoire a bien été fermé par l'utilisateur, sinon le fermer


En espérant avoir été plus clair que lors mon dernier message, je vous remercie de votre attention.


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
retour1:
 
          Fichier = Dir(chemin2 & "*.xls*")
          compteur = 0
            Do While Len(Fichier) > 0
                If compteur = 1 Then ' Cela signifie qu'il y a plus 'un fichier .xls
                    Set objShell = New Shell
                    objShell.Explore (chemin2) 'ouvre le répertoire dont le chemin d'accès est chemin2
 
                    TROP.Show 'Doit apparaitre devant le répertoire
 
                    GoTo retour1 'recommence la boucle pour vérifier que les fichiers superflux ont été supprimés
                End If
 
                Range("i" & (laligne)) = Fichier ' inscrit le nom du fichier dans une cellule du classeur
                Fichier = Dir()
                compteur = 1
            Loop