récup date(moitié de texte dans cell)

[spyderdvd]

Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!

 

[Jacky67]

Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!

Bonjour et meilleurs vœux pour 2019
Essaye ceci:

*code modifié

Sub Lesheures()
Sheets("TEST").Columns("c:d").Replace "*/???? ", ""
Sheets("TEST").Columns("c:d").NumberFormat = "hh:mm"
End Sub

 

[job75]

Bonjour spyderdvd, Jacky67,

Sub DateHeure()
With Range("C5:D" & Rows.Count)
    If .Find("??/*", , xlValues) Is Nothing Then Exit Sub
    [C1] = "Document du " & Left(.Find("??/*"), 10)
    .NumberFormat = "hh:mm:ss"
    .Replace "* ", "", xlPart
End With
End Sub

Mes meilleurs voeux pour 2019.

A+

 

[Modeste geedee]

Bonjour à tous et surtout une bonne et heureuse année 2019 !!!

Voici ma problématique j'ai une extraction Excel où l'heure de départ et arrivée contient également la date du jour concerné. J'ai fait une toute petite macro pour supprimer la date (voir fichier text)
Par contre j'aimerais bien avoir une macro qui:
En colonne C après la ligne 4 repère la cellule non vide et arrive à enregistrer la date (texte jusqu'à l'espace ??)

Pour reprendre celle-ci dans l'intitulé de mon doc : Document du + ( date enregistrée ) Si possible avec tout dans la cellule C1.

Et effacer cette même date dans la colonne C et D pour garder que l'horaire,
m'évitant ainsi de modifier à chaque date différente ma macro.

Merci d'avance !!!

???? pourquoi supprimer la date ???
l'affichage de l'heure seule par un format ne suffit-elle pas ???

collage spécial de la valeur 1 dans la plage C et D
format de cellule :
hh:mm:ss

 

[spyderdvd]

Bonjour à vous trois et merci pour votre participation à la résolution de mon problème.
Et un remerciement tout particulier à Job75 car je vais pouvoir intégré ce petit bout
de macro à une plus grande pour récupérer des données et les traitées comme je le souhaite.

Une bonne soirée et encore merci à voue trois.