Discussion :

[bizzzounours]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bizzzounours]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[bizzzounours]

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


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?

[parmi]

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..(?)

[bizzzounours]

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.



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.

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 !

[bizzzounours]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.