Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

fxbelot

XLDnaute Nouveau
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 :

Code:
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 :

Code:
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!!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…