Discussion :

[fazpedro]

Bonjour,

j'ai un problème dans une macro excel VBA
Je souhaite supprimer le contenu d'un répertoire mais j'obtiens le message d'erreur suivant :
Erreur d'accès au chemin / fichier (Erreur 75)
L'erreur survient à la ligne "Kill..."
Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Fichier_supp As String

Fichier_supp = Dir("C:\TEST_SUPP\TEST\*.pdf")

    Do While Fichier_supp <> ""
        MsgBox ("Fichier_supp : ") & Fichier_supp
        Kill "C:\TEST_SUPP\TEST\" & Fichier_supp
        Fichier_supp = Dir
    Loop

[EricDgn]

Bonjour,

Il me semble que j'ai déjà rencontré ce problème et qu'il était lié au fait que le nom du fichier pdf (sans doute créé avec un Mac) contenait des caractères non visibles non repris dans la variable de type string envoyée par l'instruction Dir(). Peut-être que passer par un FileSystemObject permettra de régler cela (non testé):

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
'--- cocher la référence: Microsoft Scripting Runtime
Sub GetFileNames()
    Dim MyFSO As FileSystemObject
    Dim MyFile As File
    Dim MyFolder As Folder
    Set MyFSO = New Scripting.FileSystemObject
    Set MyFolder = MyFSO.GetFolder("C:\TEST_SUPP\TEST")
    For Each MyFile In MyFolder.Files
        If Left(MyFile.Name, 4) = ".pdf" Then
            If MsgBox("Effacer " & MyFile.Name, vbYesNo, "Effacer?") = vbYes Then
                MyFile.Delete
            End If
        End If
    Next MyFile
End Sub

Cordialement.

[fazpedro]

EricDgn :

Hélas, cela n'a pas fonctionné :

Pas de message d'erreur mais le fichier et le dossier sont toujours là, il considère qu'il n'y a pas de fichier à la condition ci-dessous :

Code :

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

1
2
3
4
5
6
7
            
If Left(MyFile.Name, 4) = ".pdf" Then

If MsgBox("Effacer " & MyFile.Name, vbYesNo, "Effacer?") = vbYes Then
                MyFile.Delete
            End If

[fazpedro]

J'ai testé avec des fichiers Excel dans le dossier et cela fonctionne bien :

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
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:\TEST_SUPP\TEST")
 
' **************************************************************************
' ***** pour effacer les fichiers Excel de type XLSX ***********************
' **************************************************************************
For Each MyFile In MyFolder.Files
If Right(MyFile.Name, 4) = "xlsx" Then
MyFile.Delete
End If
Next MyFile
' **************************************************************************

mais pour les PDF : j'ai un message d'erreur : Autorisation refusée (Erreur 70)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
' **************************************************************************
' ***** pour effacer les fichiers PDF                ***********************
' **************************************************************************
' supprimer le pdf
For Each MyFile In MyFolder.Files
If Right(MyFile.Name, 3) = "pdf" Then
MyFile.Delete
End If
Next MyFile
' **************************************************************************

J'ai essayé de cocher les cases "Adobe" dans les compléments et chaque ligne de code ci-dessous mais rien n'y fait !
Merci de votre aide

Code :

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

1
2
3
4
5
' pour fermer PDF d'abord
Dim Tue_Acrobat As Long
Tue_Acrobat = Shell("Taskkill /im Acrobat.exe /f", 0)
Shell "taskkill /f /im PDFCreator.exe", vbHide
CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

[EricDgn]

Bonjour,

Oui, erreur d'inattention:

Code :

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

    If Right(MyFile.Name, 4) = ".pdf" Then

Cordialement.

[fazpedro]

Oui mais pour les PDF : j'ai toujours un message d'erreur : Autorisation refusée (Erreur 70)

[fazpedro]

Je viens de trouver : il fallait indiquer True pour que la suppression des fichiers en lecture seule soit autorisée :

Code :

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

MyFile.Delete True

Paramètres obligatoires :

Code :

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

1
2
3
4
5
6
 
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:\TEST_SUPP\TEST")

Exemples de suppression :

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
' **************************************************************************
' ***** pour effacer les fichiers Excel de type XLSX ***********************
' **************************************************************************
For Each MyFile In MyFolder.Files
If Right(MyFile.Name, 4) = "xlsx" Then
MyFile.Delete True
End If
Next MyFile
' **************************************************************************
 
' **************************************************************************
' ***** pour effacer les fichiers PDF                ***********************
' **************************************************************************
' supprimer le pdf
For Each MyFile In MyFolder.Files
If Right(MyFile.Name, 3) = "pdf" Then
MyFile.Delete True
End If
Next MyFile
' **************************************************************************
 
' **************************************************************************
' ***** pour effacer tous les fichiers présents      ***********************
' **************************************************************************
For Each MyFile In MyFolder.Files
MyFile.Delete True
Next MyFile
' **************************************************************************