Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic arrêt disquette

arrêt disquette

2 réponses
Avatar
André
Bonjour,

Dans un programme en VBA j'utilise une macro sauvegarde sur disquette.
Avant de faire la sauvegarde j'efface la disquette avec
LigneEfface:
ChDir "a:DépAnAct"
Kill "a:\DépAnAct"
Mataille = FileLen("a:\*.*")
If Mataille <> "" Then
GoTo LigneEfface
Else: MsgBox "Sauvegarde en attente "
End If
Mon problème: quand la disquette est effacée le lecteur a: continue à
tourner et ne va pas à Else.
L'un de vous a-t-il une solution?
Merci.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LE TROLL
Salut,

Dans ce cas, pourquoi tu ne fais pas:

doEvents
Kill "a:*.*"
msgbox " Sauvegarde en attente ", vbInformation

--------------------

"André" a écrit dans le message de news:
df1u51$4aj$
Bonjour,

Dans un programme en VBA j'utilise une macro sauvegarde sur disquette.
Avant de faire la sauvegarde j'efface la disquette avec
LigneEfface:
ChDir "a:DépAnAct"
Kill "a:DépAnAct"
Mataille = FileLen("a:*.*")
If Mataille <> "" Then
GoTo LigneEfface
Else: MsgBox "Sauvegarde en attente "
End If
Mon problème: quand la disquette est effacée le lecteur a: continue à tourner
et ne va pas à Else.
L'un de vous a-t-il une solution?
Merci.



Avatar
scraper
Bonjour André, dans le message
news:df1u51$4aj$
tu disais :


Bonjour,

Dans un programme en VBA j'utilise une macro sauvegarde sur disquette.
Avant de faire la sauvegarde j'efface la disquette avec
LigneEfface:
ChDir "a:DépAnAct"
Kill "a:DépAnAct"
Mataille = FileLen("a:*.*")
If Mataille <> "" Then
GoTo LigneEfface
Else: MsgBox "Sauvegarde en attente "
End If
Mon problème: quand la disquette est effacée le lecteur a: continue à
tourner et ne va pas à Else.
L'un de vous a-t-il une solution?
Merci.



sauf erreur, et sans me pencher sur ton code, FileLen retourne un Long, et
toi tu attends un String ...


--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper