après effacement comment arrêter une disquette

[andreaugusta]

Bonjour,

 

J'ai ci-dessous pour sauvegarder sur disquette une partie du programme.

Mon problème : lorsque j'ai le message "La disquette est effacée" la

disquette continue à tourner pendant un certain temps et je suis obligé

d'attendre la fin pour cliquer sur ok et avoir une sauvegarde exacte.

Si je clique sur ok avant la fin de l'arrêt de la disquette ma sauvegarde

n'est pas valable.

Quelle instruction mettre pour qu'après l'affichage du message la disquette

s'arrêtte.

Merci pour votre aide;

>

>

' sauvegarde sur la disquette

disk_ok = False

While (Not disk_ok)

Kill "a:\DépMimi.xls"

MsgBox "La disquette est effacée "

disk_ok = True

Wend

 

Application.StatusBar = Space(15) & "SAUVEGARDE DEPENSES EN COURS"

 

ActiveWorkbook.SaveCopyAs "e:\DépMimi.xls"

FileCopy "e:\DépMimi.xls", "a:\DépMimi.xls"

[douds]

En fait le message arrive trop tôt.

L'écriture sur disquette est longue, les données passent par la mémoire tampon, quand le programme a fini son transfert vers la mémoire tampon, il inscrit le message, mais toutes les données ne sont pas encore écrites sur la disquette (mémoire tampon -> disquette, tu dois attendre que la disquette s'arrête (que la mémoire tampon soit complétement vidée).

Je te conseille de passer à la clé USB si tu le peux. Les disquettes ne sont pas d'une fiabilité exeptionnelle, surtout si tes donnée sont importantes, tes comptes par exemple.

[p.legal]

Suis le conseil de Douds, passe à la clé usb

Si tu veux quand même continuer comme ça, tu dois mettre une tempo entre l'ordre d'ecriture et l'affichage pour retarder ce dernier.

 

@++

Modifié le 27 novembre 2005 par p.legal