Discussion :

[Jeyjey1]

Bonjour,

J'ai un probleme avec le code en rouge, je n'arrive pas a copier mes colonnes vers un autre classeur, j'aimerai copier les colonnes D J et K d'un classeur vers les colonnes A B et C d'un autre classeur, mais rien ne se passe
Auriez vous l'oeil pour me ce qui ne va pas
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
'OUVRIR FICHIER NATIF .XLS
 Workbooks.Open Filename:="C:\GIMA\Issue_natif.xls"
  
 'COPIER COLONNE D, J ET K ET COLLER DANS IMPORT_GIMA COL A, B ET C
 Worksheets("Feuil1").Range("D2:D1000").Copy Workbooks("importgima").Range("A2")
 Worksheets("Feuil1").Range("J2:J1000").Copy Workbooks("importgima").Range("B2")
 Worksheets("Feuil1").Range("K2:K1000").Copy Workbooks("importgima").Range("C2")
 'FERMER FICHIER NATIF .XLS
 'Workbooks("Issue_natif.xls").Close False
 Workbooks("importgima.xls").Activate

[melouille56]

Salut

Dans ta déclaration des destinations, tu n'as pas indiqué la feuille. Tu as simplement indiqué le classeur de destination et la cellule. Ajoute entre les 2 le nom de la feuille et tout ira mieux.

[Jeyjey1]

Je l'ai indiqué comme ceci, mais ça ne fonctionne toujours pas
Merci

Code :

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

 Worksheets("Feuil1").Range("D2:D1000").Copy Workbooks("importgima").Worksheets("Gima").Range("A2")

[Jeyjey1]

Bonjour,
J'ai réussi pendant le week à trouver un code mais j'ai un soucis, j'ai bien indiqué le bon classeur, onglet etc...y-a rien a faire il ne veut pas coller les données dans le deuxième classeur
Quelqu'un peut me dire ou j' ai pu faire une erreur, merci

Code :

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

1
2
3
4
5
6
7
8
 
   Dim MaPlage As Range
    With Workbooks( "Issue_natif.xls").Worksheets("Feuil1")
        Set MaPlage = Application.Union(.Range("D2:D1000"), .Range("J2:K1000"))
    End With
    MaPlage.Copy
    Workbooks("importgima").Worksheets("Feuil1").Range("A2").Activate
    ActiveSheet.Paste

[ouskel'n'or]

Pour copier en sélectionnant l'emplacement du collage, tu dois séparer la sélection de la feuille de celle de la cellule.

Code :

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

1
2
3
Workbooks("importgima").Worksheets("Feuil1").Activate 'ou Select
Range("A2").Select
ActiveSheet.Paste

Par contre, je ne comprends pas pourquoi la syntaxe

Code :

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

1
2
 Worksheets("Feuil1").Range("D2:D1000").Copy _
 Workbooks("importgima").Worksheets("Gima").Range("A2")

ne fonctionne pas.
Donc, je déduis que tu as un autre problème (feuille protégée ? Espace dans le nom de la feuille ?)
Tu dis

[Jeyjey1]

Effectivement mon Range("A2").Select était mal placé
Merci