prefixe '

[okparanoid]

Bonjour a tous et bonne annee !

J'ai une macro qui agrege via ADO des classeurs fermes.
Le porbleme c'est que mes champs dates sont precedes d'un ' à l'agregation si un champ sur une des lignes du dessus n'est pas rempli sur le fichier à copier.
Du coup mon champ n'est plus considere comme un champ date...
J'ai trouve ca pour supprimer ces ' :

For Each cell In ActiveSheet.UsedRange
    If cell.PrefixCharacter <> "" Then
        cell.Formula = cell.Formula
    End If
Next cell

Le probleme c'est que maintenant la prise en compte du nouveau format en date est aleatoire, certaines cellules sajustent automatiquement d'autres doivente etre cliquees pour cela (completement nimp).

Quelqu'un sait comment resoudre ce probleme par Macro ?

 

[jp14]

Re : prefixe '

Bonjour

Une piste
Tester avec Isdate pour savoir si le texte est une date et ensuite appliquer le format date en utilsant .NumberFormat="dd/mm/yyyy;@" ou autre.

JP