Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Aquitement lors de la suppresion de fichier

Aquitement lors de la suppresion de fichier

1 réponse
Avatar
Sylvain
Bonjour

J'utilse cette sub pour supprimer un fichier.
Excel me pose la question "etes vous s=FBr de vouloir..."
Comment faire pour ne pas avoir ce message ?

sub erase_fic ()
Const FO_DELETE =3D &H3
Const FOF_ALLOWUNDO =3D &H40
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFileName As String

With FileOperation
.wFunc =3D FO_DELETE
.pFrom =3D sFile
.fFlags =3D FOF_ALLOWUNDO
End With
lReturn =3D SHFileOperation(FileOperation)
end sub

Merci
Sylvain
Signaler un problème avec ce contenu

1 réponse

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
Vincent.
Salut !
Avant de supprimer le fichier, ajoute la ligne :
application.displayalerts = false
que tu repasses à true la ligne d'après...
A+

V.

-----Message d'origine-----
Bonjour

J'utilse cette sub pour supprimer un fichier.
Excel me pose la question "etes vous sûr de vouloir..."
Comment faire pour ne pas avoir ce message ?

sub erase_fic ()
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFileName As String

With FileOperation
.wFunc = FO_DELETE
.pFrom = sFile
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(FileOperation)
end sub

Merci
Sylvain
.