Copier dans la première cellule vide d'une ligne

[David590]

Bonsoir à tous,

J'aurais besoin de copier les valeurs d'un groupe de cellules dans la premiere cellule vide de la ligne1 d'un autre classeur

Je pense à quelques chose de ce genre :

Workbooks("Classeur1").Sheets("feuil1").Range("D1:L100").Copy 
Workbooks("Classeur2").Sheets("feuil3").Range(" ......

 

[Lone-wolf]

Re : Copier dans la première cellule vide d'une ligne

Bonjour David,

un essai comme ceci:

Workbooks("Classeur1.xls").Sheets(1).Range("D1:L100").Copy Before:=Workbooks("Classeur2.xls").Sheets(1).Range("a1")

Bonne nuit 😎

 

[David590]

Re : Copier dans la première cellule vide d'une ligne

Bonjour lone-wolf,

J'obtient : Erreur d’exécution 9, l'indice n'appartient pas à la sélection..

 

[Lone-wolf]

Re : Copier dans la première cellule vide d'une ligne

Bonjour David,

Voici un code trouvé sur le forum, auteur MichelXld, que j'ai testé. A inserer dans le classeur2.

Sub extraire()
Dim Source As Object, Requete As Object
Dim Onglet As String, Plage As String, fichier As String
Dim Texte_SQL As String

'détermination de la plage à extraire
    fichier = "C:\Users\David\Classeur1.xls"   ' à modifier
    Onglet = "Feuil1" '
    Plage = "d1:l100"
 
'connexion ADO
Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "data source=" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
   
     'exerce la requete ADO sur les donnée à recopier
    Texte_SQL = "SELECT * FROM [" & Onglet & "$" & Plage & "]"
    Set Requete = CreateObject("ADODB.Recordset")
    Set Requete = Source.Execute(Texte_SQL)
     
 'restitue sur ton classeur
    Range("A1").CopyFromRecordset Requete
     
'libère les pointeurs
Set Requete = Nothing
Set Source = Nothing
   
End Sub

A+ 😎

 

[David590]

Re : Copier dans la première cellule vide d'une ligne

Super, merci à toi
je vais tester ça