Faire un décompte

bonjour, en vba, je récupère une variable qui est égal à 5 (supposons). Je veux décompter ce chiffre jusqu'à 0 et créer un répertoire à chaque fois qu'il y a un décompte. Est-ce possible? Tout les programme VBA que j'ai trouvé sur les sites sont fait à partir d'une varaible temps.

Voilà ce que j'aimerais avoir.

Ex: 5 = crée le répertoire x, 4 crée le répertoire xx, 3 crée le répertoire xxx, etc. À 0 la commande s'arrête.

Voilà ce à quoi j'ai penser pour faire le décompte mais ça ne fonctionner pas. "Count" prend la valeur 4 mais ça ne boucle pas et je ne sais pas comment faire par la suite pour créer le répertoire.

Dim compte As Integer

Count = QuaÉquip - 1

If Count <= 0 Then

MsgBox " . compte à rebours complet "

End If

Je n'ai pas de fichier. J'en suis encore au stade de la conception de la macro.

Merci de votre aide.

while compteur>0
'créer répertoire
compteur = compteur -1
wend

merci, j'ai trouvé la réponse. J'y suis allé avec un do while et je crée mes répertoires dans la boucle de manière à créer un répertoire par décompte. Je laisse la macro pour exemple si jamais quelqu'un cherche quelque chose d'équivalent.

sub test()

Dim count As Integer

Dim NumName as String

Dim QuaÉquip As Integer

Dim WSHShell As Object

Set WSHShell = CreateObject("WScript.Shell")

Dim FSOobj As Object

Set FSOobj = CreateObject("Scripting.FilesystemObject")

'Création des répertoires

QuaÉquip = InputBox("entrez la quantité de dossier requit", vbOKCancel)

count = QuaÉquip + 1

Do While count <> 1

count = count - 1

NumName = UCase(InputBox("entrez le nom du dossier", vbOKCancel))

Rep = path & "-" & count & " " & NumName

If FSOobj.FolderExists(Rep) = False Then

FSOobj.createfolder Rep

End If

Loop

End Sub

C'est un résumé de ma macro mais qui donne une idée de comment faire.

merci pour l'aide.