Plusieurs actions si conditions vrai

Bonjour à tous,

J'utilise la macro évènementielle workbook_open lors de l'ouverture de mon fichier.

J'aimerai que cette macro puisse effectuer 2 actions :

la 1ére : demande de mot passe, pour avoir l'accès au fichier

la 2éme : retourne une valeur dans un msgbox.

J'arrive a faire les fonctionner les macros séparément mais je n'arrive pas à faire effectuer les deux actions a l'ouverture du fichier, seuls la 1 s'effectue

Ci-dessous le code :

Private Sub Workbook_Open()

Dim nom As String
nom = InputBox("quel est votre nom")

If nom = "edwards" Then
Workbooks.Open ("C:\Users\edwards\Desktop\SE")

If Cells(2, 11) <= Date + 60 And cellule <> "" And Range("b8").Value > 0 Then MsgBox ("ATTENTION IL FAUT DEPENSER AVANT LE 31/12/2017" & " LE MONTANT QUI RESTE A DEPENSER EST DE :" & Range(" b8 ").Value & "€")
If Range("b8").Value < 0 Then MsgBox ("NE PLUS RIEN DEPENSER NOUS SOMMES EN DEFICIT DE : " & Range("b8").Value & €)

Else
Workbooks.Close
End If
End Sub

merci de votre aide

Bonjour

If Cells(2, 11) <= Date + 60 And cellule <> "" 

C'est quoi le mot CELLULE ?

Puis votre code ouvre un autre fichier ?? --> Workbooks.Open ("C:\Users\edwards\Desktop\SE")

Cordialement

Bonjour,

Cells(2, 11) n'est pas qualifiée (on ne sait pas quelle feuille du nouveau classeur ouvert...)

cellule est une variable non déclarée et non initialisée...

Cordialement.

NB- Un code indenté est un code lisible ! Un code non indenté... !


Ah ! Doublé ! Salut Dan !

En fait c'est deux actions s'effectuent sur la même feuille.

L'utilisateur rentre sont mot de passe pour avoir accès à la feuille et un msgbox lui renvoie le montant du reste à dépenser sur sa ligne budgétaire.

Ci-joint le fichier si sa peut vous aider. le mot de passe est "excel"

12forum-excel.xlsm (81.18 Ko)

Tu ouvres bien un autre fichier ? Qui devient ipso-facto le classeur actif !

non c'est le même fichier

Pourquoi donc l'ouvres-tu puisqu'il est déjà ouvert !

Et aussi que veut dire Cells <> "" dans ta condition ? Cells réfère à toutes les cellules de la feuille !

Re

1. Dans votre fichier il y a deux macros workbookopen. C'est quoi ce binz ?

2. Cells <> "" ??? pourquoi vous contrôlez que toutes les cellules sont vides ?

3. UGA SE" c'est quoi ? un répertoire ?

en gros lorsque vous dites --> If Cells(2, 11) <= Date + 60 And Cells <> "" And Range("b8").Value > 0

On est sur quelle feuille et dans quel fichier ?

Essayez le fichier joint pour voir...

5forum-excel.xlsm (79.73 Ko)

Bonjour Dan,

Merci j'ai trouvé la solution. Le pb venait que j'ouvrais deux fois le même fichier

merci de votre aide

S'il n'y avait que ça... mais bon ! tu verras bien...

Re

Ok. Alors oublie pas de cloturer les fils de tes demandes si elles sont terminées (click sur le V vert à coté du bouton EDITER)

Je cloture donc ce fil

Cordialement

Rechercher des sujets similaires à "actions conditions vrai"