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 !
Sub delete()
Dim Repertoire As String, Fichier As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
' ***********************************************************************************************************
'Définit le répertoire de recherche
Repertoire = "C:\Test rows delete 24\" ' Ici noté la racine de votre repertoire a adapter a votre ordi
' ***********************************************************************************************************
'Spécifie la recherche pour le fichiers .xls
Fichier = Dir(Repertoire & "*.csv")
'Boucle sur les fichiers du répertoire
Do While Fichier <> ""
'Vérifie que le nom du classeur est différent du classeur
'contenant cette macro (dans le cas ou il serait placé dans le même répertoire).
If ThisWorkbook.Name <> Fichier Then
'Ouvre chaque classeur
Set Wb = Workbooks.Open(Repertoire & Fichier)
'supprime les 24 premieres lignes de chaques classeur.
For i = 24 To 1 Step -1
Rows(i).delete
Next i
'Enregistrer le classeur modifier
Wb.Save
'Referme le classeur
Wb.Close False
End If
Fichier = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Terminé"
End Sub
VBA
'Public z As String
Sub Liste_Fichiers()
'http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/liste-fichiers-repertoire-sujet_57846_1.htm
'ChDir "C:\...Mon chemin....\Mes documents"
Range("2:1000").Clear
Range(Cells(2, 1), Cells(65536, 1)).Clear
'Dim i As Integer, z As String
ChDrive Left(Cells(1, 1), 1)
ChDir Cells(1, 1).Value
i = 1
z = Dir("*.dvf", 1) 'dvf
While z <> ""
ActiveSheet.Cells(i + 1, 1).Value = z: Lecture_Ecriture (z)
i = i + 1
z = Dir
Wend
'MEF
End Sub
Sub Lecture_Ecriture(z)
'MJ
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open Cells(1, 1) & "\" & z For Input As #1
Open Cells(1, 1) & "2\" & z For Output As #2
Print #2, "AAAAA"
While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Wend
Close
End Sub
'Code Indenté avec Smart Indent'Public z As String
Sub Liste_Fichiers()
'http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/liste-fichiers-repertoire-sujet_57846_1.htm
'ChDir "C:\...Mon chemin....\Mes documents"
Range("2:1000").Clear
Range(Cells(2, 1), Cells(65536, 1)).Clear
'Dim i As Integer, z As String
ChDrive Left(Cells(1, 1), 1)
ChDir Cells(1, 1).Value
i = 1
z = Dir("*.csv", 1) 'dvf
While z <> ""
ActiveSheet.Cells(i + 1, 1).Value = z: Lecture_Ecriture (z)
i = i + 1
z = Dir
Wend
'MEF
End Sub
Sub Lecture_Ecriture(z)
'MJ
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open Cells(1, 1) & "\" & z For Input As #1
Open Cells(1, 1) & "2\" & z For Output As #2
For i = 1 To 24
Line Input #1, ligne
Next
While Not EOF(1)
Line Input #1, ligne
Print #2, ligne
Wend
Close
End Sub
'Code Indenté avec Smart Indent
