[A-00] Suppression du message de confirmation de Windows

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.

Bonjour,

La :faq:, encore la :faq:, toujours la :faq:

Comment supprimer les messages d'alertes ?

A+ ;)

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:

---

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

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

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

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

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

Code:

---

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:

---

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 ...:aie:

Bonjour,

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

Code:

---

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

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:

---

SendKeys "+"

---

Après, il faudrait le laisser pressé :roll:

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

Code:

---

Private Const FOF_NOCONFIRMATION As Long = &H10&

---

Voici le code final qui fonctionne parfaitement :

1) A mettre dans un module standard :

Code:

---

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:

---

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

---