Tester si les fichiers sont ouverts VBA
Résolu/Fermé
xavier62000
Messages postés
65
Date d'inscription
lundi 25 juin 2018
Statut
Membre
Dernière intervention
16 mars 2024
-
10 août 2018 à 12:29
xavier62000 Messages postés 65 Date d'inscription lundi 25 juin 2018 Statut Membre Dernière intervention 16 mars 2024 - 14 août 2018 à 14:00
xavier62000 Messages postés 65 Date d'inscription lundi 25 juin 2018 Statut Membre Dernière intervention 16 mars 2024 - 14 août 2018 à 14:00
A voir également:
- Tester si les fichiers sont ouverts VBA
- Tester son pc - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Flash drive tester - Télécharger - Divers Utilitaires
- Renommer plusieurs fichiers - Guide
- Explorateur de fichiers - Guide
2 réponses
yg_be
Messages postés
22694
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 avril 2024
1 471
Modifié le 10 août 2018 à 12:52
Modifié le 10 août 2018 à 12:52
bonjour,
il est sans doute possible d'adapter le code d'importation pour ne pas avoir d'erreur si le fichier est ouvert.
ceci te donnera la liste des noms des fichiers ouverts (du même répertoire) et fera ce que tu demandes le cas échéant:
il est sans doute possible d'adapter le code d'importation pour ne pas avoir d'erreur si le fichier est ouvert.
ceci te donnera la liste des noms des fichiers ouverts (du même répertoire) et fera ce que tu demandes le cas échéant:
Dim wk As Workbook, list As String For Each wk In Workbooks If wk.Name <> ThisWorkbook.Name And Left(wk.Name, 5) <> "Essai" And wk.Path = ThisWorkbook.Path Then list = list & vbCrLf & wk.Name End If Next wk If list <> "" Then Call MsgBox("merci de fermer:" & list, vbCritical, "FICHIERS OUVERTS") Exit Sub End If
xavier62000
Messages postés
65
Date d'inscription
lundi 25 juin 2018
Statut
Membre
Dernière intervention
16 mars 2024
2
14 août 2018 à 14:00
14 août 2018 à 14:00
Merci beaucoup
pour la réponse, cela correspond exactement à ce que j'attendais.
pour la réponse, cela correspond exactement à ce que j'attendais.