Problème sur un code VBA

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

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
 

Staple1600

XLDnaute Barbatruc
Re : Problème sur un code VBA

Bonjour à tous


Puisque tu dis qu'il y a des dates en colonne A, voici ton code modifié en conséquence
Code:
Private Sub MAJPiquets()
Application.Calculation = xlCalculationManual
Dim gardedujour$, nfic$, j%, jourgarde As Date
For j = 122 To 131
jourgarde = Cells(j, 1)
gardedujour = ThisWorkBookPath & "\" & Year(jourgarde) & "\" & Format(jourgarde, "mmmmyyyy")
nfic = Format(jourgarde, "ddmmmmyyyy"".xls")
'chef de garde
Cells(j, 2) = "='" & gardedujour & "\[" & nfic & "]01'!$W$4"
'stationnaire
Cells(j, 4) = "='" & gardedujour & "\[" & nfic & "]01'!$AW$4"
Next j
End Sub

Quand à savoir le pourquoi du phénomène constaté, peut-être voir si tes cellules contiennent bien de vrais dates.
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof