macro suppression fichier

[al1000]

Bonjour,

dans le classeur 1 je voudrai creer une macro, qui me supprime un fichier excel qui se nomme " fichier x"

puis on revient sur le claseur 1


a+

 

[ledzepfred]

Re : macro suppression fichier

salut

essayes
Sub Macro1()
Kill "chemin du fichier\"nom du fichier.xls"
End Sub

a+

 

[al1000]

Re : macro suppression fichier

bonjour,


cela me donne une erreur en rouge?


a+

 

[ledzepfred]

Re : macro suppression fichier

RE

surement un problème de syntaxe dans le chemin ou le nom du fichier. Les guillemets sont bien présents?

c'est moi l'erreur j'ai mis un guillement en trop dans mon précédent message (oups)

je te donne un exemple
kill "C:\Documents and Settings\FR55340\Desktop\essai.xls"

a+

 

[Raja]

Re : macro suppression fichier

Bonjour,

Essaye une syntaxe comme ça :

If Dir("Répertoire:\sous_répertoire\sous_répertoire\Nom_du_fichier.xls") <> "" Then
      Kill "Répertoire:\sous_répertoire\sous_répertoire\Nom_du_fichier.xls"
End If

PS: Bien entendu, le fichier ne doit pas être déjà ouvert ou utilisé.

 

[ledzepfred]

Re : macro suppression fichier

Raja, Al1000,

effectivement mieux vaut vérifier l'existence de ce fichier avant de le supprimer sinon ç'est le bug
une variante

Sub Macro1()
On Error Resume Next
Kill "C:\Documents and Settings\FR55340\Desktop\Classeur1.xls"
End Sub


a+

 

[Escargot04]

Re : macro suppression fichier

Bonjour,

J'ai ce besoin mais pour une longue liste de fichiers à supprimer !

1er cas :
J'ai 3 répertoires avec des doublons
j'ai la liste et souhaite supprimer ces doublons

2ème cas :
J'ai ensuite une liste de fichiers à supprimer de ces répertoires

Comment procéder 😕

 

[MJ13]

Re : macro suppression fichier

Bonjour Escargot.

Le mieux dans ton cas est d'établir la liste des fichiers (avec le nom des dossiers) à supprimer puis filtrer la liste avec les fichiers que tu veux supprimer puis faire une petite macro avec kill.

ex:

Sub Kill_Fichiers
'nommer la zone contenant les nom de fichiers zone
for each cell in range ("zone)
kill cell
next
end sub

 

[Escargot04]

Re : macro suppression fichier

Merci pour cette réponse

J'ai mes listes de fichiers dans Excel avec les chemins complets et une autre colonne avec le nom des fichiers avec extention

Par contre, je n'y connais pas grand chose en macro

Du coup, je ne vois pas trop comment utiliser ce code 😱

Je dois faire un fichier

Désolé, et merci de m'expliquer en détail s'il est possible d'avoir quelques minutes à me consacrer 🙂

 

[MJ13]

Re : macro suppression fichier

Re

Fichiers a tester:

Mettre les 2 fichiers Fichier1.xls et Ficiher2.xls dans C:\Temp

 

[Escargot04]

Re : macro suppression fichier

Merci

Je remplie Fichier1.xls avec en A les liens complets chemin\fichier
Je laisse Fichier2.xls vide il ne fera rien

Je préfère le faire en deux fois dans Fichier1.xls quitte à le remplir à chaque fois

Je teste demain 😉

Bonne soirée

 

[MJ13]

Re : macro suppression fichier

Re

Euh! Je crois que tu n'as pas compris (bon c'est vrai que tu es un peu lent).

Tu as 3 fichiers.

Fichier1.xls et Fichier2.Xls sont à mettre dans un dossier nommé c:\Temp (c'est un exemple pour faire le test).

Puis en ouvrant le fichier Supprime Fichiers.xls, tu remarqueras que tu as un bouton pour supprimer les fichiers en Colonne A (où se trouve les noms de dossiers) et colonne B (où se trouve les noms des fichiers à supprimer, dans notre cas Fichiefr1.xls et Fichier2.xls).

En espérant que cela ne soit pas trop compliqué 🙂.

 

[Escargot04]

Re : macro suppression fichier

Lent, mais je comprend !

Tests effectués => GÉNIAL 😀

Merci

La même chose en "Déplacer vers", c'est possible ?
Je pose cette question parce que les fichiers ne passent pas par la corbeille, du coup pas de droit à l'erreur 🙄

 

[MJ13]

Re : macro suppression fichier

Re Escargot

Lent, mais je comprend !

Ouf, cela me rassure 🙂.

Bon, j'ai pas trouvé move dans l'aide mais FIleCopy.

Voici un exemple (n'oublie pas de créer le dossier C:\Test").

Donc tu copies, puis tu vérifies et enfin tu effaces les fichiers.

 

[Escargot04]

Re : macro suppression fichier

GENIAL x2 😀

Vraiment très pratique

Bon, j'ai pas trouvé move dans l'aide mais FIleCopy
Ou chercher ?