Nom de feuille à partir d'une variable

Version imprimable

04/09/2008, 11h37
Iokanaan

Nom de feuille à partir d'une variable

Bonjour.

J'importe un grand nombre de fichiers textes dans les différentes feuilles d'un classeur (je les crée au fur et à mesure).
Le nom du fichier texte "courant" se trouve dans la variable ".FoundFiles(i)".

J'aurai voulu que le nom de la feuille courante soit le contenu de cette variable, sans le ".txt" si possible.
Par exemple si mon fichier texte se nomme "581_1_11.txt", je voudrai que la feuille se nomme 581_1_11.

J'ai fais pas mal de recherches infructueuses avant de poster :?

Merci d'avance pour vos réponses.
04/09/2008, 11h48
JackOuYA
Bonjour,

s'il s'agit juste d'éxtraire le nom tu peu utilise les fonctions Left et InStr par exemple:
Code:

1 2 3 4 Dim stYa As String stYa = "581_1_11.txt" ActiveSheet.Name = Left(stYa, InStr(1, stYa, ".") - 1)

En fait voici mon code :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub Import()
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error Resume Next
    Set oFolderItem = oFolder.Items.Item
    With Application.FileSearch
        .NewSearch
        .LookIn = oFolderItem.Path
        .Filename = "*.txt"
        .SearchSubFolders = False
        .Execute
        For i = 1 To .FoundFiles.Count
            ActiveWorkbook.Worksheets.Add
            With ActiveSheet.QueryTables.Add(Connection:= _
                    "TEXT;" & .FoundFiles(i) _
                    , Destination:=Range("A1"))
 
                ' À partir d'ici (début)
                Dim stYa As String
                stYa = "581_1_11.txt"
                ActiveSheet.Name = Left(stYa, InStr(1, stYa, ".") - 1)
                ' jusqu'ici (fin)
 
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = 437
                .TextFileStartRow = 4
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = True
                .TextFileTabDelimiter = False
                .TextFileSemicolonDelimiter = False
                .TextFileCommaDelimiter = False
                .TextFileSpaceDelimiter = True
                .TextFileColumnDataTypes = Array(9, 1, 1)
                .TextFileDecimalSeparator = "."
                .TextFileTrailingMinusNumbers = True
                .Refresh BackgroundQuery:=False
            End With
        Next i
    End With
End Sub

J'ai inséré ton code (partie en gras) pour tester, mais ça ne fonctionne pas.

En outre, comment faire pour que "stTa" prenne la valeur de ".FoundFiles(i)" ?

Merci.

04/09/2008, 14h07
JackOuYA

Citation:

Envoyé par Iokanaan

...
En outre, comment faire pour que "stTa" prenne la valeur de ".FoundFiles(i)" ?

Merci.

?

Code:

stYa = .FoundFiles(i)
04/09/2008, 15h02
ouskel'n'or
Citation:

Envoyé par JackOuYA

?

Code:

stYa = .FoundFiles(i)

Si stYa = .FoundFiles(i), ça te donne le nom du fichier avec le chemin. Donc ton left est à changer. Mais comme tu ouvres les fichierS, Activesheet.name te donne son nom.txt.
Tu peux tester ça qui te donne le nom du fichier texte sans extension
Code:

1 2 NomCourt = StrReverse(Split(StrReverse(.FoundFiles(i)), "\")(0)) NomCourt = Left(NomCourt, Len(NomCourt) - 4)
Si tu ouvres ton fichier, il y a plus simple une fois ouvert :

Code:

Activesheet.name = Left(ActiveWorkbook.name, len(ActiveWorkbook.name) - 4)
04/09/2008, 16h44
JackOuYA

IoKanann avait oublié de me rappeler cela on peu aussi écrire :

Code:

stYa = dir(.FoundFiles(i))