Microsoft 365 effacer le contenu de plusieurs classeurs

[Catsnroses]

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]

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 :

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+

 

[Catsnroses]

bonjour Job75, merci beaucoup pour ton aide.