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.
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
Christian HUBERT-HUGOUD- Xtrem7
Essaie ceci...
On Error Resume Next Err.Clear ChDrive "a" Select Case Err.Number Case 0 Case Else Err.Clear MsgBox "Lecteur non prêt" End Select
Christian
"andrech" a écrit dans le message de news:clfdan$sdb$
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.
Essaie ceci...
On Error Resume Next
Err.Clear
ChDrive "a"
Select Case Err.Number
Case 0
Case Else
Err.Clear
MsgBox "Lecteur non prêt"
End Select
Christian
"andrech" <andre.charrier@tiscali.fr> a écrit dans le message de
news:clfdan$sdb$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.
On Error Resume Next Err.Clear ChDrive "a" Select Case Err.Number Case 0 Case Else Err.Clear MsgBox "Lecteur non prêt" End Select
Christian
"andrech" a écrit dans le message de news:clfdan$sdb$
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.
Zoury
Salut Andre! :O)
Je ne trouve pas la procédure pour vérifier si le lecteur disquette
contient
une disquette.
tu peux utiliser la même méthode que pour testé l'existance d'un répertoire : '*** Private Function FolderExists(ByRef sFolder As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory) End Function '***
ex : '*** Debug.Print FolderExists("a:") '***
-- Cordialement Yanick Lefebvre MVP pour Visual Basic
Salut Andre! :O)
Je ne trouve pas la procédure pour vérifier si le lecteur disquette
contient
une disquette.
tu peux utiliser la même méthode que pour testé l'existance d'un répertoire
:
'***
Private Function FolderExists(ByRef sFolder As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory)
End Function
'***
ex :
'***
Debug.Print FolderExists("a:")
'***
--
Cordialement
Yanick Lefebvre
MVP pour Visual Basic
Je ne trouve pas la procédure pour vérifier si le lecteur disquette
contient
une disquette.
tu peux utiliser la même méthode que pour testé l'existance d'un répertoire : '*** Private Function FolderExists(ByRef sFolder As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory) End Function '***
ex : '*** Debug.Print FolderExists("a:") '***
-- Cordialement Yanick Lefebvre MVP pour Visual Basic
