br44
XLDnaute Impliqué
Bonjour à tout le forum
Dans la procédure qui suis je voudrais savoir s'il est possible de la modifier pour que les liaisons ne soit copier ?
Private Sub CommandButton2_(click)
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 =WorkBook.open(chemin)
Set Wb2 =ThisWorkBook
ActiveWorkBook.Save
Wb2.Sheets('Détail').UsedRange.Copy Destination:=Wb1.sheets(mois).Range('A65536').End(XlUp)
Wb2.Sheets('Facture').usedRange.Copy destination:=Wb1.Sheets(Mois).Range('A65336').End(XlUp).Offset(1,0)
With Wb1.Sheet(Mois)
For i = 1 To .UsedRange.Columns.Count
.Columns(i).ColumnWidth=Wb2.Sheets('Détail').Columns(i).ColumnWidth
Next
Y=1
For i = 2 To . UsedRange.rows.Count
.Rows(i).RowHeight=Wb2.Sheets('Facture').Rows(y).RowHeight
Next i
End With
End Sub
Merci d'avence pour toutes vos réponces ,je vous dis à bientôt sur le forum
br44
Dans la procédure qui suis je voudrais savoir s'il est possible de la modifier pour que les liaisons ne soit copier ?
Private Sub CommandButton2_(click)
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 =WorkBook.open(chemin)
Set Wb2 =ThisWorkBook
ActiveWorkBook.Save
Wb2.Sheets('Détail').UsedRange.Copy Destination:=Wb1.sheets(mois).Range('A65536').End(XlUp)
Wb2.Sheets('Facture').usedRange.Copy destination:=Wb1.Sheets(Mois).Range('A65336').End(XlUp).Offset(1,0)
With Wb1.Sheet(Mois)
For i = 1 To .UsedRange.Columns.Count
.Columns(i).ColumnWidth=Wb2.Sheets('Détail').Columns(i).ColumnWidth
Next
Y=1
For i = 2 To . UsedRange.rows.Count
.Rows(i).RowHeight=Wb2.Sheets('Facture').Rows(y).RowHeight
Next i
End With
End Sub
Merci d'avence pour toutes vos réponces ,je vous dis à bientôt sur le forum
br44