Bonjour, je cherche à concatener deux fichiers excel qui ont les mêmes colonnes, voila mon code et le problème se situe à la ligne que j'ai mi en gras, de l'aide svp.
 
 
Sub ajouterClasseur()
Application.DisplayAlerts = False
classeur = InputBox("Entrer le nom du classeur que vous voulez importer", "Saisie", ".xls" )
 
Workbooks(classeur).Worksheets("draji" ).Range("A1" ).CurrentRegion.Select
 
Selection.Copy
 
Dim PremLiVide As Long
 
PremLiVide = Columns(1).Find("", [A1], , , xlByRows, xlByNext).Row
 
Workbooks("Testa2.xls" ).Worksheets("Feuil1" ).Cells(PremLiVide, 1).Select
ActiveSheet.Paste
 
Application.DisplayAlerts = True
End Sub

Perso, je ne fais pas une recherche pour trouver la première ligne vide... mais j'utilise la fonction suivante :
 
    Dim MaxFileNbLines As Variant
 
    'Maximum number of lines in the file
    MaxFileNbLines = ActiveCell.SpecialCells(xlLastCell).Row

Oui je vois, mais y a toujours la même erreur : erreur d'execution '1004' erreur définie par l'application ou par l'objet.

Est-ce que tu as essayé de mettre la cellule en dur, voir si le souci ne vient pas plutôt du "select" ?
Tu peux aussi essayer avec un activate à la rigueur à la place du select... non ?

Au fait justement je pense aussi que ça vient du select, j'ai essayé avec activate mais ça marche pas non plus. Depuis hier malheureusement je suis en train de me prendre la tête avec ça.

Ton souci, à mon avis, il vient plutôt de là :
Workbooks(classeur).Worksheets("draji" ).Range("A1" ).CurrentRegion.Select

Si tu enregistre une macro, il te dit quoi exactement ?

Oui t'as raison car quand j'enlève cette ligne y'a marqué aucune erreur.
Sinon j'ai pas l'impression d'avoir compri ta dernière quastion, quand j'enregistre ma macro il me dit rien du tout.

En fait, via la ligne
Workbooks(classeur).Worksheets("draji" ).Range("A1" ).CurrentRegion.Select
je comprends pas bien ce que tu veux faire... Sélectionner toutes les données de la feuille "draji" ?...
 
Pour l'enregistrement de la macro, c'est juste histoire d'avoir une base de syntaxe pour ensuite construire ta macro finale.

Oui c'est pour sélectionner toutes les données de la feuille " draji" pour après les coller à partir de la première ligne vide de mon fichier Testa2.xls.

Il faudrait à mon avis que tu ouvres ton fichier pour pouvoir effectuer cette sélection surtout... le fichier fermé, je doute qu'il comprenne qq chose à tes "worksheets" et range,...

c'est bon Ptit loup j'ai résolu le problème, merci beaucoup de m'avoir consacré autant de temps, sympat de ta part.