[RESOLU] Fermer la macro avant la fin

[jsl72]

Bonjour à tous,

Le code suivant me permet de lancer une boite de dialogue pour sélectionner un fichier *. trc à ouvrir.

Dim strFileName As Variant
Stop
strFileName = Application.GetOpenFilename(filefilter:="Fichier *.trc (*.trc),*.trc", _
Title:="Sélectionnez le fichier à ouvrir")
'si un fichier a été sélectionné, celui-ci est ouvert
If strFileName <> False Then
Workbooks.Open strFileName
End If


Si je valide l'ouverture du fichier choisi, le code renvoie "true" et la macro continue à se dérouler --> NORMAL

Si j'annule l'ouverture du fichier choisi, le code renvoie "False" et la macro doit s'arrêter.
mais ce n'est pas le cas la macro continue à se dérouler.

Merci de concentrer votre recherche sur le code manquant pour atteindre "End sub".lorsque le code renvoie False.

Merci pour votre dévouement.
Bonne soirée.
Joël

 

[phlaurent55]

Re : Fermer la macro avant la fin

Bonjour Joël

avec ceci:

'si un fichier a été sélectionné, celui-ci est ouvert
If strFileName <> False Then
Workbooks.Open strFileName
Else
Exit Sub
End If

à+
Philippe

 

[JCGL]

Re : Fermer la macro avant la fin

Bonjour à tous,

Pas certain d'avoir compris :

Option Explicit

Sub Test()
Dim strFileName As Variant


Stop
strFileName = Application.GetOpenFilename(filefilter:="Fichier *.trc (*.trc),*.trc", Title:="Sélectionnez le fichier à ouvrir")


'si un fichier a été sélectionné, celui-ci est ouvert
If strFileName <> False Then
Workbooks.Open strFileName
Else: Exit Sub
End If
End Sub

A + à tous

Edition : Salut Philippe. Alors la Retraite...

 

[phlaurent55]

Re : Fermer la macro avant la fin

Bonjour Jean-Claude

Edition : Salut Philippe. Alors la Retraite...

La retraite se passe bien,
Hier j'ai été fêté par mes collègues au cours du repas de St-Eloi
..... fleurs pour Madame
.......... et accessoires tour à bois pour moi

à+
Philippe

 

[jsl72]

Re : Fermer la macro avant la fin

Bonjour Philippe,

J'ai peine eu le temps d'exposer ma problématique que j'avais déjà la réponse!!

C'est trop TOP.

Merci pour ton efficience.

Joël.


PROBLEME RESOLU