1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub CommandButton7_Click()
Dim oSource As Workbook, oCible As Workbook
Dim sPath As String, W As String
Application.ScreenUpdating = False
If MsgBox("Vous comfirmez la mise à jour des PVC vers les entrepots?", vbYesNo + vbQuestion, "Mise a jour des PVC") = vbYes Then
Set oSource = ThisWorkbook
sPath = oSource.Sheets("TONY").Range("A516").Value
W = Dir(sPath & "*.xlm")
Do Until W = ""
Set oCible = Workbooks.Open(sPath & W)
oCible.Worksheets("TARIF V BOVINE").Range("O6:W52").Value = oSource.Worksheets("TARIF V BOVINE").Range("E6:M52").Value
oCible.Worksheets("TARIF PORC").Range("O6:W35").Value = oSource.Worksheets("TARIF PORC").Range("E6:M35").Value
oCible.Worksheets("TARIF VEAU").Range("O6:W29").Value = oSource.Worksheets("TARIF VEAU").Range("E6:M29").Value
oCible.Worksheets("TARIF AGNEAU").Range("O6:W19").Value = oSource.Worksheets("TARIF AGNEAU").Range("E6:M19").Value
oCible.Worksheets("TARIF AGNEAU").Range("O25:W38").Value = oSource.Worksheets("TARIF AGNEAU").Range("E25:M38").Value
oCible.Worksheets("TARIF AGNEAU").Range("O44:W51").Value = oSource.Worksheets("TARIF AGNEAU").Range("E44:M51").Value
oCible.Worksheets("TARIF ABATS").Range("O6:W48").Value = oSource.Worksheets("TARIF ABATS").Range("E6:M48").Value
oCible.Close True
Set oCible = Nothing
W = Dir()
Loop
MsgBox "Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information"
End If
End Sub |
Partager