Microsoft 365 effacer le contenu de plusieurs classeurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
834
Réponses
9
Affichages
376
Réponses
20
Affichages
872
Retour