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