Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Demande de mot de passe

Demande de mot de passe

3 réponses
Avatar
Dolores
Salut,

J'ai un fichier de statistique qui doit, lorsque je clique=20
sur un certain bouton, me demander un mot de passe et si=20
ce dernier est correct, le doc. est enregistr=E9 sous un=20
autre chemin. Le code fonctionne pour tout except=E9 pour le=20
mot de passe : m=EAme si je n'inscrit aucun mot de passe il=20
effectue quand m=EAme l'op=E9ration.

Je vous joint le code. Quelqu'un peut-il me dire ce qui=20
cloche ?

D'avance merci


If MotDePasse =3D Worksheets("JardinSecret").Range("B6") Then
CurDir MonChemin
ChDir MonChemin
On Error GoTo fin
MkDir MonChemin & annee
MonChemin =3D MonChemin & annee & "\"
ChDir MonChemin
Sheets("emmanuelle").Visible =3D True
Sheets("r=E9capitulatif").Visible =3D True
Sheets("menu").Visible =3D False
Sheets(Array("Emmanuelle", "r=E9capitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
reponse =3D msgbox("voulez-vous imprimer les document ?",=20
vbQuestion + vbYesNo)
If reponse =3D vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Exit Sub

fin:
MonChemin =3D "f:\agences chr\statistiques=20
hebdomadaires\stat_emmanuelle\" & annee & "\"
ChDir MonChemin
Sheets("emmanuelle").Visible =3D True
Sheets("r=E9capitulatif").Visible =3D True
Sheets("menu").Visible =3D False
Sheets(Array("Emmanuelle", "r=E9capitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
'Unload Me
reponse =3D msgbox("voulez-vous imprimer les=20
document ?", vbQuestion + vbYesNo)
If reponse =3D vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Else
Exit Sub
End If
Sheets("menu").Visible =3D True
Sheets("emmanuelle").Visible =3D False
Sheets("r=E9capitulatif").Visible =3D False
Unload Me
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour Dolores
As-tu déclaré MotdePasse en tant que variable ?
Cordialement
Pascal

"Dolores" a écrit dans le message de
news:093701c3b99d$b16360f0$
Salut,

J'ai un fichier de statistique qui doit, lorsque je clique
sur un certain bouton, me demander un mot de passe et si
ce dernier est correct, le doc. est enregistré sous un
autre chemin. Le code fonctionne pour tout excepté pour le
mot de passe : même si je n'inscrit aucun mot de passe il
effectue quand même l'opération.

Je vous joint le code. Quelqu'un peut-il me dire ce qui
cloche ?

D'avance merci


If MotDePasse = Worksheets("JardinSecret").Range("B6") Then
CurDir MonChemin
ChDir MonChemin
On Error GoTo fin
MkDir MonChemin & annee
MonChemin = MonChemin & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
reponse = msgbox("voulez-vous imprimer les document ?",
vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Exit Sub

fin:
MonChemin = "f:agences chrstatistiques
hebdomadairesstat_emmanuelle" & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
'Unload Me
reponse = msgbox("voulez-vous imprimer les
document ?", vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Else
Exit Sub
End If
Sheets("menu").Visible = True
Sheets("emmanuelle").Visible = False
Sheets("récapitulatif").Visible = False
Unload Me
End Sub
Avatar
Dolores
Oui,

Je l'ai déclaré comme cela :

Dim MotDePasse as String

MotDePasse = Worksheets("JardinSecret").Range("B6")


-----Message d'origine-----
Bonjour Dolores
As-tu déclaré MotdePasse en tant que variable ?
Cordialement
Pascal

"Dolores" a écrit dans le
message de

news:093701c3b99d$b16360f0$
Salut,

J'ai un fichier de statistique qui doit, lorsque je clique
sur un certain bouton, me demander un mot de passe et si
ce dernier est correct, le doc. est enregistré sous un
autre chemin. Le code fonctionne pour tout excepté pour le
mot de passe : même si je n'inscrit aucun mot de passe il
effectue quand même l'opération.

Je vous joint le code. Quelqu'un peut-il me dire ce qui
cloche ?

D'avance merci


If MotDePasse = Worksheets("JardinSecret").Range("B6")
Then

CurDir MonChemin
ChDir MonChemin
On Error GoTo fin
MkDir MonChemin & annee
MonChemin = MonChemin & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
reponse = msgbox("voulez-vous imprimer les document ?",
vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Exit Sub

fin:
MonChemin = "f:agences chrstatistiques
hebdomadairesstat_emmanuelle" & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
'Unload Me
reponse = msgbox("voulez-vous imprimer les
document ?", vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Else
Exit Sub
End If
Sheets("menu").Visible = True
Sheets("emmanuelle").Visible = False
Sheets("récapitulatif").Visible = False
Unload Me
End Sub


.



Avatar
Michel Gaboly
Bonjour Dolorès,

Par conséquent, le test est toujours positif, puisque tu
compares MotDePasse à sa définition :

If MotDePasse = Worksheets("JardinSecret").Range("B6") Then

C'est la réponse de l'utilisateur qui doit être comparée.
Si tu utilises un TextBox (nom à adapter, il faut tester ainsi :

If TextBox1 = MotDePass then
...



Oui,

Je l'ai déclaré comme cela :

Dim MotDePasse as String

MotDePasse = Worksheets("JardinSecret").Range("B6")

-----Message d'origine-----
Bonjour Dolores
As-tu déclaré MotdePasse en tant que variable ?
Cordialement
Pascal

"Dolores" a écrit dans le
message de

news:093701c3b99d$b16360f0$
Salut,

J'ai un fichier de statistique qui doit, lorsque je clique
sur un certain bouton, me demander un mot de passe et si
ce dernier est correct, le doc. est enregistré sous un
autre chemin. Le code fonctionne pour tout excepté pour le
mot de passe : même si je n'inscrit aucun mot de passe il
effectue quand même l'opération.

Je vous joint le code. Quelqu'un peut-il me dire ce qui
cloche ?

D'avance merci


If MotDePasse = Worksheets("JardinSecret").Range("B6")
Then

CurDir MonChemin
ChDir MonChemin
On Error GoTo fin
MkDir MonChemin & annee
MonChemin = MonChemin & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
reponse = msgbox("voulez-vous imprimer les document ?",
vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Exit Sub

fin:
MonChemin = "f:agences chrstatistiques
hebdomadairesstat_emmanuelle" & annee & ""
ChDir MonChemin
Sheets("emmanuelle").Visible = True
Sheets("récapitulatif").Visible = True
Sheets("menu").Visible = False
Sheets(Array("Emmanuelle", "récapitulatif")).Copy
ActiveWorkbook.SaveAs MonChemin & mois & reP
'Unload Me
reponse = msgbox("voulez-vous imprimer les
document ?", vbQuestion + vbYesNo)
If reponse = vbNo Then
ActiveWorkbook.Close
Else
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
End If
Else
Exit Sub
End If
Sheets("menu").Visible = True
Sheets("emmanuelle").Visible = False
Sheets("récapitulatif").Visible = False
Unload Me
End Sub


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com