Discussion :

[Sibuxian]

Bonjour,

J'importe des données sur mon excel dont certaines sont des dates. Mon problème est que le format des données d'importation son du texte et non en format date.
J'ai besoin de passer ses données en format date pour pouvoir insérer des condition par rapport à la date du jour.

J'ai essayé le format Cdate mais cela ne fonctionne pas.
Je suis preneur de toutes idées pour m'aider.

Merci

[Gorfael]

Salut Sibuxian et le forum
40 messages, tu devrais donc connaître la différence entre données de dépannage et divination !
Rien dans ton sujet ne permet de savoir ce qui se passe : "cela ne fonctionne pas" ne permet pas de cerner ton problème. Pas d'exemple, pas d'erreur, jusque "c'est pas ce que je voulais", sans autres précisions.
A+

[delphine35]

Tu selectionnes ta colonnes / lignes contenant le texte a convertir en date et puis tu vas dans données - convertir et à la fin tu selectionnes format - date


en VBA - tu peux voir cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
 
var1 = Format(Range("A1"), "yyyymmdd")
aujourdhui = Format(Date, "yyyymmdd")
 
If var1 < aujourdhui Then
    MsgBox "inferieur a la date du jour(date system)"
End If
 
 
End Sub

Ou donnes nous + de renseignements .... versions Excel
en VBA ou pas ...

[Sibuxian]

Bonjour,

Excusez moi pour le manque d'informations ...

Donc je récapitule mon problème ainsi que les différentes solutions testées et les résultats.

J'importe des données sur mon fichier excel (2003). Les données importées sont des dates qui sont malheureusement considérées comme du texte par excel. Je ne peux donc pas calculer la différence de jours entre ces dates et la date de la fonction [=aujourdhui()].

J'ai donc testé les différents copy/paste pour essayer de modifier le format après, mais cela reste du texte.
J'ai testé une macro avec le format Cdate qui vérifie le si le format correspond a un format date ##/##/#### mais cela ne fonctionne pas tout le temps. Des fois, le résultat est vide puisque la macro ne reconnait pas le format. De plus, dès qu'il y a un 0 dans la date, cette macro ne le prend pas en compte et modifie donc la date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim strTexte As String
    Dim i, n, a As Integer
    Dim varDate As String
    Dim Date_Cp As String
 
    For a = 4 To 100
        Date_Cp = Worksheets(Strsheet4).Cells(a, 66)
 
        strTexte = Date_Cp
 
        For i = 1 To Len(strTexte)
            If Mid(strTexte, i, 10) Like "##/##/####" Then
                varDate = Mid(strTexte, i, 11)
                Exit For
            End If
        Next i
        If Not varDate = "" Then
            Date_Cp = CDate(varDate)
        End If
 
        Worksheets(Strsheet4).Cells(a, 69) = Date_Cp
    Next a

J'ai testé également ce que m'a proposé Delphine35 mais cela me renvoit des "##########" car le résultat est négatif pour Excel lors du changement de format. Je ne sais pas pourquoi.

Je continue donc mes recherches

[Gorfael]

Salut Sibuxian et le forum

J'importe des données sur mon fichier excel (2003)

Autant que je m'en souviennes, en importation, tu peux définir la nature du champs, en importation sur 2003.

Comme j'ai du mal à comprendre le problème, j'ai juste regarder ta macro et je ne comprends toujours pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Mid(strTexte, i, 10) Like "##/##/####" Then

Tu testes si les 10 caractères suivant ressemblent à une date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

varDate = Mid(strTexte, i, 11)

et tu en extrait 11, dans un format texte ???

Mais bon, je dois être fatigué, et comme les infos sont sous le coup du "secret défense"...
A+

[Sibuxian]

Heu non, aucun secret ...
je donne toutes les infos que j'ai ...

mais ton message m'a donné une bonne piste sur les importations et finalement, le calcul se fait automatiquement quand je spécifie que l'importation est une date.

Pour la macro, j'ai testé cette macro, que j'avais trouvé sur le net quand j'effectuais une recherche pour m'aider et donc oui, cela vérifie si le format correspond et sélectionne le texte, mais cela ne fonctionne pas du tout (dans on cas en tout cas).

Donc merci pour les conseils et les pistes