Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Function EstOuvert(Classeur$) As Boolean
'/-- Vérifie si OUI ou NON le classeur est ouvert -----
On Error Resume Next
EstOuvert = Not Workbooks(Classeur) Is Nothing
err.Clear
End Function
Sub OuvertOuPas()
If Not EstOuvert('Classeur.xls') Then Workbooks.Open Filename:='Classeur.xls'
Piep14, pour tester l'existence d'un fichier à un emplacement donné, tu peux utiliser la fonction Dir. Trés simple d'emploi, elle te renverra une chaine texte si le fichier existe.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.