judoka0209
XLDnaute Occasionnel
Bonjour, dans ma macro je voudrais qu'a la fin il me selectionne la date de jour que se trouve dans la ligne c
merci
merci
VB:
Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open Filename:= _
"\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
Windows("Planning equipe 3x8 2019.xlsm").Activate
Range("C13:NR13").Select
Application.CutCopyMode = False
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.ScrollColumn = 365
ActiveWindow.ScrollColumn = 350
ActiveWindow.ScrollColumn = 317
ActiveWindow.ScrollColumn = 287
ActiveWindow.ScrollColumn = 270
ActiveWindow.ScrollColumn = 268
ActiveWindow.ScrollColumn = 267
ActiveWindow.ScrollColumn = 266
ActiveWindow.ScrollColumn = 261
ActiveWindow.ScrollColumn = 239
ActiveWindow.ScrollColumn = 231
ActiveWindow.ScrollColumn = 228
ActiveWindow.ScrollColumn = 208
ActiveWindow.ScrollColumn = 194
ActiveWindow.ScrollColumn = 171
ActiveWindow.ScrollColumn = 150
ActiveWindow.ScrollColumn = 135
ActiveWindow.ScrollColumn = 134
ActiveWindow.ScrollColumn = 121
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 88
ActiveWindow.ScrollColumn = 84
ActiveWindow.ScrollColumn = 74
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 3
Selection.Copy
Range("C23").Select
ActiveSheet.Paste
Range("C33").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Range("C43").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
Range("C53").Select
ActiveSheet.Paste
Range("C63").Select
ActiveSheet.Paste
Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub