hypo78
XLDnaute Impliqué
Bonjour,
Dans un premier classeur j'ai une macro (un vulgaire copier / coller vers un autre classeur)
Mon problème c'est que dans ce classeur de destination j'ai un code qui se lance à l'ouverture (récupération de données dans plusieurs classeurs)
Et là çà pose problème. Je pense que le conflit vient de
sheets("aide").activate VS sheets("piquets2") non?
Comment contourner ce problème?
Dans un premier classeur j'ai une macro (un vulgaire copier / coller vers un autre classeur)
Code:
Sub Copie_personnel()
Dim DOSROT As String
DOSROT = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\") - 5)
Range("DU11:DU42").Select
Selection.Copy
Workbooks.Open Filename:=DOSROT & "rotation piquets.xls"
Sheets("aide").Activate
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mon problème c'est que dans ce classeur de destination j'ai un code qui se lance à l'ouverture (récupération de données dans plusieurs classeurs)
Code:
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Dim i As Integer
Sheets("Piquets2").Activate
'recherche des dates 6 mois antérieurs
For i = 2 To 150
Cells(i, 1) = Date - (140 - i)
Next i
Call MAJPiquets
End Sub
Private Sub MAJPiquets()
Dim gardedujour As String
Dim j As Integer
For j = 2 To 150
jourgarde = Cells(j, 1)
jourgarde = Format(jourgarde, "dd/mm/yyyy")
gardedujour = ThisWorkbook.Path & "\" & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\"
'chef de garde
Cells(j, 2) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AC$4"
'ronde
Cells(j, 3) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AX$7"
'stationnaire jour
Cells(j, 4) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AR$4"
'stationnaire nuit
Cells(j, 5) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AZ$4"
'sous off de jour
Cells(j, 6) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AM$7"
Next j
Application.Calculation = xlCalculationAutomatic
End Sub
Et là çà pose problème. Je pense que le conflit vient de
sheets("aide").activate VS sheets("piquets2") non?
Comment contourner ce problème?