On Error Resume Next ChDrive "G:" If Err.Number = 68 Then ChDrive "F:" ChDir "" Err.Clear
Cordialement. Daniel "modus57" a écrit dans le message de news:
Bonjour à tous,
Tester si le lecteur G existe : S' il existe ChDir "G:" S' il existe pas ChDir "F:"
Quelqu'un pourrait-il m'aider à écrire ce bout de code.
Merci d'avance.
modus57
Bonsoir Daniel,
Je te remercie sincèrement pour ta réponse.
Sub TestSiLecteurExiste() On Error Resume Next ChDrive "G:" If Err.Number = 68 Then ChDrive "F:" ChDir "" Err.Clear Application.GetOpenFilename() = "G:" End Sub
J'ai complétée la macro et elle fonctionne parfaitement bien.
Je te souhaite une excellente soirée.
Modus57 @ +
"Daniel" a écrit dans le message de news:
Bonjour.
On Error Resume Next ChDrive "G:" If Err.Number = 68 Then ChDrive "F:" ChDir "" Err.Clear
Cordialement. Daniel "modus57" a écrit dans le message de news:
Bonjour à tous,
Tester si le lecteur G existe : S' il existe ChDir "G:" S' il existe pas ChDir "F:"
Quelqu'un pourrait-il m'aider à écrire ce bout de code.
Merci d'avance.
Bonsoir Daniel,
Je te remercie sincèrement pour ta réponse.
Sub TestSiLecteurExiste()
On Error Resume Next
ChDrive "G:"
If Err.Number = 68 Then ChDrive "F:"
ChDir ""
Err.Clear
Application.GetOpenFilename() = "G:"
End Sub
J'ai complétée la macro et elle fonctionne parfaitement bien.
Je te souhaite une excellente soirée.
Modus57 @ +
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uCbrWSryGHA.476@TK2MSFTNGP06.phx.gbl...
Bonjour.
On Error Resume Next
ChDrive "G:"
If Err.Number = 68 Then ChDrive "F:"
ChDir ""
Err.Clear
Cordialement.
Daniel
"modus57" <modus57@wnadoo.fr> a écrit dans le message de news:
uiesHIryGHA.3464@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Tester si le lecteur G existe :
S' il existe ChDir "G:"
S' il existe pas ChDir "F:"
Quelqu'un pourrait-il m'aider à écrire ce bout de code.
Sub TestSiLecteurExiste() On Error Resume Next ChDrive "G:" If Err.Number = 68 Then ChDrive "F:" ChDir "" Err.Clear Application.GetOpenFilename() = "G:" End Sub
J'ai complétée la macro et elle fonctionne parfaitement bien.
Je te souhaite une excellente soirée.
Modus57 @ +
"Daniel" a écrit dans le message de news:
Bonjour.
On Error Resume Next ChDrive "G:" If Err.Number = 68 Then ChDrive "F:" ChDir "" Err.Clear
Cordialement. Daniel "modus57" a écrit dans le message de news:
Bonjour à tous,
Tester si le lecteur G existe : S' il existe ChDir "G:" S' il existe pas ChDir "F:"
Quelqu'un pourrait-il m'aider à écrire ce bout de code.