ProgressBar

Question

Salut a tous

Comment inserer une progessbar dans mon code de sauvegarde ci dessous

'================================================
'Procedure pour sauvegarder la base de données
'================================================
Private Sub Sauve_Click()

Dim ref, ref1, SourceFile, DestinationFile

ref = MsgBox("Voulez vous sauvegarder maintenant ?", vbInformation + vbYesNo, "Sauvegarde")

If ref = vbYes Then
ref1 = MsgBox("Mettre votre disquette dans le lecteur A:", vbInformation + vbOKOnly, "Confirmation Lecteur")
cnxVehicule.Close
SourceFile = App.Path & "\Vehicule.mdb"
DestinationFile = "A:\Vehicule.mdb"
FileCopy SourceFile, DestinationFile
cnxVehicule.Open
End If
End Sub

Merci pour vos reponses et bonne prog

pcpunch · Answer

Regarde dans mes sources, il y a un exemple : copie de fichier avec progress bar et btn annuler.
Avec un filecopy , ca n'est pas possible il faut utiliser les api!!

Voila...

ProgressBar

1 réponse

Discussions similaires