Discussion :

[meuah]

Bonjour,

c'est encore et toujours moi!
Discussion de la soirée : comment récupérer le nom d'un fichier, le découper et insérer les données dans ma feuille?
Je récupère un fichier JJMMAAAA.cmp avec le code suivant (macro enregistrée)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub chargementFichier(nomFich As String, chemin As String)
'
' chargementFichier Macro
'
Dim wsb As Worksheet
Dim wbb As Workbook
 
    Set wbb = ThisWorkbook
    Set wsb = wbb.Sheets.Add(Before:=Sheets(1))
    With wbb.ActiveSheet.QueryTables.Add(Connection:="TEXT;" & chemin & "\" & nomFich, _
        Destination:=Range("A1"))
        .Name = nomFich
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 5, 5, 6, 6, 10, 6, 7, 10, 6, 5, 6, 6, 10, 6, 6)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

je sais pas si vous en avez besoin mais on ne sait jamais

Comment faire pour récupérer le nom du fichier, récupérer le JJ, le MM et le AAAA et les placer dans 3 cases Excel différentes?
Merci d'avance

Voici ce que j'ai déjà fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AjoutDate()
'
' AjoutDate Macro
' Macro enregistrée le 22/05/2008 par eferez
'
Dim nomFich As String
'
    Columns("A:A").Select
    Range("A1").Activate
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Application.Goto Reference:="chargementFichier"
    nomFich = Application.Name
    Range("A1") = Left(nomFich, 2)
    Range("B1") = Right(Left(nomFich, 4), 2)
    Range("C1") = Right(Left(nomFich, 8), 4)
    Range("A1:C1").Select
    Selection.Copy
    Range("A2:C1512").Select
    ActiveSheet.Paste
End Sub

mais dans A1, B1 et C1, je récupère Mi Cr osof
Je vous laisse deviner la suite lool
je pense que

Code :

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

1
2
    Application.Goto Reference:="chargementFichier"
    nomFich = Application.Name

n'est pas bon, qui pourrait me le corriger?

[meuah]

une heure pour trouver mais ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub AjoutDate(nomFich As String)
'
' AjoutDate Macro
'
 
    Columns("A:A").Select
    Range("A1").Activate
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Range("C1") = Left(nomFich, 2)
    Range("B1") = Right(Left(nomFich, 4), 2)
    Range("A1") = Right(Left(nomFich, 8), 4)
    Range("A1:C1").Select
    Selection.Copy
    Range("A2:C1470").Select
    ActiveSheet.Paste
End Sub

Merci moi-même

[schkrumble]

je pense que

Code :

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

1
2
    Application.Goto Reference:="chargementFichier"
    nomFich = Application.Name

n'est pas bon, qui pourrait me le corriger?

Ne suffit-il pas de remplacer Application.Name par ActiveWorkbook.Name ?