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 26
|
Sub enreg_BDD()
Sheets("STAT_GOOD").Activate
Application.ScreenUpdating = False
If [GOOD!a1] <> "" Then
[BDD!d65536].End(xlUp)(2).Name = "top"
Range("GOOD!a1").Copy Destination:=[BDD!a65536].End(xlUp)(2) 'nom Valve
Range("GOOD!k4").Copy Destination:=[BDD!c65536].End(xlUp)(2) 'date
Range("STAT_GOOD!d12").Copy Destination:=[BDD!b65536].End(xlUp)(2) 'nom fichier'******essai
Application.CutCopyMode = False
[c17].Select
Do While ActiveCell <> ""
Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy
With Sheets("BDD")
.Range("top").PasteSpecial Paste:=xlPasteValues
[Top].Offset(0, 5).Name = "top"
End With
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Loop
[GOOD!a1].ClearContents 'contrôle du If
Else
MsgBox ("déjà enregistré dans BDD !")
End If
End Sub |
Partager