Discussion :

[Ledaf]

Bonjour,

J'ai fait appel à vous hier pour le même sujet mais j'ai à nouveau un problème.

Code :

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

1
2
3
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Cells(1, 1).Value _
        , Destination:=Range("D22"))

En fait j'aimerai coller mes données sur une seule feuille excel. Or vu que j'ai plusieurs lien, j'ai donc plusieurs données à copier.
Je voudrai les copier à la suite, c'est à dire au niveau de la destination (en rouge), j'aimerai qu'il recherche dans la colonne A la 1ère cellule qui est vide.
Est ce possible?

En vous remerciant

[ouskel'n'or]

Le code suivant donne la dernière ligne renseignée de la colonne A de "feuil1"

Code :

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

DerLig = Worksheets("feuil1").Range("A" & Worksheets("feuil1").Columns(1).Rows.Count).End(xlUp).Row '+ 1 (*)

(*) Pour avoir le numéro de la première ligne vide de la feuille, tu valides + 1