Supprimer des fichiers grâce à une macro dans un dossier webdav

[fxbelot]

Bonjour Forum,

Nous avons dans notre entreprise un outil de partage de fichier. Chaque fichier a une adresse webdav. Dans un des dossiers webdav nous avons souvent des mises à jour à faire et j'ai donc créé une macro qui exporte les fichiers xml dans ce dossier depuis excel sans problème. La macro est ci-dessous :

Sub XML()
'
'
For i = 1 To 44
    Worksheets("XML Extract").Range("C1").Select
    ActiveCell.FormulaR1C1 = i
  
   
    ActiveWorkbook.XmlMaps("Dataroot_Map").Export URL:= _
        "http://xxxx/xxxx//XML%20Attachements\metric" & i & ".xml"
        

Next i
End Sub

Cette macro fonctionne très bien.

Le problème est que cette macro ne remplace pas les fichier déjà existant. Je dois donc coupler cette macro à une autre qui doit supprimer les fichier avant de les re-exporter. J'ai tout essayé et la fonction "kill" de la macro ne me permet pas de supprimer ces fichiers (je peux supprimer les fichier manuellement donc ce n'est pas un problème de droit d'accès.) Voici la macro qui me pose problème :

Sub Delete()

For i = 1 To 44

    On Error Resume Next
    Kill "http://xxxx/xxxx//XML%20Attachements\metric" & i & ".xml"
    On Error GoTo 0
    Next i

End Sub

J'ai essayé de mapper le lien pour avoir un lien local avec une lettre mais pas possible non plus.
Si quelqu'un a une idée de génie ce serait super cool de la partager!

Merci d'avance!!

 

[francedemo]

Re : Supprimer des fichiers grâce à une macro dans un dossier webdav

bonjour
as tu essayé d'utiliser l'enregistreur de macro ?
ça te donneras le chemin exact
à +