hypo78
XLDnaute Impliqué
Bonjour à tous,
Mon code suivant me sert à créer des formules dans des cellules en fonction d'une date en colonne A
la formule renvoyée est donc du type :
et pour je ne sais quelle raison sur certaines lignes elle est :
Parfois la ligne était complète mais j'avais 2 \\ entre Feuilles de garde et 2014
Je ne vois comment et pourquoi ce code peut renvoyer "aléatoirement" la bonne formule.
Merci d'avance de jeter un oeil à mon problème
Mon code suivant me sert à créer des formules dans des cellules en fonction d'une date en colonne A
Code:
Private Sub MAJPiquets()
Application.Calculation = xlCalculationManual
Dim gardedujour As String
Dim j As Integer
Dim jourgarde As Date
Sheets("Piquets2").Activate
For j = 122 To 131
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'!$W$4"
'stationnaire
Cells(j, 4) = "='" & gardedujour & "\[" & Format(jourgarde, "ddmmmmyyyy"".xls") & "]01'!$AW$4"
Next j
End Sub
la formule renvoyée est donc du type :
Code:
='\\Pttfs01\hoi\Ressources humaines\Feuilles de garde\2014\Novembre2014\[05novembre2014.xls]01'!$W$4
et pour je ne sais quelle raison sur certaines lignes elle est :
Code:
='\\Pttfs01\hoi\2014\novembre2014\[06novembre2014.xls]01'!$W$4
Parfois la ligne était complète mais j'avais 2 \\ entre Feuilles de garde et 2014
Je ne vois comment et pourquoi ce code peut renvoyer "aléatoirement" la bonne formule.
Merci d'avance de jeter un oeil à mon problème