Discussion :

[mouftie]

Bonjour,
Je voudrais tester si un fichier est déjà ouvert (ex suite à plantage, si je relance cela va planter)
L'idéal serait de vérifier si l'un des fichiers ouverts appartient à un répertoire spécifique (ex C:\MonAppli\Req)
Sinon, véfier si les 3 premières lettres des fichiers commencent par "Asp" ou "DdS" ou "Rev"

J'ai trouvé une fonction qui vérifie si un classeur est ouvert, mais je ne sais pas l'exploiter avec mes impératifs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function WbOpen(name As String) As Boolean
'Fonction pour vérifier si un classeur est ouvert
'utiliser pour la mise à jour BO : Aucun fichier BO ouvert
On Error Resume Next
Set WbBo1 = Application.Workbooks.Item(name)
    WbOpen = (Not WbBo1 Is Nothing)
End Function
Sub Test()
'On vérifie si aucun fichier BO est ouvert => xRet
xRet = WbOpen("Nm.xlsx")
If xRet Then MsgBox "Fichier BO à fermer, SVP", vbInformation, "SuperV": Exit Sub
end sub

Merci d'avance pour votre aide

[Philippe Tulliez]

Bonjour,
Pour savoir si un classeur est ouvert, il suffit de parcourir la collection des classeurs (Workbooks) à l'aide d'une boucle
Les propriétés

• Name d'un classeur renvoie le nom du classeur
• Path renvoie le dossier dans lequel il est
• FullName renvoie le dossier ainsi que son nom

Pour extraire des chaînes de caractères, les fonctions : Left, Right, Mid
Pour savoir si une chaîne est présente dans une chaine, la fonction Instr