D'empécher à l'utilisateur de changer le nom de la sauvegarde [Résolu]

Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
bonsoir
voila j'ai se code pour sauvegarder ma base Access

Private Sub Command1_Click()
On Error GoTo erreur
Dim Nouvfich As String
com1.DialogTitle = "Sauvegarder la base de donnée"
com1.DefaultExt = ".MDB"
com1.FileName = "centre_aéré"
com1.flags = &H1004
com1.Filter = "Fichier ACCESS (*.mdb)|*.mdb"
com1.ShowSave
Nouvfich = com1.FileName
    If Len(com1.FileName) < 1 Then
        MsgBox "Vous n'avez pas choisi de fichier", vbInformation
        TxSauve = ""
        Exit Sub
    End If
CopyFile App.Path & "\BD\centre_aéré.mdb", Nouvfich, False
MsgBox "La base de donnée a été bien sauvegarder", vbInformation + vbOKOnly, "centre aéré"
erreur:
If Err = 32755 Then
    Exit Sub
End If
Unload Me
End Sub
est il possible d'empécher à l'utilisateur de changer le nom de la sauvegarde (com1.FileName )
merci
Petchy

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
fais le choisir en ce cas un dossier, et non un fichier

http://www.vbfrance.com/codes/SELECTION-DOSSIER-AVEC-BOUTON-NOUVEAU-DOSSIER_17270.aspx
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Salut
merci de ta réponse,c'est se que je vais faire.
petchy