VBA récupérer une partie du contenu cellule

Et de toute façon il n'a pas à s'inscrire, il est déjà dans toutes les cellules de tous les tableaux existants ;-)

Et il n'y toujours que nom et prénom sans possibilité que ce soit sur 3 mots ?
Ou bien " le ", juste devant la date, sera la seule fois où on risque de rencontrer cette chaine dans la cellule trouvée ?
Et le format de date est bien jj/mm/aaa ?

eric

Bon, j'ai fait sans toi, en partant de la fin de chaine ça devrait être bon.

Sub test()
    Dim c As Range, ch() As String
    Set c = [A:A].Find("Généré par :", LookIn:=xlValues)
    If c Is Nothing Then
        MsgBox ("Date non trouvée")
    Else
        ch = Split(c.Value, " ")
        [D1] = CDate(ch(UBound(ch) - 2))
        [E1] = CDate(ch(UBound(ch)))
    End If
End Sub

Tu mets le format date/heure que tu veux en D1 et E1

eric

Et il n'y toujours que nom et prénom sans possibilité que ce soit sur 3 mots ?
Si car il se peut qu'un nom soit à particule (cas extrème mais on ne sait jamais)
Sinon oui, il y aura toujours "Généré par : "+"Nom Prenom"+"le "+"XX/XX/XXX"+"à 00:00"
La date je ne suis pas certain qu'elle soit au format date puisque toute l'information ("Générée le : XX/XX/XXX

Je pars en week end et je testerais ca probablement dimanche soir maintenant, merci de ton aide.

Mais avant je demanderais à Chuck Norris si je peux essayer, ou alors il viendra de lui même m'autoriser à essayer.

A moins qu'il refuse que je parte en week end. ;)

Bonjour,

c'est une question ou c'est pour dire que tout est ok ?
eric

Non c'est une question, comme je le dis cela ne fonctionne pas, il me dit qu'il y a une erreur de compatibilité et à la ligne dans vb : Cdate(ch(UBound(ch) - 2)=Norris

Re,

Comme tu t'en doutes j'ai testé avec de poster, peut-être qu'une chaine a une particularité non annoncée.
Dépose un petit fichier exemple avec qcq lignes qui plante.
cjoint.com et collerr ici le lien fourni.

eric

Oui je m'en doute :)
Désolé pour le délai mais je suis débordé en ce moment.

Voici le fichier (envoyé avec l'autorisation de Chuck bien sur)
https://www.cjoint.com/?3Fgj4yxNxGa

Merci de ton aide.

Bonjour,

Ca marcherait mieux si tu avais filé les bonnes infos.
il y aura toujours "Généré par : "+"Nom Prenom"+"le "+"XX/XX/XXX"+"à 00:00"
Tu le vois où le "à" ?

Sub test()
    Dim c As Range, ch() As String
    Set c = [A:A].Find("Généré par :", LookIn:=xlValues)
    If c Is Nothing Then
        MsgBox ("Date non trouvée")
    Else
        ch = Split(c.Value, " ")
        [D1] = CDate(ch(UBound(ch) - 1))
        [E1] = CDate(ch(UBound(ch)))
    End If
End Sub

eric