Macro donnant le nom de mes fichiers excel à mes feuilles excel

RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, ma macro permet pour l'instant de prendre mes fichiers excel qui sont dans un dossier, et pour chaque fichiers, une feuille correspondante se créée. Je souhaiterais renommer chaque nouvelle feuille créée par le nom du fichier excel correspondant. Quelqu'un pourrait-il m'aider svp? :)

Ci-dessous ma macro actuelle:

Sub Macro1()

' Touche de raccourci du clavier: Ctrl+m

Dim dossier As String
dossier = "F:\Excel\Dossier macro\Nouveau dossier\"
Fichier = Dir(dossier & "*.*")
ActiveWorkbook.Worksheets.Add

While Fichier <> ""
Debug.Print dossier & Fichier

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & dossier & Fichier, Destination:=Range("$A1048576").End(xlUp).Offset(1, 0))
.Name = Fichier
.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 = 23
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Fichier = Dir
Wend
End Sub
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

prendre mes fichiers excel Z'etes sure de votre fait, avec une connexion en text ??????????????? 

Sub Macro1()
    ' Touche de raccourci du clavier: Ctrl+m
    Dim dossier As String
    
    dossier = "F:\Excel\Dossier macro\Nouveau dossier\"
    Fichier = Dir(dossier & "*.*")
    While Fichier <> ""
        ActiveWorkbook.Worksheets.Add
        ActiveSheet.Name = Fichier
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & dossier & Fichier, Destination:=Range("$A1048576").End(xlUp).Offset(1, 0))
            .Name = Fichier
            .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 = 23
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = True
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = True
            .TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        Fichier = Dir
    Wend
End Sub
0
RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Oui, en fait j'ai un dossier où j'ai mes fichiers excel, et dans chaque fichiers j'ai mes différentes données. Et j'aimerais que chaque fichiers, ou plutôt ce qu'il a dedans (les données) puissent se classer un par un dans une différentes feuille de mon classeur
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

un dossier où j'ai mes fichiers excel quel sorte de fichier excel, des .xls ou xlsx ou des .CSV, car le code que vous voulez utiliser est fait pour des fichiers .txt ou .csv !
0
RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Il peut également prendre les fichiers .s2p, ce que j'utilise :)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Si vous le dites, mais je repete que le code que vous voulez utiliser ne peut convenir QUE pour des fichiers Texte ou csv, PAS d'autres formats
0
RomanJ Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
D'accord, mais il marche quand même avec mes fichiers s2p!

Sauriez-vous comment faire pour la question que je posais de base? Car j'en ai aucune idées :/

Merci pour vos réponses dans tous les cas :)
0