EDIT : ok on a le langage, voir question au 3ème post
====================================
Voilà pour le taf j’ai une macro qu’on m’a refilé, elle fait du requêtage de masse sur un système bien a nous.
J’ai réussi à faire quelques modifications basiques dedans, s’agissant d’une macro qui ouvre des écran spécifiques de notre outil avant de choper des blocs de caractères à des coordonnées spécifiques
Mais là j’ai la date “à l’envers” : 06 08 16 et je voudrais la convertir, sauf que je ne sais même pas en quoi c’est programmé ce merdier… voilà quelques lignes de code si ca vous inspire =>
Option Explicit
' Déclaration des procédures et fonctions internes
' ------------------------------------------------
Declare Sub ToucheFonction(Ecran As Object, Touche As String)
Declare Function Cle_Veh(Chaine As String) As String
Declare Function Pf6(Ev As String) As String
Declare Function Fmt(Chaine As String) As String
Declare Function VFmt(Chaine As String) As String
'-----------------------------------------------------------------------------
Sub Main
'-----------------------------------------------------------------------------
Dim System As Object
Dim Session as Object
Dim Ecran As Object
Dim ev as string
Dim Repertoire As String ' Répertoire d'accueil fichier(s) résultat
If choix.MADC=1 then initialisation$=initialisation$+"VE1_PF07;DATE MADC;15;27;8"+ Chr$(13) + Chr$(10)
Ca me récupère une chaine de caractères de 8 caractères de long genre "06 08 16" qui est en fait une date. Je voudrais convertir ca en : 06/08/06, je fais ca comment SVP ?
NERf, je pige keudal aux 813 lignes de code que j’ai sous les yeux :ane:
Enfin pas grand chose.
Je trouve pas où faire la modification pour gérer votre rajout en revanche Je pensais pouvoir l’intégrer directement dans la ligne postée plus haut, mais manifestement ca marche po
Private Function FormatDate(ByVal curdate As String) As String
Dim day As Integer, month As Integer, year As Integer
year = Val(Mid(curdate, 1, 2))
month = Val(Mid(curdate, 4, 2))
day = Val(Mid(curdate, 7, 2))
FormatDate = DateSerial(year, month, day)
End Function
Private Sub Form_Load()
Dim curdate As String
curdate = "06 08 16"
Debug.Print FormatDate(curdate)
End Sub