Copie de colonnes non consécutives vers la première ligne vide d'un autre fichier

Bonjour,

Après plusieurs recherches sur le forum, j'ai fait cette macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub import() Dim classeurSource As Workbook, classeurDestination As Workbook Dim lignecible As Long Dim colsource     Set classeurSource = Application.Workbooks.Open("U:\Eléments linéaires de structure (poutres 15x15, longrines ...)\Classeur1.xlsx", , True) Set classeurDestination = ThisWorkbook Set colsource = classeurSource.Sheets("Feuille 1").Range(Columns(1), Columns(8), Columns(9), Columns(10))   lignecible = Range("A" & Rows.Count).End(xlUp).Row + 1 classeurDestination.Sheets("Feuil1").Range("A" & lignecible) = colsource.Value   classeurSource.Close False   End Sub

---

Mais elle ne fonctionne pas.

Ce que j'aimerais, c'est copier les colonnes A, H, I, J du classeur1, de la cellule 7 à la dernière non vide(j'ai pas encore fait des recherches pour ça) et sans la mise en forme, à la suite d'un autre classeur (première cellule vide de la colonne A).

Bonjour,

Tu ne peux pas copier une colonne complète et la coller ailleurs qu'en ligne 1.
Il te faudrait déterminer le nombre de lignes à copier et sélectionner les plages nécessaires.

ex:

Code:

---

1 2	Range("A1:A12,C1:C12,E1:E12").Copy Range("A13").PasteSpecial Paste:=xlPasteValues

---

Dans ce cas-ci, les plages non contigües (A, C et E) seront copiées, mais collées une à côté de l'autre (A à C).
Je ne sais pas si c'est ce que tu veux comme résultat, par contre

J'ai essayé mais je bloque toujours à la ligne des ranges:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub import() Dim classeurSource As Workbook, classeurDestination As Workbook Dim lignecible As Long Set classeurSource = Application.Workbooks.Open("U:\Eléments linéaires de structure (poutres 15x15, longrines ...)\Classeur1.xlsx", , True) classeurSource.Sheets("Feuille 1").Range("A7:A100,H7:H100,I7:I100,J7:J100").Copy Set classeurDestination = ThisWorkbook lignecible = Range("A" & Rows.Count).End(xlUp).Row + 1 classeurDestination.Sheets("Feuil1").Range("A" & lignecible).PasteSpecial Paste:=xlPasteValues classeurSource.Close False End Sub

---

Bonjour,

la règle de base est le respect de la hiérarchie objet d'Excel …

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Demo() Application.ScreenUpdating = False L& = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row + 1 Workbooks.Open "U:\Eléments linéaires de structure (poutres 15x15, longrines ...)\Classeur1.xlsx", , True   With ActiveWorkbook.Worksheets("Feuille 1") R& = .Cells(.Rows.Count, 1).End(xlUp).Row - 6 Feuil1.Cells(L, 1).Resize(R).Value = .[A7].Resize(R).Value Feuil1.Cells(L, 2).Resize(R, 3).Value = .[H7].Resize(R, 3).Value .Parent.Close False End With End Sub

---

_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

J'ai trouvé pourquoi la ligne copy bloquait.
A la fin du classeur1 (fichier exporté depuis un logiciel donc non modifiable), Il y a du texte
Pièce jointe 180608

Quand je supprime les lignes (que le texte ne suffit pas), je n'ai plus l'erreur.
Il y a-t-il un moyen de contourner ça alors qu'on ne peut pas modifier le classeur1?

Si tu copies seulement la partie du haut avec les données, est-ce que ça fonctionne ?
Si oui, tu pourrais juste changer la méthode pour trouver le nombre de lignes à copier.
Autrement, je ne vois pas pourquoi ces 2 lignes t'empêcheraient de copier les données..(?)

Oui ça fonctionne.

Sinon je peux aussi exporter depuis le logiciel en .csv. Quand j'ouvre le fichier csv, il y a bien les colonnes et il n'y a pas de texte à la fin.

Pièce jointe 180702

Mais lorsque je l'ouvre pour faire la copy (en lecture seule), il se remet en forme avec les virgules donc toute les information sont sur une colonne.

Pièce jointe 180703

En fait, de la façon dont tu procèdes, tu lis de la dernière ligne vers la première pour trouver le nombre de lignes.

Code:

---

nbLignes = Cells(Rows.Count, "A").End(xlUp).row

---

Comme il y a ce texte, ça s'arrête inévitablement à ces lignes. Soit tu décales de 2 lignes plus haut (Offset(-2,0)), soit tu fais l'inverse et tu pars d'en haut vers le bas ou encore utiliser

Code:

---

nbLignes = Range("A2").CurrentRegion.Rows.Count

---

Comme il y a des espaces avant les 2 lignes en question, celles-ci ne devraient pas être incluses

Franchement bizzzousnours si tu présentais clairement …

En reprenant mon code, le problème de lignes parasites, c'est dans quel classeur ?

Car si les données à copier sont contigües, utiliser soit la propriété CurrentRegion soit End(xlDown) …

Edit : parmi a été le plus rapide !

Marc, ça bloquait avec l'ancienne macro pas la tienne.
J'ai essayé la tienne et ça fonctionne parfaitement. J'ai juste rajouté

Code:

---

1 2 3

PremiereLigneVide = Range("C65535").End(xlUp).Row + 1 DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row Range("A" & PremiereLigneVide & ":" & "A" & DerniereLigne).EntireRow.Delete

---

Pour supprimer les lignes qui me génait.

Merci, c'est résolu.