Récupération de nom de fichier et d'onglet

Bonjour,

Tout d'abord bonne année et meilleurs vœux à vous

J'ai 2 problématiques à vous soumettre :

1/ J'aimerai récupérer dans le nom d'un fichier excel la date qui s'y trouve et la coller en mettant J-1 dans le même classeur. Savez-vous comment faire ? Dans le fichier en pj il s'agit de 06062018 et j'aimerai mettre 05/06/2018.

2/ Toujours dans ce même classeur, j'aimerai récupérer le nom de l'onglet pour pouvoir l'utiliser comme variable après. Est-ce que vous avez une idée ? Dans le fichier en pj il s'agit de PGM_ ITIM SURVEILLANCE FEUX 210

Merci d'avance.

bonjour,

une proposition

Sub aargh()
    pgmitm = "PGM_ ITIM SURVEILLANCE FEUX "
    nomchemin = ThisWorkbook.Path & "\"

    datewb = Replace(Replace(ThisWorkbook.Name, pgmitm, ""), ".xlsm", "")
    datewb = DateSerial(Right(datewb, 4), Mid(datewb, 3, 2), Left(datewb, 2)) - 1

    nouveaunomclasseur = nomchemin & pgmitm & Format(datewb, "ddmmyyyy") & ".xlsm"
    nomonglet = ActiveSheet.Name

    MsgBox nouveaunomclasseur & vbCrLf & nomonglet
End Sub

Bonjour,

formule en A1 pour la date :

=DATE(DROITE(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1);1)-13;8);4);STXT(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1);1)-13;8);3;2);GAUCHE(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1);1)-13;8);2))-1

Formule en A2 pour le nom de l'onglet :

=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1);1)+1;99)

Enfin si j'ai tout bien compris

Bonjour h2so4 !

@ bientôt

LouReeD

Merci beaucoup à vous 2 ça marche nickel.

Juste une dernière question, j'aimerai remplacer datewb = Replace(Replace(thisworkbook.Name, pgmitim, ""), ".xlsm", "") par datewb = Replace(Replace(fichier.Name, pgmitim, ""), ".xlsm", "") où "fichier" est une variable qui correspond au nom de fichier. Mais je ne trouve pas la bonne syntaxe.

Pouvez-vous m'aider svp ?

Merci

bonjour,

pas sur d'avoir bien compris, mais essaie ceci

datewb = Replace(Replace(fichier, pgmitim, ""), ".xlsm", "")

C'est exactement ça !! Merci h2so4 et LouReeD