SOS renommer feuille excel

Question

Bonjour, 



j'arrive pas a renommer les feuilles de fichiers
excel.

s'il vous plait je veut que chaque feuille prend
automatiquement le nom de fichier.

N.B: chaque fichier comporte une seule feuille.


j'ai une centaine des fichiers.


merci bien...

Raymond PENTIER · Answer

"je veut que chaque feuille prend automatiquement le nom de fichier" 
C'est quoi, cette nouvelle invention ? quel est l'intérêt d'une telle manipulation ? 
si tu expliques ton problème, on pourra peut-être te proposer une solution bien meilleure que de donner à une feuille le nom de son fichier, opération qu'on ne peut faire qu'avec VBA, et fichier par fichier, de toutes façons ...

Mytå · Answer

Salut le forum

Un bout de code pour sélectionner une Liste de Fichiers

Sub ChoisirFichiers()
    Dim Fichiers As Variant
    Dim i As Integer

    Fichiers = Application.GetOpenFilename _
               ("Fichiers Excel (*.xls;*.xlsx;*.xslm), *.xls;*.xlsx;*.xslm", , , , True)

    If IsArray(Fichiers) Then
        For i = 1 To UBound(Fichiers)
            MsgBox Fichiers(i)
        Next
    End If

End Sub

Mytå

SOS renommer feuille excel

2 réponses

Newsletters