Discussion :

[Maverick27]

Bonjour
J'ai une feuille protégée par mot de passe (enregistrer sous puis option -> mot de passe) et une autre feuille qui contient une macro qui doit écrire une valeur dans une case de la feuille protégée. Donc quand le mot de passe est bien taper tout ce passe bien mais si le mot de passe est incorrecte, la valeur se colle dans la feuille sans protection (ce qui normal vu mon code puisque que je colle la valeur dans l'ActiveSheet). Pour éviter cela je vous savoir s'il existe une fonction ou autre permettant de vérifier qu'il n'y a pas eu de problème dans l'ouverture du fichier (peut être tester si le fichier est bien ouvert mais je ne sais pas comment faire). Il faudrait alors que je boucle sur l'ouverture du fichier tant qu'il n'est pas ouvert (redemander le mot de passe)
Voila si vous avez une idée la dessus
Merci à tous
A+

[Krovax]

au lieu de activesheet

Code :

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

workbooks("nomduclasseur").worksheets("nomdel'onglet).range("A1")

Je préfère ca aux les activesheet les select, selection et autres. C'est buen plus fiable et un bloc with ou un set permet de simplifier le code

[Maverick27]

Finalement j'ai résolu mon problème avec ce type de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim lWorkbook As Workbook
    Dim lFound As Boolean
 
    lFound = False
    For Each lWorkbook In Workbooks
        If lWorkbook.Name = "FichierX" Then
            lFound = True
            Exit For
        End If
    Next
    If lFound Then
        <Cas ou le fichier "FichierX" existe>
    End If

Cela fonctionne très bien