Proc pour vérifier que le lecteur a n'est pas vide

Je ne trouve pas la procédure pour vérifier si le lecteur disquette contient
une disquette.

On Error Resume Next
ChDir "A:"
If Err.Number <> 0 Then MsgBox "Pas de disquette dans A"

AV

Bonjour,
voici une macro qui pourrait convenir

Sub vérif_disquette()
On Error GoTo fin
ActiveWorkbook.SaveAs Filename:= _
"a:zaza.xls", FileFormat:=xlNormal
fin:
MsgBox "il semble qu'il y ait un problème ", _
vbInformation, "problème de disquette"
MsgBox "la solution pourrait être d'insérer " & _
"une disquette vierge ", vbInformation, "problème de disquette"
End Sub


Amicalement
Sitting Hoax

"andrech" <andre.charrier@tiscali.fr> a écrit dans le message de
news:clfd2b$s6u$1@news.tiscali.fr...

Bonjour,

J'utilise une procédure sauvegarde sur disquettes écrite en vba pour des
fichiers écrits en vba excel 2000.
Je ne trouve pas la procédure pour vérifier si le lecteur disquette
contient

une disquette.
Si vous pouvez m'aider, je vous en remercie.

Bonjour André,

Avec quelquechose comme ceci peut être :

Sub disquetoupas()
Dim ErR As Label
On Error GoTo ErR
ChDir "A:DocumentsChiffresEssais"
MsgBox "Le lecteur requis est prêt !" _
, vbInformation, "MPFE"
' ici la suite du code pour sauvegarde
Exit Sub
ErR:
MsgBox "Veuillez vérifier que le lecteur A" _
& vbNewLine & " contient la disquette prévue" _
, vbCritical, "MPFE"
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"andrech" <andre.charrier@tiscali.fr> a écrit dans le message de news: clfd2b$s6u$1@news.tiscali.fr...

Bonjour,

J'utilise une procédure sauvegarde sur disquettes écrite en vba pour des
fichiers écrits en vba excel 2000.
Je ne trouve pas la procédure pour vérifier si le lecteur disquette contient
une disquette.
Si vous pouvez m'aider, je vous en remercie.