Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1610 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Concatenation de 2 fichiers excel.

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Concatenation de 2 fichiers excel.

n°1844117
benji35
Posté le 28-01-2009 à 11:45:15  profilanswer
 

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

mood
Publicité
Posté le 28-01-2009 à 11:45:15  profilanswer
 

n°1844159
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 13:06:07  profilanswer
 

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

n°1844177
benji35
Posté le 28-01-2009 à 13:26:55  profilanswer
 

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.

n°1844184
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 13:41:47  profilanswer
 

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 ?

n°1844188
benji35
Posté le 28-01-2009 à 13:44:25  profilanswer
 

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.

n°1844196
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 13:50:20  profilanswer
 

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

n°1844198
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 13:52:55  profilanswer
 

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

n°1844224
benji35
Posté le 28-01-2009 à 14:16:32  profilanswer
 

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.

n°1844265
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 15:53:01  profilanswer
 

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.

n°1844272
benji35
Posté le 28-01-2009 à 16:12:19  profilanswer
 

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.

mood
Publicité
Posté le 28-01-2009 à 16:12:19  profilanswer
 

n°1844292
Ptit loup
Quand c'est flou, y'a un loup
Posté le 28-01-2009 à 16:31:25  profilanswer
 

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,...


Message édité par Ptit loup le 28-01-2009 à 16:31:45
n°1844296
benji35
Posté le 28-01-2009 à 16:37:48  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Concatenation de 2 fichiers excel.

 

Sujets relatifs
[VBA Excel] Procédure redondante dans UserformUne sorte de comparaison d'un fichier excel et une table access.
selection entre deux textes (dans word a partir d'excel)[JBoss]Stockage de fichiers ext à l'extérieur d'une application web
aide excel annuaireLister les différents champs d'un parametre d'une fonction. Possible ?
Importation des données depuis SQL vers EXCELlecture de contenu de plusieurs fichiers [résolu]
Arboresence fichiers html ,php et liensConcatenation de fichiers excel de même format dans une base access
Plus de sujets relatifs à : Concatenation de 2 fichiers excel.


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR