Format d'une date

Bonjour,

Question bête

Je souhaiterai savoir si il est possible de changer le format d'une date de 25/11/2020 en 2020-11-25

Le fichier au clique de la macro déclenche une requête sur un site, dans la requête se trouve la date du jour

La date du jour se trouve dans une cellule

La chose est que le serveur fonctionne sur le mode américain c'est a dire avec la date : 2020-11-25 avec les / il revoit une erreur

J'ai essayé des solutions avec des fonctions, mais la date revient en / dans la requête comme si execel modifier juste l'affichage, mais pas en dur

J'ai essayé le format perso, mais au clique de la macro la date se met avec des / dans la requête aussi

J'ai essayé en VBA même souci

Je n'ai hélas pas de fichier a vous proposer, les datas sont confidentielle

Le fichier fonctionne à ce jour en changeant le format de date par windows directement

Mais pour ma connaissance perso et amélioré le fichier je souhaite changer ça, ce qui éviterai de dire à toute une équipe de changer le format de date de leur PC

Si une bonne âme passe par la :)

Bonjour,

Je n'ai hélas pas de fichier a vous proposer, les datas sont confidentielle

Dans ce cas place la partie de la macro qui correspond à l'attribution de la date

Je peux pour le moment donner que ça :

Sub copie_datas()

    Application.ScreenUpdating = False

    Dim date_du_mois As String
    Dim ws As Worksheet

    ' Requête

    date_du_mois = Sheets(1).Range("C2") 'mois en cours
    Range("L31") = "Semaine: " + Format(Now, "WW") 'N° de la semaine en cours
    Range("D24") = Format(Now, "yyyy-mm-dd")

    If date_du_mois = "" Then MsgBox "Veuillez remplir le mois en cours"

    For Each ws In Sheets
        If ws.Name = date_du_mois Then
            Sheets(1).Activate
            Range("B4").CurrentRegion.Select
            Selection.Copy
            ws.Select
            Range("B2") = "Datas du mois en cours"
            Range("B32000").Select
            Selection.End(xlUp).Select
            Selection.Offset(1, 0).Select
            Selection.PasteSpecial
        End If
    Next ws

    Sheets(1).Activate
    Range("A1").Select

    ' Envoie du mail

    ' Effacement des datas

    MsgBox "Succès !"

    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub

Sinon je vais voir pour modifier le fichier qui va prendre quelques temps

Re,

Remplace cette partie

date_du_mois = Sheets(1).Range("C2") 'mois en cours
    Range("L31") = "Semaine: " + Format(Now, "WW") 'N° de la semaine en cours
    Range("D24") = Now
    Range("D24").NumberFormat = "yyyy-mm-dd"

S'il te faut l'heure en plus

 Range("D24").NumberFormat = "yyyy-mm-dd hh:mm"

Merci pour ton aide, j'avais essayé cette méthode en passant par numberformat, mais ta méthode est nouvelle :), mais sa retourne une erreur ^^, comme ci excel ne prenait pas la cellule en elle même mais ce qui est marqué dans la bar de formule

Re,

Tu n'avais pas vu, j'avais rajouté

S'il te faut l'heure en plus

 Range("D24").NumberFormat = "yyyy-mm-dd hh:mm:ss"

L'heure n'est pas un point important car l'heure est gérer par une autres cellule et peut être changer pour avoir des tranches horaire spécifique

C'est juste cette date qui m'embête, si je pouvais éviter de dire à 50 personnes de changer le format date en passant par windows car la sa marche sur mon pc en passant par la

Souci résolu j'ai opté pour la concaténation de format(now, "yyyy-mm-dd") à l'intérieur de la requête

Cordialement,