Tester si les fichiers sont ouverts VBA

Résolu
xavier62000 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -  
xavier62000 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite transférer des données de différents fichiers vers un seul dans le but de consolider mes données. Pour ce faire, j'ai crée un code dans ce sens et il fonctionne. Sauf, pour qu'il fonctionne sans bugg, il faut que tous les fichiers soit Fermés (à l'exception du fichier en cours d'utilisation biensûr et un autre appeler Essai). Je précise que tous les fichiers se trouvent dans le même répertoire.

Ainsi, pouvez m'écrire un petit bout de code dans le sens ou si tous les fichiers ne sont pas fermés

1°) Afficher dans une boite de dialogue les fichiers qui sont ouverts
2°) Sortir de la procédure


Sub LANCEMENT()
'avertissement pour autorisation de lancement
MyValue = MsgBox("Cette action va modifier les données affichées " & vbCrLf & "TOUS LES CLASSEURS CLUBS DOIVENT ETRE FERMES" & vbCrLf & "Cliquez sur oui pour continuer", _
vbYesNo + vbCritical + vbDefaultButton1, "AVERTISSEMENT")

If MyValue = vbYes Then
Call IMPORTATION
End If
End Sub

Merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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: 
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
1
Réponse 2 / 2
xavier62000 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci beaucoup

pour la réponse, cela correspond exactement à ce que j'attendais.
0

Discussions similaires

Test cable RJ45 cablé
gogot01 -
maxyyy -

11 réponses