Discussion :

[greenfire15]

Bonjour,
Je m'explique ma macro copie chaque onglet dans un dossier en attente puis la deuxième macro qui s'appel "accepté" exporte vers un dossier "accepté". Mais je voudrais supprimer le fichier original( situé dans le dossier en attente), le hic c'est je ne veux pas suprrimer tous les fichiers du répertoire car ils sont pas tous encore acceptés. Et que tous ces fichiers on un nom différents.

Je sais pas si j'étais assez clair. Merci d'avance pour votre aide.

[silvere123]

Si tu disposes du chemin d'acces complet (ie. chemin d'acces au dossier + nom des fichiers) aux fichiers que tu veux supprimer, rien de tel que la procédure Kill :
Kill pathname As String

[kiki29]

Salut, moins radical qu'un Kill, envoie les fichiers dans la corbeille :

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
36
37
38
39
40
Option Explicit
 
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    sFrom As String
    sTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type
 
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
                                         (ByRef lpFileOp As SHFILEOPSTRUCT) As Long
 
Private Const FO_DELETE = &H3
Private Const FOF_SILENT = &H4
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_ALLOWUNDO = &H40
 
Private Sub DelFichier(sNomFichier As String)
Dim oFilAPI As SHFILEOPSTRUCT
Dim iRet As Long
 
    With oFilAPI
        .wFunc = FO_DELETE
        .sFrom = sNomFichier
        .sTo = vbNullChar
        .fFlags = FOF_SILENT + FOF_NOCONFIRMATION + FOF_ALLOWUNDO
    End With
 
    iRet = SHFileOperation(oFilAPI)
End Sub
 
Sub Tst()
Dim sFichier As String
    sFichier = ThisWorkbook.Path & "\" & "Test.xls"
    DelFichier sFichier
End Sub

[greenfire15]

Merci beaucoup de votre aide.

ps: désolé de répondre si tardivement.