B
br44
Guest
bonjour le forum
je sais que j'ai déjas posée cette question sur un autres fil mais je n'est pas eu de réponse .
je voudrais modifiée la procédure qui suis pour réaliser l'exmple suivants :1ère copie de A1 à A79,2ème copie de A80 à A159 ect....
ma procédure:
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Dim I As Integer
Dim y As Integer
Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook
ActiveWorkbook.Save
'Copie pour la première Facture du mois
Wb2.Sheets('Détail').Range('A1:G29').Copy Destination:=Wb1.Sheets(Mois) _
.Range('A65536').End(xlUp)
Wb2.Sheets('Facture').Range('1:50').Copy Destination:=Wb1.Sheets(Mois) _
.Range('A65536').End(xlUp).Offset(1, 0)
With Wb1.Sheets(Mois)
For I = 1 To .Range('A1:G29').Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets('Détail').Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range('A1:G29').Rows.Count
.Rows(I).RowHeight = Wb2.Sheets('Détail').Rows(y).RowHeight
Next
End With
Application.CutCopyMode = False
merci d'avance pour tout et vous dis a bientôt sur ce fil br44
je sais que j'ai déjas posée cette question sur un autres fil mais je n'est pas eu de réponse .
je voudrais modifiée la procédure qui suis pour réaliser l'exmple suivants :1ère copie de A1 à A79,2ème copie de A80 à A159 ect....
ma procédure:
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Dim I As Integer
Dim y As Integer
Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook
ActiveWorkbook.Save
'Copie pour la première Facture du mois
Wb2.Sheets('Détail').Range('A1:G29').Copy Destination:=Wb1.Sheets(Mois) _
.Range('A65536').End(xlUp)
Wb2.Sheets('Facture').Range('1:50').Copy Destination:=Wb1.Sheets(Mois) _
.Range('A65536').End(xlUp).Offset(1, 0)
With Wb1.Sheets(Mois)
For I = 1 To .Range('A1:G29').Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets('Détail').Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range('A1:G29').Rows.Count
.Rows(I).RowHeight = Wb2.Sheets('Détail').Rows(y).RowHeight
Next
End With
Application.CutCopyMode = False
merci d'avance pour tout et vous dis a bientôt sur ce fil br44