Microsoft 365 effacer le contenu de plusieurs classeurs

Catsnroses

XLDnaute Nouveau
bonjour,

J'ai un dossier avec plusieurs classeurs en .xlsx
Je souhaiterais à partir de mon fichier .xlsm qui est dans le meme dossier pouvoir effacer le contenu de tous les classeurs en .xlsx ( Feuil1), des colonnes A jusque BP à partir de la ligne 6 jusque la dernière ligne dont le nombre peux varier.
Je bloque completement sur le code VBA qui pourrais me faire cela.

Je vous remercie d'avance pour votre aide.
 

job75

XLDnaute Barbatruc
Bonjour Catsnroses,

S'il y a beaucoup de fichiers on peut utiliser la méthode ADO, nombreux exemples sur XLD.

Autrement en ouvrant les fichiers un par un :
VB:
Sub RAZ()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "/*.xlsx") '1er fichier du dossier
Application.ScreenUpdating = False
While fichier <> ""
    With Workbooks.Open(chemin & fichier).Sheets(1) '1ère feuille
        .Range("A6:BP" & .Rows.Count).Delete xlUp
        .Parent.Close True 'enregistre et ferme le fichier
    End With
    fichier = Dir 'fichier suivant
Wend
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
312 891
Messages
2 093 353
Membres
105 697
dernier inscrit
arbane.abdelouahab