Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel une macro formule

une macro formule

8 réponses
Avatar
mboileau
Salut j'ai la macro suivante mais =E7a bloque =E0 la ligne .Formula....

=E7a me dit "Erreur d=E9finie par l'application ou par l'objet. Que
dois-je faire?


Sub Yen()

p =3D "G:\Olymel\Devises\YEN"
d =3D "YEN " & Format(Year(D13), "yyyy")
f =3D "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
"=2Exls"
e =3D "Contrats Yens"

With Worksheets("Royale").Range("E16")
.Formula =3D "=3Dsi(D13=3D'" & p & "\" & d & "\[" & f & "]" & s &
"'!$H:$H;somme('" & p & "\" & d & "\[" & f & "]" & s & "'!$J:$J;0)"
End With

End Sub
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
a écrit dans le message de news:

Salut j'ai la macro suivante mais ça bloque à la ligne .Formula....

ça me dit "Erreur définie par l'application ou par l'objet. Que
dois-je faire?


Sub Yen()

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.Formula = "=si(D13='" & p & "" & d & "[" & f & "]" & s &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & s & "'!$J:$J;0)"
End With

End Sub
Avatar
Clément Marcotte
Bonjour,

Ou bien tu mets formulalocal et tu gardes ton si, ou bien, tu mets mets if
et tu gardes ton formula.

a écrit dans le message de news:

Salut j'ai la macro suivante mais ça bloque à la ligne .Formula....

ça me dit "Erreur définie par l'application ou par l'objet. Que
dois-je faire?


Sub Yen()

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.Formula = "=si(D13='" & p & "" & d & "[" & f & "]" & s &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & s & "'!$J:$J;0)"
End With

End Sub
Avatar
Daniel
Bonjour.
Essaie avec "FormulaLocal" au lieu de "Formula".
Cordialement.
Daniel
a écrit dans le message de news:

Salut j'ai la macro suivante mais ça bloque à la ligne .Formula....

ça me dit "Erreur définie par l'application ou par l'objet. Que
dois-je faire?


Sub Yen()

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.Formula = "=si(D13='" & p & "" & d & "[" & f & "]" & s &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & s & "'!$J:$J;0)"
End With

End Sub
Avatar
mboileau
.formulalocal ne fonctionne pas ça m'écrit toujours la même chose

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.FormulaLocal = "=si(D13='" & p & "" & d & "[" & f & "]" & e &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & e & "'!$J:$J;0)"
End With


???????????
Avatar
jps
tu pourrais commencer par remercier ceux qui t'on répondu avant de lâcher ta
phrase aussi sèche qu'un japonais dont le harakiri remonte à la seconde
guerre mondiale
jps

a écrit dans le message de news:

.formulalocal ne fonctionne pas ça m'écrit toujours la même chose

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.FormulaLocal = "=si(D13='" & p & "" & d & "[" & f & "]" & e &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & e & "'!$J:$J;0)"
End With


???????????
Avatar
FxM
Bonsoir,

Outre le formulalocal ou non,je présens quelque chose avec f et e.

Je crois comprendre que tu as une date en D13. Il me semble que tu dois
appliquer le format "mmmm yyyy" sur la date sans avoir extrait le mois
et l'année. Ca donnerait :
f = "Contrat Yens " & Format(D13, "mmmm yyyy") & ".xls"

Concernant e, cette variable n'est reprise nulle part ailleurs dans ce
bout de code.

@+
FxM





Salut j'ai la macro suivante mais ça bloque à la ligne .Formula....

ça me dit "Erreur définie par l'application ou par l'objet. Que
dois-je faire?


Sub Yen()

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.Formula = "=si(D13='" & p & "" & d & "[" & f & "]" & s &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & s & "'!$J:$J;0)"
End With

End Sub



Avatar
Daniel
Ta formule doit se terminer par : 0))" au lieu de 0)". Avec formulalocal, ça
le fait.
Daniel
a écrit dans le message de news:

.formulalocal ne fonctionne pas ça m'écrit toujours la même chose

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.FormulaLocal = "=si(D13='" & p & "" & d & "[" & f & "]" & e &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & e & "'!$J:$J;0)"
End With


???????????
Avatar
mboileau
c'est bon merci j'ai trouvé une autre facon de le faire

MP



Ta formule doit se terminer par : 0))" au lieu de 0)". Avec formulalocal, ça
le fait.
Daniel
a écrit dans le message de news:

.formulalocal ne fonctionne pas ça m'écrit toujours la même chose

p = "G:OlymelDevisesYEN"
d = "YEN " & Format(Year(D13), "yyyy")
f = "Contrat Yens " & Format(Month(D13) & Year(D13), "mmmm yyyy") &
".xls"
e = "Contrats Yens"

With Worksheets("Royale").Range("E16")
.FormulaLocal = "=si(D13='" & p & "" & d & "[" & f & "]" & e &
"'!$H:$H;somme('" & p & "" & d & "[" & f & "]" & e & "'!$J:$J;0)"
End With


???????????