[cloturer]erreur 1007

[Keran]

Bonjour voila j'ai une vba que j'aimerais executer mais elle me dit erreur 1007 je ne trouve pas pourquoi :/

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

 

[job75]

Bonjour Keran,

j'avais opter pour cette option a la base pour eviter que des formules sois supprimer ou modifier , le fichier etant confier a des agents qui ne mettrise pas vraiment la bureautique

Cela confirme ce que je pensais (mon post #27), merci pour l'explication.

A bientôt.

 

[job75]

Re tout le monde,

Pensée du soir : saboter la langue française (ras-le-bol) c'est aussi du terrorisme (quand on est français).

Le post #30 corrigé :

j'avais opté pour cette option à la base pour éviter que des formules soient supprimées ou modifiées, le fichier étant confié à des agents qui ne maîtrisent pas vraiment la bureautique mais où j'avais l'obligation de laisser accessibles les cellules (j'en ai verrouillé une partie mais j'ai aussi donné le mot de passe) enfin voilà je n'arrive pas à expliquer clairement ma vision et je pense que c'est aussi pour ça que je suis partie sur des bases pas forcément les plus adaptées
je sais pas quoi d'autre répondre ^^"

Bonne nuit.