Mettre dans une cellule le nom du dossier source

Bonjour,

J'ai plusieurs fichiers identique dans des dossiers differents ex: nommé poire et je voudrais au lancement du fichier que le nom poire se marque dans la cellule C12.

Ex: dossier pomme valeur de la cellule C12 = pomme.....

Bonjour truc33 ,le forum,

Un essai....

Private Sub Workbook_Open()
  Dim chemin As String, tb, Nom As String
  chemin = ActiveWorkbook.Path
      tb = Split(chemin, "\")
     Nom = tb(UBound(tb))
  With Sheets("Feuil1") '....nom de la feuille à adapter
  .Range("C12") = Nom
  End With
End Sub

Code à placer dans le module ThisWorkbook....avec l'évènement Open

Cordialement,

Bonjour

Bonjour à tous

Une variante.

Bye !

J'ai un message d'erreur au lancement

erreur de compilation

Merci Gmb je voudrais pas ouvrir les fichiers c'est juste au lancement de coller les nom du dossier en C12 de la feuille

ça fonctionne merci j'ai remplacé

'With Sheets("general")
' Range("C12") = Nom

Worksheets("general").Range("C12").Value = Nom

Merci

Re,

Si tu utilises With Sheets("general"), il faut mettre un point devant le Range......

Private Sub Workbook_Open()
  Dim chemin As String, tb, Nom As String
  chemin = ActiveWorkbook.Path
      tb = Split(chemin, "\")
     Nom = tb(UBound(tb))
  With Sheets("general") '....nom de la feuille à adapter
  .Range("C12") = Nom
  End With
End Sub

Cordialement,