Discussion :

[teaRz]

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

[jmfmarques]

Bien !
Le message du demandeur a été modifié et complété par lui à la suite de quelques MP.

Je pense qu'il s'agit principalement d'un problème de chemin, mais laisse maintenant la place aux pros habituels de VBA... En insistant sur le fait que le demandeur a fait l'effort demandé

[teaRz]

Nop, j'avais déja vérifier cela :]

[teaRz]

j'avais testé ca hier dans l'aprem. J'ai retesté ce matin, sans résultat

[illight]

Et si tu fais ça :

Code :

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

Workbooks("log_pw.xls").close savechanges:=true

ça marche pas non plus ?

[teaRz]

C'est le badtrip

Toujours le même problème :[