Importer un fichier dont le nom est une date
Bonjour tout le monde
Voila j'ai une macro pour importer un fichier texte et l'autre c'est l'entete pour importer un fichier dont le nom est la date du jour
ce que je voudrais c'est incorporer la deuxieme a la premiere mais pas moyen, je n'y arrive pas.
quelqu'un saurait il? (fichier a importer: 20090406.log ( today-1)
Sub OuvertureFichier1()
Dim Val_Ligne As String
Dim Compteur As Long
Dim Compteur2 As Byte
On Error GoTo Ferme
Open "C:\Users\maguetlolo\Desktop\IMPORT!!!!\aaa.log" For Input As #1
Compteur = 0
Compteur2 = 1
Do While Not EOF(1)
Line Input #1, Val_Ligne
Sheets("mfrA1" & Compteur2).Range("A1").Offset(Compteur, 0).Value = Val_Ligne
Compteur = Compteur + 1
If Compteur = 65536 Then
Compteur = 0
Compteur2 = Compteur2 + 1
End If
Loop
Ferme:
Close #1
End Sub
**************
Sub import()
nom_fichier = WorksheetFunction.Text(Date, "yyyyddmm.txt")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\maguetlolo\Desktop\IMPORT!!!!\nom_fichier", Destination:=Range("A1"))
End With
End Sub cordialement
Bonjour
Il est facile de codé une date
par exemple (Jour-1) :
Fichier = Year(Date - 1) & Right("0" & Month(Date - 1), 2) & Right("0" & Day(Date - 1), 2) & ".log"
Cordialement
Bonjour
Demed, merci pour ta reponse
facile?, si tu le dis
a part cela, ta phrase, je la mets ou dans ma macro?
cordialement
Tu peux remplacer la ligne "Open..."
par celle-ci
Open "C:\Users\maguetlolo\Desktop\IMPORT!!!!\" & _
Year(Date - 1) & Right("0" & Month(Date - 1), 2) & Right("0" & Day(Date - 1), 2) & ".log" _
For Input As #1
Espérant avoir répondu à a question.
Cordialement
re
ok, mais parcontre il me met fichier introuvable
cordialement
Dans le cas présent la macro tente d'ouvrir le fichier
"20090406.log"
qui doit exister dans le répertoire
"C:\Users\maguetlolo\Desktop\IMPORT!!!!\"
A vérifier le nom du répertoire contenant les fichiers et la présence du fichier
Cordialement
re
voici les propriete de mon fichier (le chemin n'est pas le meme mais j'avais fait le changement avant)
https://www.excel-pratique.com/~files/doc/fichier_log.xls
cordialement