Bonjour,
J'ai actuellement une macro me permettant de récupérer des noms de fichier et de les retranscrire dans un tableau qui à la forme que je veux.
J'utilise un code qui supprimer les lignes dont je n'ai pas besoin :
Sub Supp_dossier_inutile()
Dim i As Integer
For i = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Find("msg") Is Nothing Then Rows(i).Delete
If Not Cells(i, 1).Find("EVO") Is Nothing Then Rows(i).Delete
If Not Cells(i, 1).Find("perimes") Is Nothing Then Rows(i).Delete
Seulement, je voudrais supprimer ces lignes en mettant " toutes les cellules ne contenant pas ".xlsm" et "ACT" et etc." seront supprimés.
J'espère être suffisamment clair.
Merci d'avance pour votre aide.