[XL-2007] Vérifier la S'assurer de la disponibilité de 2 fichiers ouverts sur bureau. [Résolu]

[Katoch]

Bonsoir Forum !
Ceci est ma première discussion,et sûrement pas la dernière !
Je réalise un projet et au grès de mes blocages , je suis novice évidemment , je ferai appel à vos suggestions.Cool.

J'ai créér un US Fpour lequel un des boutons (CommandButton1) déclenche une macro.Cette macro récupère des données de 2 fichiers qui doivent être ouverts sur le bureau.Lorsque c'est le cas , ça roule .Je sais faire(parce que c'est simple..).
Par contre , si l'un des 2 fichiers ou les deux ne sont pas ouverts, je souhaiterais éviter le popup VBA qui invite à un débogage.Cette piste doit être remplacée par un contrôle préalable de la disponibilité de ces fichiers ouverts sur le bureau et si ce n'est pas le cas , ne pas lancer la macro et alerter l'utilisateur en l'invitant à ouvrir ces deux fichiers sur son bureau.
Pouvez vous me décrire un "machin" qui peut réaliser celà? (j'insiste sur la partie décrire , qui me permet de comprendre et de progresser,enfin , j'espère !).
Meci par avance.

[BlueMonkey]

Bonsoir,

Bienvenue sur le forum.

En parcourant les classeurs ouverts (Workbooks), il est possible de voir si parmi ces classeurs,
figure le nom des fichiers attendus.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Function AreRequestedWbOpen(wb1 As String, wb2 As String) As Boolean
    Dim wb As Workbook
    Dim FoundWb As Integer
    FoundWb = 0
    For Each wb In Workbooks ' parcours les classeurs ouverts
        If wb.Name = wb1 Or wb.Name = wb2 Then
            FoundWb = FoundWb + 1
        End If
    Next wb
 
    AreRequestedWbOpen = (FoundWb = 2)
End Function

[Katoch]

Tout d'abord merci de cette réponse rapide !

je crois comprendre que je dois remplacer wb1 et wb2 de ce code par les noms des classeurs que je recherche.
Mais j'avoue que je vois pas du tout comment récupérer le résultat de ce code pour
"...ne pas lancer la macro et alerter l'utilisateur en l'invitant à ouvrir ces deux fichiers sur son bureau...."
Pouvez vous développer ?
Cdlt

[kiki29]

Salut, une autre méthode, à adapter à ton contexte http://excel.developpez.com/faq/?pag...ClasseurOuvert
en ajoutant une gestion pour Err.Number = 53

[BlueMonkey]

Re.

Mais j'avoue que je vois pas du tout comment récupérer le résultat de ce code pour
"...ne pas lancer la macro et alerter l'utilisateur en l'invitant à ouvrir ces deux fichiers sur son bureau...."

La méthode pour détecter et avertir qu'un fichier n'est pas ouvert.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function CheckAndNotifyIsOpenWb(wbName As String) As Boolean
    Dim wb As Workbook
    CheckAndNotifyIsOpenWb = False
    For Each wb In Workbooks ' parcours les classeurs ouverts
        If wb.Name = wbName Then
            CheckAndNotifyIsOpenWb = True
        End If
    Next wb
 
    If Not CheckAndNotifyIsOpenWb Then  ' notifie que le fichier recherché n'est pas ouvert
        Call MsgBox("Fichier " & wbName & " non ouvert", vbExclamation + vbOKOnly, "Erreur")
    End If
 
End Function

Au début de la macro à exécuter, on teste l'ouverture de fichier.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub CBStartMacro_Click()
 
    If Not (CheckAndNotifyIsOpenWb("Classeur1")) Or Not (CheckAndNotifyIsOpenWb("Classeur2")) Then
        Call MsgBox("Le traitement va être interrompu. Ouvrez les fichiers sur le bureau", _
                    vbExclamation + vbOKOnly, "Erreur")
        Exit Sub  ' Met fin à la macro.
    End If
 
    ' effectue le traitement normal
    '...
End Sub

[Katoch]

BlueMonkey ,kiki29
merci , je vais mettre en oeuvre !
Vous tiendrai informés d'ici quelques jours ...
Pour une première utilisation de ce forum , quelle efficacité !
Bravo à tous/toutes et encore merci.

[AlainTech]

Bonjour,

Plutôt que renvoyer un message d'erreur à l'utilisateur, pourquoi ne pas ouvrir les fichiers dans la macro?

[Katoch]

Bonsoir Forum !
Alain Tch : je ne désire pas ouvrir les fichier par la macro,merci !
BlueMonkey : ne pas tenir compte du mail Perso... j'ai trouvé mon erreur et biensûr ton code est nickel !!!

Merci à tous.

((je reviendrai !!)

[BlueMonkey]

Bonsoir,

Envoyé par Katoch

Bonsoir !
Où dois je insérer exactement le code ??

La macro commençant par

Sub Macro6()
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
....................etc
End Sub

Et bien là par exemple.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Macro6()
   If Not (CheckAndNotifyIsOpenWb("Classeur1")) Or Not (CheckAndNotifyIsOpenWb("Classeur2")) Then
        Call MsgBox("Le traitement va être interrompu. Ouvrez les fichiers sur le bureau", _
                    vbExclamation + vbOKOnly, "Erreur")
        Exit Sub  ' Met fin à la macro.
    End If
 
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
 ....................etc
End Sub

Mais je suis d'accord avec AlainTech : plutôt que de dire à l'utilisateur d'aller ouvrir les fichiers,
autant les ouvrir depuis la macro.
_______________________________________
PS.
Le mieux est d'utiliser le forum pour les questions.
De cette manière tout le monde peut réagir, et apporter ses idées pour
faire progresser le sujet.