Bonjour à tous,

j'ai un soucis quant à la sauvegarde de ma feuille excel et à sa fermeture.

Ma procédure consiste a changer 1 mot de passe que j'ai défini a la base (ici : airbus), a chaque lancement de mon application si le mot de passe est toujours ' airbus ' je fais appel a ma procédure ci-dessous. J'arrive a effectuer le changement de mot de passe, je vois dans mon classeur ou j'ai les logs et les mots de passe que ca a bien été changer. Mon problème maintenant est le suivant : je n'arrive pas a sauvegarder ce classeur et encore moins a le fermer.

Commentaires en anglais, vu que le code de mon appli doit etre lisible par n'importe qui a Airbus, étant donné que celle-ci doit etre en place jusqu'en 2009. Etant en stage je ne pourrais m'occuper de la maintenance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
' procedure started on click on button 'Ok'
' change your old password
 
Private Sub cmd_ok_Click()
 
Dim error_msg As String
Dim log As String
Dim pw As String
Dim i As Integer
 
log = txtbox_log.Text
pw = txtbox_pw.Text
 
For i = 2 To 25 ' traverses the contents of the cells
If (Application.Cells(i, 1).Value = log) Then ' if the name of user is present
Application.Cells(i, 2).Value = pw
Form_choice.Show ' show the choice form
Form_new_pw.Hide ' hide the "new password" form
Workbooks("log_pw.xls").Activate
ThisWorkbook.Save ' save the log_pw.xls
End If
Next i ' next cell
If (txtbox_pw.Text = "airbus") Or (txtbox_pw.Text = "") Then
error_msg = MsgBox("Choose an other password.", vbOKOnly + vbCritical, "Choose a valid password please.")
End If
 
End Sub
Derniere precision, le classeur avec les logs et les mots de passe n'est pas le meme que mon appli.

Merci de votre aide