Bonjour le forum,

Je dois supprimer un fichier de ma Feuil "Archives" en le sélectionnant et cela ne me pose pas de pbs.

Mais en même temps, j'aimerais le supprimer aussi des 2 "chemins" qui ont été utilisés lors de leur enregistrement .

Sub EFFACER()
Dim DerCol As Range, Cel As Range

With Sheets("Archives")
Sheets("Archives").Unprotect
Set DerCol = Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft)
For Each Cel In .Range(.Cells(ActiveCell.Row, 1), DerCol)
If Cel.HasFormula = False Then
Cel.ClearContents
End If
Next
End With
Sheets("Archives").Protect
End Sub

Voici les 2 chemins utilisés pour Archiver :

Chemin = "C:\Users\MONCOEUR\Downloads\FACTURATION\FACTURATION FRANCO\ARCHIVAGE FACTURES\"

Chemin = "G:\FACTURATION FRANCO\ARCHIVAGE FACTURES\"

Cordialement

margar

Bonsoir,

Pour supprimer un fichier:

Kill chemin & nomfichier

Bonjour ferrand,

Kill "C:\Users\MONCOEUR\Downloads\FACTURATION\FACTURATION FRANCO\ARCHIVAGE FACTURES\"

Je l'ajoute à Sub Effacer() et j'ai une erreur de débogage avec cette ligne là !

bonjour MARGAR,

relis la réponse de ferrand.
tu as renseigné uniquement le chemin, il manque le nom du fichier.

Bonjour Boogie Palace,

OK, mais comment, alors, aller rechercher le dernier fichier qui a été enregistré, cad celui-ci à cet endroit-là?

Cordialement

margar

Tu n'es pas censé le connaître ! Qui donc l'a enregistré ?

C'est le même fichier que j'utilise qui est enregistré sur le c: et une clé usb .

C'est un fichier de factures. Après chaque encodage dans la feuil "Factures", il est archivé et récupéré dans une feuil "Archives" du même fichier et en même temps enregistré sur le disque dur et une clé usb.

Dans l'onglet "Archives", en le sélectionnant, je peux l'effacer si par ex. je m'était trompé lors de l'encodage.

Et je pensais qu'il était possible de pouvoir le supprimer en même temps sur le disque dur et la clé usb.

Il y a une confusion dont il faut sortir ! Le fichier, celui qui est enregistré, que ce soit sur le disque ou sur une clé, c'est un classeur Excel, dont la feuille dont tu parles fait sans doute partie mais ne saurait le constituer en son entier. Ce fichier a un nom, qui se termine par une extension qui sera .xls, .xlsx ou .xlsm selon le cas car il s'agit d'un fichier Excel.

Tu veux supprimer deux fichiers, enregistrés à des endroits différents, tu vas donc devoir les supprimer l'un après l'autre en indiquant le chemin pour l'atteindre. Et également le nom du fichier dans chaque cas, car comment veux-tu que le programme le trouve si tu ne lui indiques pas le nom !

Tout à fait d'accord avec toi. Le fichier qui a un nom fini bien par Fact 10723.xls.

Normalement, je pensais que comme il était enregistré en dernier qu'il y avait une solution via le vba d'aller le rechercher en tant que le dernier

fichier enregistré .xls sans connaître le nom du fichier !

je vois que ce n'est pas possible si logiquement on indique pas le nom...

Soit, tu indiques le nom, soit tu dis à VBA comment le retrouver.

Soit un critère quelconque le permet, soit tu l'as stocké dans une variable (si tout se passe au cours) d'une même session, soit il est stocké dans un emplacement déterminé...

Tant que tu ne donnes pas le détail de ta configuration de travail, la façon dont tes opérations s'enchaînent, il est difficile de te conseiller une solution. On ne sait même pas si le classeur qui contient la macro est le seul utilisé qui subit des enregistrements différents ou s'il y en a plusieurs.