Supprimer lignes dans plusieurs fichiers xls

Bonjour à tous,

Dans un même dossier j'ai plusieurs fichier xls qui ont la même présentation :

les 16 premières lignes sont inutiles puis j'ai les données qui m'intéresse. Je cherche donc une macro capable de supprimer les 16 premières lignes de tous les fichiers présents dans le dossier en une seul fois.

Pouvez vous m'aider, je suis novice

Merci

Bonjour jodo, le forum,

Une idée sur le fichier ci-joint, à tester avant de l’appliquer. Macro à améliorer.

Tu peux lancer la macro par Ctrl+b ou passer par les menus.

Cordialement,

Bernard

Bonjour à tous,

Bernard, je crois que notre ami parle de fichiers

Ce fichier doit être placé dans le même répertoire que les fichiers à modifier

1er bouton pour lister les fichiers du répertoire

2ème bouton pour supprimer les 16 premières lignes

Fais un essai comme çà, et ensuite remplace cette ligne

                Rows("1:16").EntireRow.Select 'Delete

par

                Rows("1:16").EntireRow.Delete

Sub SupprLignes() 'les 16 premières lignes
Dim i%, NbC%, Chemin$, NomFichier$

    Chemin = ActiveWorkbook.Path & "\"
    Application.ScreenUpdating = False
    NbC = Range("A65536").End(xlUp).Row

        For i = 5 To NbC
            NomFichier = Cells(i, 1)
            Workbooks.Open Filename:=Chemin & NomFichier
            Rows("1:16").EntireRow.Select 'Delete
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        Next i
End Sub

Sub ListeFichiers() 'liste les fichiers du répertoire
Dim Chemin$, FName$, Wbk$
    '-- Liste les fichiers du répertoire sauf celui-ci --
    Wbk = ActiveWorkbook.Name
    Range("a5:a1000").Clear
    Chemin = ActiveWorkbook.Path & "\"
        FName = Dir(Chemin & "*.xls")
    Do While FName <> ""
        If FName <> Wbk Then Range("a65536").End(xlUp)(2) = FName
        FName = Dir
    Loop
End Sub

Amicalement

Claude

Bonjour Claude,

Toujours aussi brillant dans tes réponses, sans vouloir offenser les autres maîtres de ce forum.

Bonnes fêtes à tous.

Amicalement,

Bernard

re,

à noter que dans mon code il faudrait ajouter un contrôle,

après suppression des lignes, mettre dans une cellule "Vu" par exemple

de manière à ne pas répéter la suppression de 16 lignes.

Il faudrait aussi savoir le nom de la feuille à modifier

le mieux serait de joindre un fichier.

Bonnes fêtes à tous

Claude