Discussion :

[yeti66]

Bonjour,

je cherche à importer un formulaire reçu par mail dans une feuille excel pour générer une fiche membre pour une association.
Je réceptionne sur un Mac et je travaille sur excel PC dans un PC virtuel car mon code n'est pas assez propre pour fonctionner sur les deux machines.

Etape 1: je copie à la main le contenu du mail (Mac)
Etape 2: je bascule dans Excel sur mon PC virtuel
Etape 3: je lance une macro qui colle le contenu dans une feuille masquée puis récupère chaque élément pour remplir la feuille contenant les infos des membres
Etape 4: j'ai un formulaire pour éditer et modifier la fiche membre par la suite.

A priori c'est simple.
Mais je suis tombé sur un os avec la date de naissance. Ma macro crée une inversion des jours/mois entre le formulaire copié jj.mm.aaaa et la feuille "réceptrice" où le format devient mm.jj.aaaa.

J'utilise cette macro depuis plusieurs semaines et je n'avais jamais observé ce bug.
En fouillant dans les archives d'inscription, il semble que ce problème soit nouveau, alors que le code -déjà ancien- n'a pas changé.

En faisant un pas à pas de débuggage, je me suis rendu compte qu'en faisant ctrl+v, j'obtenais le format voulu: jj.mm.aaaa
alors qu'en code:

Code :

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

1
2
    Range("A1").Select
    ActiveSheet.Paste

j'obtiens le format: mm.jj.aaaa

J'ai bien sûr essayé de modifier le format de la cellule. Il est juste.
J'ai ensuite refait ces deux lignes de code sur un classeur vide... histoire d'éliminer des problèmes d'option.. ??? Même problème

Pour résumer: ctrl+v diffère de activesheet.paste et ça a changé récemment... pour le même code.

Qu'est-ce que je loupe!!!???

ça a l'air tellement idiot... et je m'arrache les cheveux!

Merci de votre aide

[BENNASR]

Bonsoir à tous
as tu essayer de formater la date avant d'envoyer à ton fiche excel? :
cellule_cible.value=Cdate (valeur dans user form)

[joe.levrai]

Bonjour,

ils diffèrent sur un point bien précis : VBA est format anglais quoi qu'il arrive / Excel est format "Standard du PC, paramètres régionaux"


Donc quand tu fait un Ctrl+V, tu restes dans le même format
Quand tu passes par du VBA et que ton Excel est "français", y'a mélange des genres et conversions fâcheuses


En général, un Cdate() bien placé suffit
Mais il est préférable de travailler avec le numéro de série de la date (Format Single ça passe bien) et dans Excel de formater la cellule au format souhaité
Voir d'ajouter un traitement par DateSerial()

Les dates, c'est essentiel de bien maîtriser la mécanique si on veut pas se prendre les pieds dans le tapis :
Comprendre et gérer les dates sous Excel et en VBA

[yeti66]

Bonjour,

un grand merci pour vos réponses.
J'ai donc fait divers essais avec CDate, avec DateSerial et j'ai relu la doc sur les formats de date dans excel.

Je n'y arrive pas.

J'ai ressorti un vieux fichier de dev d'il y a un mois. Le code Activesheet.paste n'a pas changé.... et la copie se fait sans inversion jj.mm !!
J'ai regardé les options d'excel et il n'y pas de changement.
Je n'ai pas basculé d'une version française vers une anglaise ou vice-versa. Je n'ai travaillé qu'avec la version anglaise 2016. Mais la piste m'a bien plu!!

Il y a donc un bout de code quelque part qui modifie le comportement... Mais j'ai BEAUCOUP bossé depuis un mois et je n'ai aucune idée. Il faut dire que je n'ai pas de base de programmation et que je "travaille" par tâtonnement avec des bouts de code que je trouve sur le net.
Il va falloir que je cherche.
Si je trouve, il va sans dire que je vous donnerai le fin mot!

Merci encore.

[yeti66]

J'ai un bout de piste mais qui m'enfonce...

J'ai repris de vieux fichiers:
Si je fais

Code :

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

1
2
3
Sub Macro2()
ActiveSheet.Paste
End Sub

le format est celui que je souhaite importer: jj.mm.aaaa comme dans le formulaire copié.

MAIS si je fais d'abord ctrl+v pour voir ce que cela donne, le ctrl+v donne: jj.mm.aaaa et juste après le Activesheet.paste me colle mm.jj.aaaa.

Si je teste d'abord Activesheet.paste le format est jj.mm.aaaa, ça "marche"...
puis si je fais une seule fois le test avec ctrl+v, tous les prochains Activesheet.paste sont au format mm.jj.aaaa.

Y de quoi se perdre...

ça me rappelle les shadoks:
"Ce n'est qu'en essayant continuellement que l'on finit par réussir....
En d'autres termes... Plus ça rate et plus on a de chances que ça marche..."