Copier des colonnes d'un fichier excel à l autreRésolu

Question

Salut !

je suis sous excel

J'aimerai en fait copier coller des colonnes d un fichier excel vers un autre
En fait dans le fichier excel de départ, il y a des colonnes qui ne sont aps interessantes et il faudrait changer des titres etc ... enfin bref voila une partie de mon code:

 nbLignes = Range("A1").End(xlDown).Row
    nbColonnes = Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column

    ReDim SaveColonnes(nbLignes, nbColonnes)
    
    For i = 1 To nbColonnes
        If Cells(1, i) "Learner Area" Or Cells(1, i) "Learner Country" Then
            nbColonnesAfter = nbColonnesAfter + 1
            For j = 1 To nbLignes
                SaveColonnes(j, nbColonnesAfter) = Cells(j, i)
                Print #2, SaveColonnes(j, nbColonnesAfter)
            Next j
        End If
    Next i
    
      
    
    'Ferme le fichier où sont maintenant enregistrés les champs
    Close #2

Donc ca marche mais pas vraiment ^^

parce que normaelemnt la j ai donc deux colonne, mais quand je fais le print il met tous l'un en dessous de l autre donc il y a deux colonnes dans une .....

Donc j'aimerai savoir si on peut régler le print ou utiliser autre chose qui permet de sélectionner la lettre de la colonne afin que je puisse dire que je veux la premeire colonne dans la colonne A, la deuxieme dans la colonne B ......

J'ai pas trouvé sur google, a chaque fois c'est des fonction pour imprimer .... ^^

Donc svp aidez moi =)

ucfoutu · Accepted Answer

Bonjour,
Lis donc ton aide VBA au lieu de te précipiter pour faire des suppositions qui n'ont aucune raison d'être faites !
Tant l'origine des données que leur destination peuvent, sous VBA, être déterminées avec précision en utilisant les objets VBA/Excel
WorkBooks("toto").Sheets("titi").Range("B3:D5")
définit par exemple sans aucune ambiguïté la plage B3:D5 de la feuille "titi" du classeur "toto"
A bûcher sans attendre : la collection WorBooks et la collection Sheets (dans ton aide VBA). C'est un minimum à connaître.
Intéresse-toi vite, dans la foulée, à leurs méthodes, dont Add
Il est absolument indispensable de commencer par apprendre ces rudiments. C'est sur leurs bases, que l'on développe !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

MarcPL · Answer

Pour copier des cellules d'une feuille Excel vers une autre, il ne faut pas utiliser de Print ni Google du reste,
voir simplement l'aide en ligne de Copy !!

En gros Worksheets("x1").Range("x:x").Copy Destination:=Worksheets("x2").Range("x") ...

___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !

InfoGeo · Answer

Hummmm mais la le soucis c'est qu'il faudrait que les deux feuilles soit dans le meme fichier quoi, non ?

Moi je veux créé un nouveau fichier et mettre ensuite les colonnes dedans


merci d avoir répondu

InfoGeo · Answer

donc c bien ce que je pensais dans ton exemple ca marchait pas il faut bien le workbook

Et pis ca sert a rien d agresser les gens, désolé d etre pas un dieu comme toi

ucfoutu · Answer

Désolé, mais tu confonds "être un dieu" et "connaître les rudiments".
Je vais donc te laisser dorénavant seul et à tes états d'âme, personnellement. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

donc c bien ce que je pensais dans ton exemple ca marchait pas il faut bien le workbook 

Et quel exemple ? Je ne t'en ai donné aucun ! Uniquement des indications !
Bref ...
Bonne chance dans tes approches du développement.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

merci.

pour ceux qui sont interéssés:


For i = 1 To nbColonnes
If Cells(1, i) "Learner Area" Or Cells(1, i) "Learner Sub-Area" Or Cells(1, i) = "Learner Country" Or Cells(1, i) = "Learner Country" Or Cells(1, i) = "Learner Company" Or Cells(1, i) = "Type" Or Cells(1, i) = "Job" Or Cells(1, i) = "Certification Level" Or Cells(1, i) = "Release" Or Cells(1, i) = "Reference" Or Cells(1, i) = "Title" Or Cells(1, i) = "Start Date" Or Cells(1, i) = "Classroom Duration (Trainee Days)" Or Cells(1, i) = "E-learning Duration (Hours)"      Or Cells(1, i) = "Internal/External" Then

                nbColonnesAfter = nbColonnesAfter + 1
                If Cells(1, i) = "Classroom Duration (Trainee Days)" Then
                    SaveColonnes(1, nbColonnesAfter) = "Classroom_Duration_Days"
                    changement = True
                End If
                If Cells(1, i) = "E-learning Duration (Hours)" Then
                    SaveColonnes(1, nbColonnesAfter) = "Elearning_Duration_Hours"
                    changement = True
                End If
                If Cells(1, i) = "Internal/External" Then
                    SaveColonnes(1, nbColonnesAfter) = "Int_Ext"
                    changement = True
                End If

                If changement = False Then                    
                    Champs = Cells(1, i).Text
                    Champs = Replace(Champs, " ", "_")
                    Champs = Replace(Champs, ":", "")
                    Champs = Replace(Champs, "/", "_")
                    SaveColonnes(1, nbColonnesAfter) = Champs
                End If
                changement = False
               
                For j = 2 To nbLignes
                    SaveColonnes(j, nbColonnesAfter) = Cells(j, i)
                Next j
        End If
    Next i
   
    For i = 1 To nbLignes
       
    Next i
   
    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = Workbooks.Open(file)
    Set ws = wb.Worksheets(1)
   

    For i = 1 To nbColonnesAfter
        For j = 1 To nbLignes
         Workbooks(Parametres.FileName.Text & extension).Sheets(Parametres.FileName.Text).Range(AlphabetColonne(i) & j).Value = SaveColonnes(j, i)
        Next j
    Next i

InfoGeo · Answer

ucfoutu · Answer

Tu vois ? Quand je te parlais de rudiments ?
Tes 3 premières expressions conditionnelles vont toutes trois être systématiquement vérifiées (lourd)
Tu devrais vite voir ce qu'est SelectCase (même Else If)
Entre autres ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Houla !
Et que dire de ta "logique", :
If Cells(1, i) = "Learner Area" ... then
  If Cells(1, i) = "Classroom Duration (Trainee Days)" Then
    '...etc...

Si une seule des conditions exprimées en 1ère ligne est vraie, je vois mal comment pourraient être vraies les autres conditions !
Tu te rends compte, oui ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bon.
Si tu le souhaites, je te proposerai du plus rapide et moins redondant !
Si j'ai bien deviné, tu voudrais copier vers un autre classeur ou une autre feuille uniquement certaines colonnes de ton premier classeur, tout en modifiant l'intitulé de la 1ère ligne en destination. C'est cela ?
Si oui (et uniquement pour choisir en connaissance de cause la méthode la plus appropriée et la plus rapide en exécution) :
- combien de colonnes (au total) sur ta feuille source ?
- combien de colonnes d'entre elles sont à copier ?
- ces colonnes à copier sont-elles juxtaposées ou discontinues ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

ma feuille source est variable donc le nombre de colonens et de lignes aussi

Il y a 14 colonnes a récupérer

Juxtaposées ou discontinues ... heu .... bah.... heu ....

ucfoutu · Answer

ma feuille source est variable donc le nombre de colonens et de lignes aussi 
je ne parle que du nombre de colonnes ! Combien environ, au maximum ?
Juxtaposées ou discontinues ... heu .... bah.... heu ....

Cela peut avoir une importance très grande, car si juxtaposées ===>> dix fois plus rapide que si discontinues.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

bah je comprend pas la différence désolé ....

Et le nombre de colonnes est variable oui, l a y en a 27 mais il pourrait y en avoir plus ou moins, c pas moi qui choisit le fichier de départ, c envoyé par un autre département

ucfoutu · Answer

bah je comprend pas la différence désolé .... 
C'est pourtant clair ! Par exemple : les colonnes D,E et F sont juxtaposées.
Les colonnes D,K et L sont discontinues.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

ha oui bien sur elles suivent toutes de A jusqu à AA ici mais encore une fois la prochaine fois ca sera peut etre de A jusqu a V ou de A jusqu a AE ou .....

ucfoutu · Answer

Question :
ces colonnes à copier sont-elles juxtaposées ou discontinues ? 

réponse 1 donnée :
Il y a 14 colonnes a récupérer 
réponse 2 donnée :
elles suivent toutes de A jusqu à AA
qui ferait 26
déjà et tu dis que plus peut-être plus tard.
Ce n'est plus un problème de niveau informatique, mais maintenant : un problème de langue française. 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bon.
Dommage (pour toi) que je n'aie toujours pas cette précision, car je t'aurais proposé du bien mieux.
Je vais donc me contenter de mettre un ^peu plus de cohérence dans ta première boucle ===>>
For i = 1 To nbColonnes
  Select Case Cells(1, i)
    champs = ""
    Case "Learner Area", "Learner Sub-Area", "Learner Country", "Learner Company", _
         "Type", "Job", "Certification Level", "Release", "Reference", "Title", "Start Date"
        champs = Cells(1, i).Text
        champs = Replace(champs, " ", "_")
        champs = Replace(champs, ":", "")
        champs = Replace(champs, "/", "_")
    Case "Classroom Duration (Trainee Days)"
        champs = "Classroom_Duration_Days"
    Case "E-learning Duration (Hours)"
        champs = "Elearning_Duration_Hours"
    Case "Internal/External"
       champs = "Int_Ext"
  End Select
  nbColonnesAfter = nbColonnesAfter + 1
  If champs <> "" Then SaveColonnes(1, nbColonnesAfter) = champs
End If
Voilà pour un point.
Pour l'autre, maintenant (à savoir ta boucle j puis ta deuxième boucle i) : tu as choisi le chemin le plus lent. Et bien inutilement ! Mais je ne vais tout de même pas tout écrire à ta place, hein.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Reviens quand même, si (et uniquement si) tu souhaites voir ce que j'aurais fait de bien plus rapide.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Allez va (c'est un vendredi soir) !
Regarde ce que ferait ceci :
Dim tablo
    tablo = Workbooks("toto").Sheets("Feuil1").Range("A1:" & Workbooks("toto").Sheets("feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address)
    For i = 1 To UBound(tablo, 2)
      Select Case Trim(tablo(1, i))
        Case "Learner Area", "Learner Sub-Area", "Learner Country", "Learner Company", _
           "Type", "Job", "Certification Level", "Release", "Reference", "Title", "Start Date"
          tablo(1, i) = Replace(tablo(1, i), " ", "_")
          tablo(1, i) = Replace(tablo(1, i), ":", "")
          tablo(1, i) = Replace(tablo(1, i), "/", "_")
      Case "Classroom Duration (Trainee Days)"
         tablo(1, i) = "Classroom_Duration_Days"
      Case "E-learning Duration (Hours)"
         tablo(1, i) = "Elearning_Duration_Hours"
      Case "Internal/External"
         tablo(1, i) = "Int_Ext"
      Case Else
        tablo(1, i) = ""
    End Select
  Next
  Workbooks("titi").Sheets("Feuil2").Range("A1:" & Workbooks("toto").Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo
  Workbooks("titi").Sheets("Feuil2").Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
Avec une seule boucle, d'un seul coup, et sans autre procédure du tout (tout est( là).
Les données à copier sont, dans cet exemple, sur la Feuil1 du classeur toto et sont copiées/transformées sur la feuil2 du classeur titi

Je te prie de bien vouloir analyser cela et te dire qu'il n'y a rien ni de "divin", ni de "sorcier". Juste l'application pure et simple de ce que l'on apprend en lisant l'aide VBA.
Le reste (la conception du mécanisme que j'ai mis en place) ne relève pas de connaissances informatiques mais d'une organisation de la pensée (rien d'autre)

A défaut d'une réponse claire à la question que je t'ai posée deux fois, j'ai traité en considérant des colonnes discontinues. Le traitement ainsi fait est (tu le constateras) très rapide. J'en aurais fait un autre encore plus rapide en cas de colonnes juxtaposées (raison pour laquelle je t'interrogeais sur ce point).
Mais bon ===>> tu as de toutes manières là du beaucoup plus rapide et concentré que ce qu_e tu avais fait.
Bon week-end.



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

DESOLE j etais plus en entreprise (alternance, donc j ai pas vu).

c'est vrai qu au niveau des boucles, c plus lisible ^^

Sinon pour ton premier message oui j avais pas fait attention au "à copier".
et donc je récupère par exemple la pour le moment les colonnes : A, B, D, F, K, L ...... que je met dans l'autre fichier excel et qui deviennent donc: A, B, C, D, E, F ....

Pour ton messaeg, je vais regarder la et essayer de comprendre

merci

ucfoutu · Answer

Oui : c'est cela : essaye de comprendre. Mais pas en "survol" et en "diagonale", hein ... ===>> avec concentration et application.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

Le premier morceau de code j ai compris c'est juste une amélioration visuelle du code, c vrai que c plus compréhensible comme ca, mais le deuxieme est plus compliqué ^^


tablo = Workbooks("toto").Sheets("Feuil1").Range("A1:" & Workbooks("toto").Sheets("feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address)

donc la tu mets toutes les données du fichier excel de départ dans la variable tablo, right ?

For i = 1 To UBound(tablo, 2)

ici tu fais un for de i = 1 jusqu a la valeur max de la deuxieme dimensions du teableau: tablo, c'est a dire le nombre de colonnes, right ?


Ensuite tu écrase les valeurs de tablo avec les nouvelles valeur, pour la premiere ligne (les titres des colonnes)


Workbooks("titi").Sheets("Feuil2").Range("A1:" & Workbooks("toto").Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo
Puis tu mets tablo dans le nouveau fichier

Donc ca veut dire que la variable tablo, a la premiere ligne avec les titres, et toutes les bonnes colonnes car on ne garde de la variable tablo que les colonnes qui correspondent aux case.

Ensuite tu delete toutes les colonnes qui ont pas de premiere lignes, enfin tout du moins ou leur premieres ligne est = à "" car avec le "case else", on a décidé de les vider
Workbooks("titi").Sheets("Feuil2").Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

Il ne reste donc que les colonnes qui sont recherchées.

Ai je raison ?

InfoGeo · Answer

je me suis relu et c pas toujours compréhensible j avoue, je mettais juste ce que je pensais avoir compris au fur et a mesure et vu que ce site ne permet pas de modifier un message déja envoyé ....





Donc ca veut dire que la variable tablo, a la premiere ligne avec les titres, et toutes les bonnes colonnes car on ne garde de la variable tablo que les colonnes qui correspondent aux case. 


a oublier, ca veut rien dire et c'est faux, au début j avais compris autre chose

InfoGeo · Answer

sinon a la palce de :

Workbooks("titi").Sheets("Feuil2").Range("A1:" & Workbooks("toto").Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo

faut pas mettre :

Workbooks("titi").Sheets("Feuil2").Range("A1:" & Workbooks("titi").Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo


?

ucfoutu · Answer

Désolé, mais ton dernier message est la preuve on ne peut plus criante de ce que tu n'as rien compris ! 
La réponse ? NON ! Ne pas toucher à cette ligne de code 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

j arrive pas a lui faire reconnaitre les lignes précédentes car je crois qu il faut que le nouveau fichier soit enregistré pour qu il le reconnaisse ?

Workbooks(file).Sheets(Parametres.FileName).Range("A1:" & Workbooks(file).Sheets(Parametres.FileName).Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo
Workbooks(file).Sheets(Parametres.FileName).Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete


file contient l adresse complete du fichier

InfoGeo · Answer

marche pas:

Workbooks(Parametres.FileName.Text & extension).Sheets(Parametres.FileName.Text).Range("A1:" & Workbooks("Trainingcheck_update2_macro.xlsm").Sheets("training").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo
Workbooks(Parametres.FileName.Text & extension).Sheets(Parametres.FileName.Text).Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

InfoGeo · Answer

ok j ai fait ca:

    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = Workbooks.Open(file)
    Set ws = wb.Worksheets(1)
  
  
Workbooks(Parametres.FileName.Text & extension).Sheets(Parametres.FileName.Text).Range("A1:" & Workbooks("Trainingcheck_update2_macro.xlsm").Sheets("training").Cells.SpecialCells(xlCellTypeLastCell).Address) = tablo
Workbooks(Parametres.FileName.Text & extension).Sheets(Parametres.FileName.Text).Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete


j ai un autre probleme maitnenant, enfin je l avais deja avant mais bon .... 

Le truc c que je voudrais permettre a l utilisateur, de voir le fichier créé ou non, et donc de pouvoir l enregistrer et fermer s il souhaite pas l afficher, le probleme est qu il l ouvre en lecture seule et ca casse tout ......

j ai essayé un truc du genre:

    If Parametres.AffTexte.Value = False Then
        ActiveWorkbook.SaveAs FileName:=file, FileFormat:=xlCSV
        ActiveWorkbook.Close
    End If

mais ca marche pas ... car il me parle de la lecture seule et tout ....

ucfoutu · Answer

C'est là un problème différent, n'ayant plus rien rien à voir avec la question traitée dans cette discussion .


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

InfoGeo · Answer

ok ok =) bah merci pour ton aide en tt cas, ca marche et c'est vrai que c'est plus rapide et "plus beau"

je vais donc créer un autre sujet pour mon autre question


a+

InfoGeo · Answer

ha .... y a un probleme ..... c'est vraiment ... bizarre ^^

Mais enfin voila au départ j ai des dates sous cette forme :
2010-11-18

et je fais donc les copier coller et tout comme tu m as montré et après ca devient:
11/18/2010

Donc les - deviennent des / .... donc deja ca, ca m embete ^^ et ensuite les année moi et jours s inversent ....

C'est une option auto pour passer les dates en francais ? comment régler ca en vba svp ?

Copier des colonnes d'un fichier excel à l autre

32 réponses

Votre réponse

Discussions similaires