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
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
Dernière édition: