Erreur de renvoi dans classeur fermé

[jtitin]

Boujour

je renvois des données dans un classeur fermé.
Cela fonctionne mais l'incrémentation dans une collone (A) ce fait avec un apostrophe en début dans chaque cellules de la colonne.
du coup cette colonne n'est pas utilisable avec un TCD pour grouper les dates

Comment éviter cette apostrophe ??
je vous joint un fichier pour tester

Merci pour votre aide

 

[Coriolan]

Re : Erreur de renvoi dans classeur fermé

Bonjour,

Il semblerait que les dates soient transférées sous forme de texte. Il suffit (je pense 😉 )de prévoir une macro à l'ouverture de fichierferme qui transforme le texte en colonne A en date, avec la fonction DATEVAL ...

 

[jtitin]

Re : Erreur de renvoi dans classeur fermé

Merci Coriolan pour ta réponse.

oui en effet dateval me renvoit une valeur numérique
mais comment éditer une macro avec la fonction dateval sur la colonne A à l'ouverture du fichier ??

merci

 

[michel_m]

Re : Erreur de renvoi dans classeur fermé

Bonjour à tous les 2,

Le pb vient du fait que les premières lignes ( 110) de la col A du fichier fermé sont en texte. Donc, Excel considère que la colonne est par défaut du texte et tu ne pourras pas faire de tableau dynamique.

Il faut donc que dans le fichier fermé tu transformes la colonne en numérique au format date


comme le précise justement Coriolan, il serait prudent de forcer le type de champs dans ta macro; je mettrai plutôt Cdate mais Dateval est peut-être + valable

 

[jtitin]

Re : Erreur de renvoi dans classeur fermé

merci michel_m pour ta réponse

si je met la colonne A (fichierferme)en format Date c'est pareil j'ai toujours l'apostrophe.
si je modifi la macro en:
.Fields(0) = Format(CDate(Sheets("table").Range("B4")), "jj:mm:aaaa")
j'ai toujours l'apostrophe et la date est écrite 'jj:11:aaaa

comment utiliser DateVal dans cette macro??

merci

 

[Coriolan]

Re : Erreur de renvoi dans classeur fermé

Re bonjour,

Macro à mettre dans fichierferme, onglet table:

Private Sub Worksheet_Activate()
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cell In Selection
cell.Value = DateValue(cell.Value)
Next

End Sub


Dès activation de la feuille "table", tous les textes en colonne A seront retranscrits en date.

 

[jtitin]

Re : Erreur de renvoi dans classeur fermé

merci Coriolan pour ta macro

je la met de coté elle pourra me servir.
Michel_m m'a ouvert les yeux.
oui en effet les cellules de la colonne A sont en texte.
pour corriger ce fait j'ai donc appliqué la valeur 1 à une cellule vide
puis je l'ai copié et collage spécial sur la plage de la colonne A
puis cochet tout et multipliplication et ok.
Ensuite j'ai appliqué le format date à la colonne A
j'ai fait de même pour les autres colonnes (texte, nombre)

tout est OK

merci pour votre aide précieuse