Retourner au début du code (inverse du Exit Sub)

Bonjour,

Je voulais savoir si il existe une commande permettant de retourner au début du code en opposé a "Exit Sub" qui permet de sortir du code.

Merci d'avance.

Zapsalis

Bonjour

Très vague...Ta question évoque le notion de boucle

Bonjour,

Je vais essayé d'être plus précis.

J'ai actuellement un bouton qui me permet d'importer un fichier texte (choisi par l'utilisateur) dans mon classeur, et lorsque ce fichier n'est pas un .txt un message s'affiche disant qu'il faut choisir un fichier .txt, avec un exit Sub juste après. L'utilisateur doit donc recliquer sur le bouton importer pour pouvoir importer, je souhaiterais que lorsqu'il ne choisit pas un fichier .txt, le message s'affiche comme actuellement mais en plus de ça qu'il puise directement rechoisir un nouveau fichier.

Zapsalis

Bonjour, salut 78chris !

3 exemples génériques à adapter :

Sub SelectionFichier()

Dim Fichier As String

Do
    Fichier = Application.GetOpenFilename 'Pas de restriction sur le type de fichier
Loop While Not Fichier Like "*.txt" 'On recommence tant que ce n'est pas un txt
Workbooks.Open Fichier

'... reste du code

End Sub

Sub SelectionFichier()

Dim Fichier As String

Fichier = Application.GetOpenFilename("Fichiers texte (*.txt),*.txt") 'Restriction sur fichier txt
Workbooks.Open Fichier

'... reste du code

End Sub

Sub SelectionFichier()

Dim Fichier As String

Debut:
Fichier = Application.GetOpenFilename 'Pas de restriction
If Not Fichier Like "*.txt" Then MsgBox "Choisir un fichier texte !": GoTo Debut 'Message + retour au début
Workbooks.Open Fichier

'... reste du code

End Sub

Merci pour ta réponse, j'ai utilisé la 2ème méthode en l'adaptant à mon cas.

Bonne journée

Zapsalis