Bonjour voila j'ai une vba que j'aimerais executer mais elle me dit erreur 1007 je ne trouve pas pourquoi :/
merci d'avance
VB:
Sub Macro7()
'
' Macro7 Macro
'
'
ActiveWorkbook.Worksheets("BAout").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HJuillet!$AF$7=31,AND(LEFT(HJuillet!$AF9,5)>""19:00"",RIGHT(HJuillet!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HJuillet!$AF9,1)),ISNUMBER(VLOOKUP(HJuillet!$AF$2,DimFe,1,FALSE))),TEXT(HJuillet!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HJuillet!$AE$2=30,HJuillet!$AF$7=""""),AND(LEFT(HJuillet!$AE9,5)>""19:00"",RIGHT(HJuillet!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HJuillet" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HJuillet!$AE$2,DimFe,1,FALSE))),TEXT(HJuillet!$AE$2,""jj/mm/aa"")&"" - "","""")"""
ActiveWorkbook.Worksheets("BAout").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HJuillet!$AF$7=31,AND(LEFT(HJuillet!$AF9,5)>""19:00"",RIGHT(HJuillet!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HJuillet!$AF9,1)),ISNUMBER(VLOOKUP(HJuillet!$AF$2,DimFe,1,FALSE))),TEXT(HJuillet!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HJuillet!$AE$2=30,HJuillet!$AF$7=""""),AND(LEFT(HJuillet!$AE9,5)>""19:00"",RIGHT(HJuillet!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HJuillet" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HJuillet!$AE$2,DimFe,1,FALSE))),TEXT(HJuillet!$AE$2,""jj/mm/aa"")&"" - "","""")"""
'
ActiveWorkbook.Worksheets("BAvril").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HMars!$AF$7=31,AND(LEFT(HMars!$AF9,5)>""19:00"",RIGHT(HMars!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HMars!$AF9,1)),ISNUMBER(VLOOKUP(HMars!$AF$2,DimFe,1,FALSE))),TEXT(HMars!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HMars!$AE$2=30,HMars!$AF$7=""""),AND(LEFT(HMars!$AE9,5)>""19:00"",RIGHT(HMars!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HMars" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HMars!$AE$2,DimFe,1,FALSE))),TEXT(HMars!$AE$2,""jj/mm/aa"")&"" - "","""")"""
ActiveWorkbook.Worksheets("BAvril").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HMars!$AF$7=31,AND(LEFT(HMars!$AF9,5)>""19:00"",RIGHT(HMars!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HMars!$AF9,1)),ISNUMBER(VLOOKUP(HMars!$AF$2,DimFe,1,FALSE))),TEXT(HMars!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HMars!$AE$2=30,HMars!$AF$7=""""),AND(LEFT(HMars!$AE9,5)>""19:00"",RIGHT(HMars!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HMars" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HMars!$AE$2,DimFe,1,FALSE))),TEXT(HMars!$AE$2,""jj/mm/aa"")&"" - "","""")"""
'"
ActiveWorkbook.Worksheets("BDecembre").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HNovembre!$AF$7=31,AND(LEFT(HNovembre!$AF9,5)>""19:00"",RIGHT(HNovembre!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HNovembre!$AF9,1)),ISNUMBER(VLOOKUP(HNovembre!$AF$2,DimFe,1,FALSE))),TEXT(HNovembre!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HNovembre!$AE$2=30,HNovembre!$AF$7=""""),AND(LEFT(HNovembre!$AE9,5)>""19:00"",RIGHT(HNovembre!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HNovembre" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HNovembre!$AE$2,DimFe,1,FALSE))),TEXT(HNovembre!$AE$2,""jj/mm/aa"")&"" - "","""")"
ActiveWorkbook.Worksheets("BDecembre").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HNovembre!$AF$7=31,AND(LEFT(HNovembre!$AF9,5)>""19:00"",RIGHT(HNovembre!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HNovembre!$AF9,1)),ISNUMBER(VLOOKUP(HNovembre!$AF$2,DimFe,1,FALSE))),TEXT(HNovembre!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HNovembre!$AE$2=30,HNovembre!$AF$7=""""),AND(LEFT(HNovembre!$AE9,5)>""19:00"",RIGHT(HNovembre!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HNovembre" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HNovembre!$AE$2,DimFe,1,FALSE))),TEXT(HNovembre!$AE$2,""jj/mm/aa"")&"" - "","""")"
'
ActiveWorkbook.Worksheets("BJuillet").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HJuin!$AF$7=31,AND(LEFT(HJuin!$AF9,5)>""19:00"",RIGHT(HJuin!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HJuin!$AF9,1)),ISNUMBER(VLOOKUP(HJuin!$AF$2,DimFe,1,FALSE))),TEXT(HJuin!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HJuin!$AE$2=30,HJuin!$AF$7=""""),AND(LEFT(HJuin!$AE9,5)>""19:00"",RIGHT(HJuin!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HJuin" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HJuin!$AE$2,DimFe,1,FALSE))),TEXT(HJuin!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
ActiveWorkbook.Worksheets("BJuillet").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HJuin!$AF$7=31,AND(LEFT(HJuin!$AF9,5)>""19:00"",RIGHT(HJuin!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HJuin!$AF9,1)),ISNUMBER(VLOOKUP(HJuin!$AF$2,DimFe,1,FALSE))),TEXT(HJuin!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HJuin!$AE$2=30,HJuin!$AF$7=""""),AND(LEFT(HJuin!$AE9,5)>""19:00"",RIGHT(HJuin!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HJuin" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HJuin!$AE$2,DimFe,1,FALSE))),TEXT(HJuin!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
'
ActiveWorkbook.Worksheets("BJuin").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HMai!$AF$7=31,AND(LEFT(HMai!$AF9,5)>""19:00"",RIGHT(HMai!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HMai!$AF9,1)),ISNUMBER(VLOOKUP(HMai!$AF$2,DimFe,1,FALSE))),TEXT(HMai!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HMai!$AE$2=30,HMai!$AF$7=""""),AND(LEFT(HMai!$AE9,5)>""19:00"",RIGHT(HMai!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HMai" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HMai!$AE$2,DimFe,1,FALSE))),TEXT(HMai!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
ActiveWorkbook.Worksheets("BJuin").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HMai!$AF$7=31,AND(LEFT(HMai!$AF9,5)>""19:00"",RIGHT(HMai!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HMai!$AF9,1)),ISNUMBER(VLOOKUP(HMai!$AF$2,DimFe,1,FALSE))),TEXT(HMai!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HMai!$AE$2=30,HMai!$AF$7=""""),AND(LEFT(HMai!$AE9,5)>""19:00"",RIGHT(HMai!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HMai" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HMai!$AE$2,DimFe,1,FALSE))),TEXT(HMai!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
'
ActiveWorkbook.Worksheets("BMai").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HAvril!$AF$7=31,AND(LEFT(HAvril!$AF9,5)>""19:00"",RIGHT(HAvril!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HAvril!$AF9,1)),ISNUMBER(VLOOKUP(HAvril!$AF$2,DimFe,1,FALSE))),TEXT(HAvril!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HAvril!$AE$2=30,HAvril!$AF$7=""""),AND(LEFT(HAvril!$AE9,5)>""19:00"",RIGHT(HAvril!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HAvril" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HAvril!$AE$2,DimFe,1,FALSE))),TEXT(HAvril!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
ActiveWorkbook.Worksheets("BMai").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HAvril!$AF$7=31,AND(LEFT(HAvril!$AF9,5)>""19:00"",RIGHT(HAvril!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HAvril!$AF9,1)),ISNUMBER(VLOOKUP(HAvril!$AF$2,DimFe,1,FALSE))),TEXT(HAvril!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HAvril!$AE$2=30,HAvril!$AF$7=""""),AND(LEFT(HAvril!$AE9,5)>""19:00"",RIGHT(HAvril!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HAvril" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HAvril!$AE$2,DimFe,1,FALSE))),TEXT(HAvril!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
'
ActiveWorkbook.Worksheets("BMars").Names("nuitmoismoindim").RefersToR1C1 = _
"=IF(AND(HFevrier!$AF$7=31,AND(LEFT(HFevrier!$AF9,5)>""19:00"",RIGHT(HFevrier!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HFevrier!$AF9,1)),ISNUMBER(VLOOKUP(HFevrier!$AF$2,DimFe,1,FALSE))),TEXT(HFevrier!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HFevrier!$AE$2=30,HFevrier!$AF$7=""""),AND(LEFT(HFevrier!$AE9,5)>""19:00"",RIGHT(HFevrier!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HFevrier" & _
"!$AE9,1)),ISNUMBER(VLOOKUP(HFevrier!$AE$2,DimFe,1,FALSE))),TEXT(HFevrier!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
ActiveWorkbook.Worksheets("BMars").Names("nuitmoismoins").RefersToR1C1 = _
"=IF(AND(HFevrier!$AF$7=31,AND(LEFT(HFevrier!$AF9,5)>""19:00"",RIGHT(HFevrier!$AF9,5)<""8:00""),ISNUMBER(1*LEFT(HFevrier!$AF9,1)),ISNUMBER(VLOOKUP(HFevrier!$AF$2,DimFe,1,FALSE))),TEXT(HFevrier!$AF$2,""jj/mm/aa"")&"" - "","""")& IF(AND(AND(HFevrier!$AE$2=30,HFevrier!$AF$7=""""),AND(LEFT(HFevrier!$AE9,5)>""19:00"",RIGHT(HFevrier!$AE9,5)<""8:00""),ISNUMBER(1*LEFT(HFevrier" & _
"et!$AE9,1)),ISNUMBER(VLOOKUP(HFevrier!$AE$2,DimFe,1,FALSE))),TEXT(HFevrier!$AE$2,""jj/mm/aa"")&"" - "","""")" & _
""
'
End Sub
merci d'avance