Discussion :

[zidane2]

Boujour,
Je viens de développer une petite application avec vb6 liée avec une base de données access.
Je cherche à savoir la procédure à suivre pour pouvoir sauvegarder une copie du fichier access (in runtime).
J'aimerais bien s'il est possible d'avoir un bouton sur la form et puis quand je clique dessus on me donne la possibilité de choisir le repertoir pour sauvegarder une copie du fichier mdb. mais une fois le repertoir est choisi , si je clique sur le bouton, le fichier va se sauvegarder automatiquement dans le repertoir sellectionné auparavant.
Merci

[l_autodidacte]

Tu peux utiliser Comdlg32.ocx, tu place une instance de "Commondialog" sur la feuille et tu appelles (après initialisation) ShowSave.

[guefrachi]

Tu peux utiliser Comdlg32.ocx, tu place une instance de "Commondialog" sur la feuille et tu appelles (après initialisation

pour le faire; Ctrl+t (ou project-->components(ang)/ projet--->comosants(fr))
tu auras ajouté l'objet "Commondialog", tu le place sur la feuille (je préfère le renommer par un nom plus court (cd par exemple).
Tu as surement l'adresse(chemin) de fichier à copier pour pouvoir l'ouvrir dès le début, je vais la nommer adrorig
(le code de copiage est d'après le FAQ )
déclarations (zone "general")

Code :

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

1
2
3
4
5
Dim adrdest As String, premier As Integer
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
'bFailIfExists doit etre à false pour permettre 'l'overwriting

code bouton clic

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
Private Sub Command15_Click()
If premier = 0 Then
cd.FileName = ""
cd.ShowSave
adrdest = cd.FileName
cd.FileName = ""
premier = 1
End If
On Error GoTo erreur
CopyFile adrorig, adrdest, False
erreur:
If Err = 32755 Then
    Exit Sub
End If
End Sub

démarche : lorsque tu clic sur bouton15 tu aura une boite de dialogue s'ouvre, tu clic une fois sur le fichier à copier et tu ne doit pas cliquer sur le bouton enregistrer. tu cherche le répertoire pour y sauvegarder le fichier, et là tu clic sur enregistrer.

[zidane2]

Merci mon frère!