extraire chaîne de caractères (formule)

[C@thy]

Bonjour le forum,

je viens de faire une recherche dans le forum mais il semble que ce que je recherche ne s'y trouve pas...

je souhaiterais récupérer
1- tout ce qui se trouve derrière l'@
2- le 1er mot derrière l'@ (entre l'@ et le point)

de préférence par formule...

j'hésite entre le CHERCHE, le TROUVE, le SUBSTITUTE

ex. toto.titi@xld.lemeilleursite.fr -> 1) xld.lemeilleursite.fr 2) xld

de même tout ce qui est derrière le = dans
bidule(1) = bla bla bla -> bla bla bla
bidule(999) = bling bling -> bling bling

Merci à vous si vous avez une idée sur la question.

Bises

C@thy

 

[pierrejean]

Re : extraire chaîne de caractères (formule)

Re

Teste ceci

Sub test()
D1 = DateSerial(2011, 12, 22)
D2 = DateSerial(2011, 12, 26)
an = Year(Date)
  For m = LBound(Fer(an)) To UBound(Fer(an))
    lesferies = lesferies & CStr(Fer(an)(m)) & ","
  Next m
For n = D1 To D2
If Weekday(n) <> 1 And Weekday(n) <> 7 And InStr(lesferies, CStr(CLng(n))) = 0 Then
  NBJours = NBJours + 1
End If
Next n
MsgBox (NBJours)
End Sub

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Oups!!!

Merci David!

en fait le fil est là :
https://www.excel-downloads.com/threads/vba-ajouter-n-jours-ouvres-a-la-date-du-jour.170492/

Bizz

C@thy

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Merciiiiiii Pierre-Jean. C'est presque ça, y'a juste un jour de trop.

Bises

C@thy

 

[C@thy]

Re : extraire chaîne de caractères (formule)

Pierre-Jean on est sur la bonne voie je continue la discussion
sur le bon fil (fil d'origine cité plus haut)
Je te remercie tu m'as bien fait progresser

Bisous

C@thy