Discussion :

[Domdrum]

Bonsoir,

J'exécute une commande par du code VBA permettant de mettre des fichiers à la corbeille.
J'aimerais que le message de confirmation de Windows de placement des fichiers à la corbeille n'apparaisse pas.
Je cherche une commande équivalente à "SetWarnings" donc ...

Merci de votre aide.

[Gabout]

Bonjour,

La , encore la , toujours la

Comment supprimer les messages d'alertes ?

A+

[Domdrum]

Merci Gabout,

J'ai consulté la FAQ de long en large ... mais la commande "SetWarnings" ne permet pas d'éviter l'affichage des messages provenant de Windows, d'après le test que j'ai effectué.

Le code suivant trouvé également sur la FAQ ne donne pas non plus de résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

Il s'agit bien ici d'un message généré par Windows qui demande confirmation de placement d'objets dans la corbeille.

As-tu une autre suggestion ? Merci à toi

[batou22003]

C'est quoi ta commande, dans quel contexte tu l'executes?

Tu as pas un moyen de forcer la suppression définitive?

[Domdrum]

Bonsoir,
La commande vient d'un code trouvé sur la FAQ

Comme spécifié, j'ai mis dans un module le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Compare Database
 
Private Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Long
   fAnyOperationsAborted As Long
   hNameMappings As Long
   lpszProgressTitle As String
End Type
 
Private Const FO_DELETE As Long = &H3
Private Const FOF_ALLOWUNDO As Long = &H40
 
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" _
                                         (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function DansCorbeille(fichier As String, handle As Long) As Boolean
 
    Dim DelFileOp As SHFILEOPSTRUCT
    Dim Result As Long
 
    With DelFileOp
       .hwnd = handle
       .wFunc = FO_DELETE
       .pFrom = fichier & vbNullChar & vbNullChar
       .fFlags = FOF_ALLOWUNDO
    End With
 
    Result = SHFileOperation(DelFileOp)
    DansCorbeille = (Result = 0) And (DelFileOp.fAnyOperationsAborted = 0)
 
End Function

Et ensuite dans mon formulaire le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DoCmd.SetWarnings False
'Vider le contenu du répertoire "Envoi" dans la corbeille
    Call DansCorbeille("c:\cmi\envoi\*.*", Me.hwnd)
DoCmd.SetWarnings True

"Nightfall" (l'auteur du code sur la FAQ) ajoutait :"La fonction DansCorbeille renvoie True si l'envoi du fichier dans la corbeille a été effectué. Ses paramètres sont le
chemin complet du fichier et le handle de la fenêtre utilisé pour afficher les éventuelles boîtes de dialogue d'avertissement ou
de demande de confirmation. Ce deuxième paramètre peut être une valeur nulle". Et j'imagine que c'est là qu'il y a une astuce pour éviter le message de confirmation d'envoi des données à la corbeille ...

[argyronet]

Bonjour,

Le SetWarning ne pourra rien pour toi, ce n'est pas le même processus.
Il te manque simplement une constante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub SendToRecycleBin(ByVal FileName As String, ByVal ShowMessage As Boolean)
    '---------------------------------------------------------------------------
    ' Procedure     : SendToRecycleBin
    ' DateTime      : 12/10/2002 11:16
    ' Author        : jp.ambrosino
    ' Purpose       : Supprime un fichier dans la corbeille avec ou sans confirmation
    '...........................................................................
    ' Parameters    : Filename = Nom du fichier à supprimer dans la corbeille
    '                 ShowMessage = True si le message de confirmation apparaît
    ' Return Codes  :
     '---------------------------------------------------------------------------
    Const FO_DELETE                                    As Long = &H3
    Const FOF_ALLOWUNDO                                As Long = &H40
    Const FOF_NOCONFIRMATION                           As Long = &H10&
    Dim tshFOP                                         As SHFILEOPTSTRUCT
 
    With tshFOP
        .wFunc = FO_DELETE
        .pFrom = FileName
        .fFlags = IIf(ShowMessage, FOF_ALLOWUNDO, FOF_ALLOWUNDO Or FOF_NOCONFIRMATION)
    End With
    SHFileOperation tshFOP
End Sub

Argy

[azertix]

C'est peut-être une remarque à la con, mais j'appuie presque systématiquement sur la touche shift quand je supprime un fichier sous windows, ce qui a pour effet de le supprimer directement sans passer par la corbeille.
Ne pourrait-on pas utiliser ce raccourci clavier pour ce cas ?
Idée à l'arrache :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "+"

Après, il faudrait le laisser pressé

[Domdrum]

Merci à tous pour votre collaboration et en particulier à Argyronet qui a vu juste !
Il manquait bien la constante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Const FOF_NOCONFIRMATION As Long = &H10&

Voici le code final qui fonctionne parfaitement :

1) A mettre dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Database
 
Private Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Long
   fAnyOperationsAborted As Long
   hNameMappings As Long
   lpszProgressTitle As String
End Type
 
Private Const FO_DELETE As Long = &H3
Private Const FOF_ALLOWUNDO As Long = &H40
Private Const FOF_NOCONFIRMATION As Long = &H10&
 
 
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" _
                                         (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Sub SendToRecycleBin(ByVal FileName As String, ByVal ShowMessage As Boolean)
 
'Si ShowMessage = false, le message de confirmation de suppression des données n'apparaît pas
 
    Dim tshFOP As SHFILEOPSTRUCT
 
    With tshFOP
        .wFunc = FO_DELETE
        .pFrom = FileName
        .fFlags = IIf(ShowMessage, FOF_ALLOWUNDO, FOF_ALLOWUNDO Or FOF_NOCONFIRMATION)
    End With
    SHFileOperation tshFOP
End Sub

2) Commande à appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Vider le contenu du répertoire "Envoi" dans la corbeille sans message de confirmation
    Call SendToRecycleBin("c:\cmi\envoi\*.*", False)