CONSOLIDER DES FICHIERS SANS LES LIGNES VIDES

Question

Bonjour, 
 
 J'ai plusieurs fichiers "Rapport d'activités 1", "Rapport d'activités 2",... qui contiennent des lignes vides je souhaiterai les consolider mais sans prendre les lignes vides. voici ce que j'ai fait mais il prend beaucoup de temps

Sub copier()
    Dim  wbksource As Workbook, wbkcible As Workbook
    Dim Sources
    Dim Nom_Fichier As String
    Dim Nom_Repertoire As String
   
    fichier = ThisWorkbook.Path
    Set wbkcible = ThisWorkbook
    Application.ScreenUpdating = False
    Nom_Repertoire = ActiveWorkbook.Path
    Nom_Fichier = Dir("Rapport d'activités *.xls")
    'Nom_Fichier = Dir() ' suivant
    
    Do While Nom_Fichier <> ""
        Set wbksource = Workbooks.Open(Nom_Fichier)
        ActiveSheet.Range("A2:S" & ActiveSheet.Range("A65536").End(xlUp).Row).Copy wbkcible.Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)
        wbksource.Close savechanges:=False
        Nom_Fichier = Dir() ' suivant
    Loop

Application.ScreenUpdating = True

End Sub

Sub lignesvides()
 Dim derLi As Variant
    Dim r As Variant
    MsgBox Range("A1").CurrentRegion.Rows.Count
MsgBox ActiveSheet.UsedRange.Rows.Count
    derLi = ActiveSheet.UsedRange.Rows.Count
 Application.ScreenUpdating = False
 For r = derLi To 1 Step -1
  If Application.CountA(Rows(r)) = Empty Then Rows(r).Delete
 Next r

.

jordane45 · Answer

Bonjour,

voici ce que j'ai fait mais il prend beaucoup de temps

Si tu t'amuses à supprimer les lignes vides une par une... en  effet ça peut mettre un peu de temps...

Le plus simple serait de Filtrer les lignes (différentes de vide) à copier avant de les importer.
Tu trouveras ici quelques exemple d'utilisation des filtres :
http://jr.loucan.fr/e107_plugins/forum/forum_viewtopic.php?2

CONSOLIDER DES FICHIERS SANS LES LIGNES VIDES

1 réponse

Votre réponse

Discussions similaires