macro

Bonsoir Jacques,
Il y a l'instruction kill, totalement irrémédiable et définitive :

kill"C:tsxtermCH.DDF"

Ou bien, de Denis Pasquier :
"================================================================="
Un peu moins radical que Kill...

'Envoyer un fichier dans la corbeille
'(affiche la boite de dialogue standard de confirmation)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Sub RecycleFile(sFile As String)
'Chip Pearson, mpep
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


Sub test()
Dim Fichier_à_ouvrir As Variant
Fichier_à_ouvrir = Application. _
GetOpenFilename("Fichiers pdf (*.*),*.*")
If Fichier_à_ouvrir <> False Then
RecycleFile (Fichier_à_ouvrir)
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''
"==================================================================="

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Jacques" <daniel.gingras@gingrasetfils.ca> a écrit dans le message de
news:081b01c35a9d$404d02e0$a501280a@phx.gbl...
À partir d'une macro dans excel, je voudrais supprimer un
fichier .ddf dans mon système. L'adresse du ficher est la
suivante: C:tsxtermCH.DDF

Merci.