Bon je viens de me rendre compte qu'il ne faut poser qu'un probleme par post donc j'en ouvre un nouveau pour ce probleme de ligne vides.

Donc voila mon probleme. J'effectue une mise a jour de ma base de donnees par l'intermediaire d'un module VB qui me formate un tableau excel de facon a regrouper toutes les donnees du classeur sur la premiere feuille puis ensuite importe cette feuille sous excel.

Lors de cette importation, il reste des lignes blanches sur cette feuille qu'il faudrait que je supprime avant importation.

Donc voila ma requete: serait-il possible de coder la recherche de lignes vides ainsi que leur suppression?

Voila mon module de formatage du fichier excel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
' Entries : strBook <- Book path.
'          strSheet  <- Name of the sheet to delete.
 
Function UpdatePrepare( _
  ByVal strBook As String, _
  ByVal strSheet As String)
 
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim Feuille As Worksheet
Dim PlageSource As Range ' définit la plage source dans les feuilles qui seront transférées
Dim CelluleCible As Range ' définit la première cellule en A de la feuille 1 disponible
 
' Open the book
Set xlApp = CreateObject("Excel.Application")
Set wbk = xlApp.Workbooks.Open(strBook)
 
' Desactivate Excel messages
xlApp.DisplayAlerts = False
 
    For Each Feuille In Worksheets
        If Feuille.Name <> "A" Then
            Set CelluleCible = Worksheets("A").Cells(Rows.Count, 1).End(xlUp)(2)
            Feuille.Rows("1:3").Delete
            Set PlageSource = Feuille.Range("a1:ap" & Feuille.Cells(Rows.Count, 1).End(xlUp).Row)
            PlageSource.Copy Destination:=CelluleCible
        End If
    Next Feuille
 
Worksheets("A").Rows("1:2").Delete
Worksheets("A").Columns("g").Delete
wbk.Close True
 
' Close Excel
xlApp.Quit
Set xlApp = Nothing
End Function
Merci d'avance.