Bonjour à tous,
J'ouvre un classeur, depuis un autre classeur, ainsi :
...
Call ouvre(resultat1)
...
...
Sub Ouvre(wbMyWb As Workbook)
Dim Nom_Fichier As Variant
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel , *.xls; *.xlsx")
If Nom_Fichier <> False Then Set wbMyWb = Workbooks.Open(Nom_Fichier)
End Sub
Si le fichier n'est pas ouvert, tout se déroule normalement.
Si le fichier est déjà ouvert, le système affiche un message disant que le fichier est déjà ouvert et demande si l'on souhaite le réouvrir ou pas.
Si l'on clique oui, alors il réouvre et mon code continu, si l'on clique sur non il y a une erreur 400.
Je souhaiterais ne pas afficher le message disant que le fichier est déjà ouvert et simplement continuer mon code dans ce cas-là, sans réouvrir le fichier en question donc.
J'ai cherché sur le Web et ne trouve pas réellement réponse. Si quelqu'un peut m'aider...merci d'avance.