Discussion :

[taha-ba]

Salut,

j'ai besoin de votre aide sur un soucis que j'ai cherché dedans mais j'ai rien trouvé comme solution.

Mon problème est que j'ai un dossier sous le format suivante aaaa-mm-JJ
sur mon code VBA je dois appeler des fichiers qui se trouvent sur le dossier sous le format ci-dessus, pour ça j'ai utiliser le chemin

Code :

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

"\\Desktop\Document\" & ThisWorkbook.Worksheets("accueil").Range("M9") & ThisWorkbook.Worksheets("accueil").Range("M7"))

Range("M9") est la cellule ou j'ai mis mon Date Picker ou je reçoit la date sous le format : jj-mm-aaaa. j'ai essayé de changer le format de la date pour qu'il soit convenable ave cle fomat de la date de dossier mais ceci n'est pas marché puisque la syntaxe de date n'est pas changé.


Merci d'avance pour votre Aide

[jurassic pork]

Hello,
Quelle version d'Excel utilises-tu ? 32 ou 64 bits ? Quel contrôle Date picker utilises-tu ?
Sinon tu peux essayer de passer par une variable intermédiaire que l'on transforme suivant le format voulu.
Exemple :

Code :

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

1
2
3
4
5
6
7
Sub GenNomFichier()
Dim NomFichier As String
Dim DateStr As String
DateStr = ThisWorkbook.Worksheets("accueil").Range("M9")
DateStr = Format(DateStr, "DD.MM.YY")
NomFichier = "\\Desktop\Document\" & DateStr & ThisWorkbook.Worksheets("accueil").Range("M7")
End Sub

Ami calmant, J.P