Discussion :

[PPLILH2008]

Bonjour à tous

Alors voila, j'aimerais copier les colonnes R et M de la feuille active du classeur "Fichier 1" et coller ces colonnes dans les colonnes respectives A et
D de la "Feuille 1" du classeur "test onglet"

J'ai déjà un petit bout de code pour la colonne R mais il ne fonctionne pas, peut-être à cause d'une mauvaise syntaxe mais les adresses sont

Code :

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

1
2
3
Worksheets("R:\Raphaël L\Stage CMA\test\Fichier 1").Range("R:R").Copy
Workbooks("R:\Raphaël L\Stage CMA\test\test onglet.xls").Worksheets("Feuil2").Active
ActiveSheet.Paste Destination:=Worksheets("Feuille 1").Range("A:A")

Pour l'instant il me met "L'indice n'appartient pas à la selection"

Merci d'avance

[fring]

Bonjour,

Essaye le code ci-dessous, code à insérer dans le classeur cible "test onglet.xls"

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
18
Sub test()
Dim ShSource As Worksheet, ShCible As Worksheet
 
Application.ScreenUpdating = False
 
Set ShCible = ThisWorkbook.Sheets("Feuil1")
 
Workbooks.Open Filename:="R:\Raphaël L\Stage CMA\test\Fichier 1.xls"
Set ShSource = ActiveWorkbook.ActiveSheet
 
ShSource.Range("M:M").Copy ShCible.Range("D1")
ShSource.Range("R:R").Copy ShCible.Range("A1")
 
Workbooks("Fichier 1.xls").Close False
 
Application.ScreenUpdating = True
 
End Sub

[PPLILH2008]

bonjours fring,

Impécable ça fonctionne encore mieux que je pouvais ne l'espèrer.

encore une fois un gros merci