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