VBA - Convertir une date "26/04/2016" en "26-04-2016"

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
thibaut3111
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 avril 2016
Version d'Excel : 2010 FR

Message par thibaut3111 » 26 avril 2016, 10:02

Bonjour à tous,

Je cherche à extraire des valeurs date afin de les affecter pour nomer de nouvelles feuilles sur le fichier.
MAIS le problème n'est pas la !! (malheureusement :D )

En effet j'ai découvert qu'il y avait des caractères que excel n'acceptait pour "ActiveSheet.Name = nomvariable" une variable avec le format date "26/04/2016"

Ma grande question est de savoir comment convertir cette variable sans être obligé de changer les formats du tableau principal en texte (...Je perd toute l'utilitée des formats de cellule !)

Je fais donc appel à vos connaissance pour finaliser mon projet ;)
Cordialement
Thibaut :)
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'057
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 10:14

Bonjour,
A essayer ce code :
Range("A1").NumberFormat = "dd-mm-yyyy"
Cdlt,
Raja
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'661
Appréciations reçues : 69
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 26 avril 2016, 10:26

Bonjour,

A tester
ActiveSheet.Name = Format(Sheets("mimi").Range("A1"), "dd-mm-yyyy")
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
t
thibaut3111
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 avril 2016
Version d'Excel : 2010 FR

Message par thibaut3111 » 26 avril 2016, 10:28

Bonjour et merci Raja,

Je m'appercois que mon image explicative ne s'est pas jointe au fichier.

Je n'ai pas reussis avec le range, mais peut etre que je le place mal dans mon code...
codevba.png
Cordialement
Thibaut :)
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'057
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 10:33

Re,
Ce n'est pas l'image qu'on a besoin, c'est le fichier avec la macro.

Re,
Non, il faut plutôt changer ce code car le caractère "/" est interdit pour le nom des onglets :
ActiveSheet.Name = Application.Text(code, "dd-mm-yyyy")
Modifié en dernier par Raja le 26 avril 2016, 10:47, modifié 1 fois.
Cdlt,
Raja
t
thibaut3111
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 avril 2016
Version d'Excel : 2010 FR

Message par thibaut3111 » 26 avril 2016, 10:47

Pas de soucis, je pensais que le code suffirait.

Voici le fichier:
exemple_forum_excel.xlsm
(26.22 Kio) Téléchargé 26 fois
Cordialement
Thibaut :)
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'057
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 10:48

Re,
Regarde mon message précédent pour la solution à tester.
Cdlt,
Raja
t
thibaut3111
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 avril 2016
Version d'Excel : 2010 FR

Message par thibaut3111 » 26 avril 2016, 11:30

" Non, il faut plutôt changer ce code car le caractère "/" est interdit pour le nom des onglets :
ActiveSheet.Name = Application.Text(code, "dd-mm-yyyy")
[/quote] "

"
ActiveSheet.Name = Format(code, "dd-mm-yyyy")
[/quote] "

Merci M12 et Raga pour vous propositions, mais j'ai toujours ce même message d'erreur '"erreur 1004" qui me dit que le format n'est pas bon...soit que ma date n'est toujours pas modifiée (J'ai pourtant essayé les 2 techniques :D )
Cordialement
Thibaut :)
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'057
Appréciation reçue : 1
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 11:39

Re,
Quand je teste ton fichier, je n'ai pas de message d'erreur même sans le modifier.
Cdlt,
Raja
t
thibaut3111
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 22 avril 2016
Version d'Excel : 2010 FR

Message par thibaut3111 » 26 avril 2016, 11:43

Re Raja,
C'est le problème que j'avais aussi la dernière fois, sur certains PC il fonctionne sans problèmes, change automatiquement la date mais de mon côté l'erreur persiste... Pourtant je suis sur la version d'Excel 2010..
C'est pour cela que je cherche une maniere applicable sur toute surface :)
Cordialement
Thibaut :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message