Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tester si le lecteur G existe

tester si le lecteur G existe

2 réponses
Avatar
modus57
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.
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
Daniel
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.




Avatar
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.