SOS renommer feuille excel

tyouba -  
UsulArrakis Messages postés 7683 Statut Contributeur -
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...
A voir également:

2 réponses

Raymond PENTIER Messages postés 71866 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
"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 ...
0
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
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å
0
UsulArrakis Messages postés 7683 Statut Contributeur 3 194
 
bonjour Myta
pour compléter ta signature je dirai que c'est Moïse qui a reçu le 1er ipad
;-)
0