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 :[

[teaRz]

Je regarde quoi en particulier dans les options ?

[teaRz]

Bon bah aperrement c bon now.
J'ai viré 1 ligne de code sur ma 1e form (elle était censé close le folder où ya les logs + mots de passe a la 1e saisie de ces derniers), c'est ça qui devait tout faire foirer :s

Encore merci :]]

PS :: merci illight avec ta commande

[teaRz]

Jme suis enflammé
now ca marche plus :'(

[teaRz]

Quelqu'un aurait quelques minutes de son temps à m'accorder ?
Je lui envoie mon folder avec tout (càd la partie interface VBA et la partie log_pw).
Je désespère

Edit: on laisse tomber l'envoie de fichier. J'ai trouvé mon erreur !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Else
        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
                    Workbooks("log_pw.xls").Close savechanges:=True
                    Form_choice.Show    ' show the choice form
                    Form_new_pw.Hide    ' hide the "new password" form
                    
            End If
       Next i      ' next cell
    End If

Ma ligne de sauvegarde/fermeture était mal placée :/ (à comparer avec le code plus haut)

Allez j'y retourne !