C C4rtoons XLDnaute Junior 3 Juin 2012 #1 Bonjour à tous! Je suis à la recherche d'une macro qui me permette d'afficher le nom du fichier en A1. Je connaissais pour l'afficher dans une cellule sans passer par VBA: Code: =STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("nomfichier";A1))*{-1;1})-1) En revanche, je cherche à réaliser une macro qui va reprendre le nom du fichier pour s’exécuter, d'ou le besoin d'afficher le nom du fichier en A1/ Pourquoi en macro? Car j'ai 590 fichiers à faire, une macro sera nettement plus simple pour moi Merci de votre aide C4rtoons
Bonjour à tous! Je suis à la recherche d'une macro qui me permette d'afficher le nom du fichier en A1. Je connaissais pour l'afficher dans une cellule sans passer par VBA: Code: =STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("nomfichier";A1))*{-1;1})-1) En revanche, je cherche à réaliser une macro qui va reprendre le nom du fichier pour s’exécuter, d'ou le besoin d'afficher le nom du fichier en A1/ Pourquoi en macro? Car j'ai 590 fichiers à faire, une macro sera nettement plus simple pour moi Merci de votre aide C4rtoons
C C4rtoons XLDnaute Junior 3 Juin 2012 #2 Re : VBA: A1 = nom du fichier Et lorsque je fais (tout bettement): Code: Worksheets("client").Range("A1").Formulalocal = "=STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("nomfichier";A1))*{-1;1})-1)" Fichier = Sheets("client").Range("A1") Bas, ca ne marche pas :s Vote positif 0 Vote négatif
Re : VBA: A1 = nom du fichier Et lorsque je fais (tout bettement): Code: Worksheets("client").Range("A1").Formulalocal = "=STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("nomfichier";A1))*{-1;1})-1)" Fichier = Sheets("client").Range("A1") Bas, ca ne marche pas :s
Robert XLDnaute Barbatruc Repose en paix 3 Juin 2012 #3 Re : VBA: A1 = nom du fichier Bonjour C4rtoons, bonjour le forum, Peut-être comme ça : Code: Activesheet.Range("A1").Value = ThisWorkbook.Name Mais pourquoi l'afficher ! Tu peux le récupérer dans ta macro avec ce même code... Vote positif 0 Vote négatif
Re : VBA: A1 = nom du fichier Bonjour C4rtoons, bonjour le forum, Peut-être comme ça : Code: Activesheet.Range("A1").Value = ThisWorkbook.Name Mais pourquoi l'afficher ! Tu peux le récupérer dans ta macro avec ce même code...
C C4rtoons XLDnaute Junior 3 Juin 2012 #4 Re : VBA: A1 = nom du fichier Réponse: Code: Worksheets("client").Range("A1") = ActiveWorkbook.Name Vote positif 0 Vote négatif
Robert XLDnaute Barbatruc Repose en paix 3 Juin 2012 #5 Re : VBA: A1 = nom du fichier Bonjour C4rtoons, bonjour le forum, Bravo ! T'as trouvé tout seul... Vote positif 0 Vote négatif