[RESOLU] Fermer la macro avant la fin

jsl72 · 2 Décembre 2012

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 · 2 Décembre 2012

Re : Fermer la macro avant la fin

Bonjour Joël

avec ceci:

Code:

'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 · 2 Décembre 2012

Re : Fermer la macro avant la fin

Bonjour à tous,

Pas certain d'avoir compris :

VB:

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 · 2 Décembre 2012

Re : Fermer la macro avant la fin

Bonjour Jean-Claude

JCGL à dit:
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 · 2 Décembre 2012

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

[RESOLU] Fermer la macro avant la fin

jsl72

XLDnaute Junior

phlaurent55

Nous a quittés en 2020

JCGL

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

jsl72

XLDnaute Junior

Discussions similaires