Discussion :

[anisr]

Bonojur,

J'importe des données externes (HTML) et j'ai besoin d'un code vba qui permet d'orienter systemtiquement les nouvelles données vers la première ligne vide de la colonne A.
Exemple: le premier import porte sur 30 lignes, le second doit être orienté vers la cellule A31.

Merci de votre intervention.

[SilkyRoad]

bonjour

ce n'est pas évident de répondre sans voir ta procédure

voici un exemple qui permet de récupérer le numéro de la première ligne vide , dans la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim i As Long
 
i = Range("A65536").End(xlUp).Row + 1

michel

[dadavyvy]

Il y a plusieurs façon d'avoir la prochaine cellule vide de la colonne A :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("A1").End(xlDown).Offset(1,0)

Ou si tu veux vraiment la dernière ligne non utilisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.UsedRange.Columns(1).SpecialCells(xlCellTypeLastCell).Offset(1,0)

Ensuite tu l'utilises comme Destination quand tu insères ton QueryTable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.QueryTables.Add Destination:=Feuil1.Range("A1").End(xlDown).Offset(1,0), ...

Attention: après avoir importé ton texte, n'oublie pas de supprimer le QueryTable sauf si tu veux garder une liaison avec ton fichier.

[anisr]

En complement d'information voici le code
Sub Macro4()

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
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;file:///C:/Documents%20and%20Settings/Administrateur/Bureau/Budget%202007/sq/2/e/e.htm" _
        , Destination:=Range("A1"))
        .Name = "e"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "5"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

[dadavyvy]

Je répète :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destination:=Range("A1").End(xlDown).Offset(1,0)