Problème sur un code VBA

hypo78 · 3 Novembre 2014

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 · 4 Novembre 2014

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.

hypo78 · 12 Novembre 2014

Re : Problème sur un code VBA

Bonjour Stapple1600,

désolé de n'avoir répondu plus tôt, mais je n'ai pas eu accès au fichier depuis.
je teste çà dès que possible, et je te tiens informé.
cordialement

Problème sur un code VBA

hypo78

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

hypo78

XLDnaute Impliqué

Discussions similaires