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:
Merci d'avance.
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
Partager