copie cellule Excel

[hakoko]

Bonjour,
j'ai ecrit un programme qui sert copier des cellule d'un classeur excel à un autre, ça bug et je ne voi pas keskil ya danormal. quelqu'un pourait maider svp,merci d'avance.

Sub extraction()
Dim SearchString As String
Dim SearchChar As String
Dim MyPos As Integer
i = 3
NomFichierOrigine = "kkk"
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Open(Filename:="C:\Users\Desktop\" & NomFichierOrigine & ".xlsx")

Windows(NomFichierOrigine & ".xlsx").Activate
Wbk2.Sheets(1).Select
Wbk2.Sheets(3).Select

With Selection



For j = 3 To 28




Wbk1.Worksheets(1).Cells(i, j).Value = Wbk2.Worksheets(l).Cells(i, j).Value
Wbk1.Worksheets(3).Cells(i, j).Value = Wbk2.Worksheets(3).Cells(i, j).Value

j = j + 1


Next j
End With
End Sub

 

[Pierrot93]

Re : copie cellule Excel

Bonjour,

quelle ligne en déogage ??? enlève peut être ceci :

j = j + 1

bon après midi
@+

 

[hakoko]

Re : copie cellule Excel

bonjour,

yavais un probleme sur cette ligne:
Wbk2.Worksheets(1). au lieu de Wbk2.Worksheets(l).

Wbk1.Worksheets(1).Cells(i, j).Value = Wbk2.Worksheets(1).Cells(i, j).Value

merci A+

 

[hakoko]

Re : copie cellule Excel

j'aimerai substitué une ligne par une autre.celle ci:
Set Wbk2 = Workbooks.Open(Filename:="C:\Users\Desktop\" & NomFichierOrigine & ".xlsx")

je veux tout simplement definir Wbk2 = NomFichierOrigine sans avoir besoin de l'ouvrir car il est deja ouvert, s'il vous plait quelle commande je metterai?
merci bien,

 

[Pierrot93]

Re : copie cellule Excel

Re,

peut être comme ceci :

Set Wbk2 = Workbooks( NomFichierOrigine & ".xlsx")

 

[hakoko]

Re : copie cellule Excel

merci, c'est bien ça.

je souhaiterai copier la ligne x de la feuil1 du classeur1 et la ligne x de la feuil 3 du meme classeur vers les lignes 2 et 4 de la feuil 1 d'un autre classeur.

j'ai essayé avec cette partie la mais ça marche pas, la macro me rempli que les données de la feuil1 du classeur1

Wbk2.Sheets(1).Select
Wbk2.Sheets(3).Select

With Selection



For j = 3 To 28




Wbk1.Worksheets(1).Cells(2, j).Value = Wbk2.Worksheets(1).Cells(3, j).Value
Wbk1.Worksheets(1).Cells(4, j).Value = Wbk2.Worksheets(3).Cells(4, j).Value

j = j + 1


Next j

 

[Pierrot93]

Re : copie cellule Excel

Re,

peut être revoir le post #2.... pourquoi incrémenter J alors que la boucle "for" le fait toute seule ???

 

[hakoko]

Re : copie cellule Excel

oui , j'ai essayé avec ça aussi , meme resultat
For J = 3 To 28

Wbk1.Worksheets(1).Cells(2, J).Value = Wbk2.Worksheets(1).Cells(3, J).Value

Wbk1.Worksheets(1).Cells(3, J).Value = Wbk2.Worksheets(3).Cells(3, J).Value

Next J

 

[Pierrot93]

Re : copie cellule Excel

Re,

j'ai essayé avec cette partie la mais ça marche pas, la macro me rempli que les données de la feuil1 du classeur1

bah... à priori c'est ce que tu lui demande...

Wbk1.Worksheets(1).Cells(2, j).Value = Wbk2.Worksheets(1).Cells(3, j).Value 
Wbk1.Worksheets(1).Cells(4, j).Value = Wbk2.Worksheets(3).Cells(4, j).Value

soit plus préci ou mets en pièce jointe un fichier nour permettant de tester....

 

[hakoko]

Re : copie cellule Excel

c'est feuil1 et feuil3 classeur 1 dans feuil 1 classeur2 mais la il me met just feuil1 sans feuil3,

 

[Pierrot93]

Re : copie cellule Excel

Re,

ceci fonctionne chez moi...

Option Explicit
Sub extraction()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Dim NomFichierOrigine As String, j As Long
NomFichierOrigine = "C(3)"
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks(NomFichierOrigine & ".xlsm")
For j = 3 To 28
    Wbk1.Worksheets(1).Cells(2, j).Value = Wbk2.Worksheets(1).Cells(3, j).Value
    Wbk1.Worksheets(1).Cells(3, j).Value = Wbk2.Worksheets(3).Cells(3, j).Value
Next j
End Sub

mais rien dans ton fichier donc....

là pas tout compris...

c'est feuil1 et feuil3 classeur 1 dans feuil 1 classeur2 mais la il me met just feuil1 sans feuil3,

pour rappel le premier agument de "cells" est un numéro de ligne, le 2ème argument un numéro de colonne....

 

[hakoko]

Re : copie cellule Excel

je pensais que l'indice "3" de Wbk2.Worksheets(3) correspondait au numero de la feuil, non?

 

[hakoko]

Re : copie cellule Excel

si ça marche maintenant, je ne sais pas pkoi ça marchais pas tt a lheur, merci