Supprimer messages erreur (on error ne va pas)

herve80 · 31 Décembre 2009

Bonjour,

Pour gagner du temps, j'ai fais une macro qui, avec F12, permet d'ouvrir la clé USB. Mais selon l'ordinateur, la clé est au chemin E, ou F, ou H, ...
Ce qui ouvre bien la clé USB, mais met une série de messages "Le chemin d'accès J (H,I, etc) n'existe pas ou n'est pas un répertoire."
Donc, ça fonctionne mais je perds du temps à effacer ces messages.
Comment ne plus les avoir ?

Ma macro :
Sub ouvrirclé()
On Error Resume Next
Shell "C:\WINNT\explorer.exe E:\", 1 ' adapter le chemin
Shell "c:\windows\explorer.exe F:", 1
Shell "c:\windows\explorer.exe H:", 1
Shell "c:\windows\explorer.exe I:", 1
Shell "c:\windows\explorer.exe J:", 1
End Sub

Merci de votre aide, bonne fin d'année à tous. 😉

MJ13 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

Bonjour

Ah mais tu n'as pas répondu la:

https://www.excel-downloads.com/threads/pourquoi-plusieurs-modules-et-pas-un-seul.133513/

herve80 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

MJ13 à dit:
Bonjour

Ah mais tu n'as pas répondu la:

https://www.excel-downloads.com/threads/pourquoi-plusieurs-modules-et-pas-un-seul.133513/

Bonjour,
Mais j'ai déjà remercié. Stp, pourrais-tu m'aider ?

Le temps passe tellement vite, même gagner une micro-seconde chez moi, ça compte. Alors, comment empêcher ces messages d'erreurs ???

MJ13 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

Re

Mais j'ai déjà remercié. Stp, pourrais-tu m'aider ?

Excuse moi, mais j'avais point vu.

Le temps passe tellement vite, même gagner une micro-seconde chez moi, ça compte. Alors, comment empêcher ces messages d'erreurs ???

La, je ne sais pas, mais attendons quelques secondes 🙂.

Ce sujet m'intéresse en plus.

Bonnes fêtes.

herve80 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

MJ13 à dit:
Re

Excuse moi, mais j'avais point vu.

La, je ne sais pas, mais attendons quelques secondes 🙂.

Ce sujet m'intéresse en plus.

Bonnes fêtes.

J'attends. 😛

MJ13 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

RE

Bonjour Pierrot et merci 🙂.

Sinon, je savais que je l'avais fait dans une appli pour connaître les lecteurs dispos (cela doit venir d'un code de MichelXLD je pense, ah et bien apparemment cela provient de 'Chip Pearson')

Voici le code

Code:

Sub recherche_lecteurs_SurFeuille()
'code adapté par MJ issu de [URL]https://www.excel-downloads.com/threads/trouver-un-fichier-sur-le-pc.14470/[/URL]
Dim FSO As Object
Dim Drv As Object
Dim Msg$
Range("G2").Select
Set FSO = CreateObject("Scripting.FileSystemObject")
Msg = "Votre système a " & FSO.Drives.Count & " lecteurs :" & vbLf & vbLf
For Each Drv In FSO.Drives
With Drv
'Stop
Select Case .DriveType
Case 0 ' unknown
Msg = Msg & "Lecteur: " & .DriveLetter & " est de type inconnu." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "type inconnu"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 1 ' removable, e.g., zip
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque amovible." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque amovible"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 2 ' fixed, hard drive
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque dur." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque dur"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 3 ' remote
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque réseau." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque réseau"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 4 ' CDROM
Msg = Msg & "Lecteur: " & .DriveLetter & " est un CDROM." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "CDROM"
 ActiveCell.Offset(1, -1).Range("A1").Select
Case 5 ' ram disk
Msg = Msg & "Lecteur: " & .DriveLetter & " est un disque virtuel." & vbLf
ActiveCell.Value = .DriveLetter & ":\"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "disque virtuel"
 ActiveCell.Offset(1, -1).Range("A1").Select
End Select
End With
Next Drv
MsgBox Msg, , "Lecteurs du système"
End Sub

Pierrot93 · 31 Décembre 2009

Re : Supprimer messages erreur (on error ne va pas)

Bonjour Hervé, Michel🙂

Regarde le code ci-dessous si il peut t'aider, te renverras la lettre des disques amovibles sauf A et B :

Code:

Sub test()
Dim fs As Object, d As Object, i As Byte
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.drives
    If d.DriveLetter <> "A" And d.DriveLetter <> "B" And d.DriveType = 1 Then _
        MsgBox "un disque amovible dans le lecteur : " & d.DriveLetter
Next d
End Sub

bonne journée
@+

herve80 · 7 Janvier 2010

Re : Supprimer messages erreur (on error ne va pas)

Pierrot93 à dit:
Bonjour Hervé, Michel🙂

Regarde le code ci-dessous si il peut t'aider, te renverras la lettre des disques amovibles sauf A et B :

Code:

Sub test() Dim fs As Object, d As Object, i As Byte Set fs = CreateObject("Scripting.FileSystemObject") For Each d In fs.drives If d.DriveLetter <> "A" And d.DriveLetter <> "B" And d.DriveType = 1 Then _ MsgBox "un disque amovible dans le lecteur : " & d.DriveLetter Next d End Sub

bonne journée
@+

Bonne année et merci. Ce n'est pas vraiment ce que j'avais demandé mais on s'en contentera.
Yesssssssssssssssssssssssss
😱

Pierrot93 · 7 Janvier 2010

Re : Supprimer messages erreur (on error ne va pas)

Bonjour,

alors pour répondre précisément à ta question : Perso, pas de solution...

sinon en modifiant le code donné ainsi :

Code:

Option Explicit
Sub test()
Dim fs As Object, d As Object, l As String
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.drives
    If d.DriveLetter <> "A" And d.DriveLetter <> "B" And d.DriveType = 1 Then
        l = d.DriveLetter
        Exit For
    End If
Next d
If l <> "" Then Shell "c:\windows\explorer.exe " & l & ":", 1
End Sub

tu évites de tester toutes les lettres et donc les messages intempestifs...

bonne journée
@+

herve80 · 7 Janvier 2010

Re : Supprimer messages erreur (on error ne va pas)

Pierrot93 à dit:
Bonjour,

alors pour répondre précisément à ta question : Perso, pas de solution...

sinon en modifiant le code donné ainsi :

Code:

Option Explicit Sub test() Dim fs As Object, d As Object, l As String Set fs = CreateObject("Scripting.FileSystemObject") For Each d In fs.drives If d.DriveLetter <> "A" And d.DriveLetter <> "B" And d.DriveType = 1 Then l = d.DriveLetter Exit For End If Next d If l <> "" Then Shell "c:\windows\explorer.exe " & l & ":", 1 End Sub

tu évites de tester toutes les lettres et donc les messages intempestifs...

bonne journée
@+

Bonjour,
Je vais encore t'embêter, mais et le code
Application.DisplayAlerts = False ?

Pierrot93 · 7 Janvier 2010

Re : Supprimer messages erreur (on error ne va pas)

Re,

essaye le, je pense que tu auras vite la réponse...

herve80 · 7 Janvier 2010

Re : Supprimer messages erreur (on error ne va pas)

Pierrot93 à dit:
Re,

essaye le, je pense que tu auras vite la réponse...

Qui est ... non, hélas.

Supprimer messages erreur (on error ne va pas)

herve80

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

herve80

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

herve80

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

herve80

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

herve80

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

herve80

XLDnaute Occasionnel

Discussions similaires

Supprimer messages erreur (on error ne va pas)

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency