Récupération nom fichier Excel
Bonjour à tous,
Voilà, je voudrais connaitre la fonction qui me permettrait de récupérer des valeurs variables dans le nom d'un fichier Excel.
Par exemple, je veut récupérer les dates qui s'affichent dans le nom fichier suivant :
Etat_lala, du 01_01_2008 au 15_01_2008.xls
Je veux récupérer les dates afin de les coller dans un tableau où sera affectée ma macro.
Je vous remercie par avance de l'aide que vous pourrez me fournir.
Cordialement.
Bonjour, bienvenu sur le Forum
Une petite précision
Ce fichier "Etat_lala, du 01_01_2008 au 15_01_2008.xls" est-il celui sur lequel tu travailles ? Ou bien tu as une liste de noms de fichiers dont tu veux extraire les dates ?
Ou s'agit-il d'autre chose?
A te lire
Cordialement
Je travaille sur un autre fichier où il y a aura la macro qui importera les dates du fichier Etat_lala, du 01_01_2008 au 15_01_2008.xls
Bonsoir
Par formule, mes compétances le permettaient
https://www.excel-pratique.com/~files/doc/LV1J5Dates.xls
Mais par Macro, je ne suis d'aucune utilité.
Cordialement
En fait, ce n'est pas ça.
Je travaille sur un fichier qui s'appelle par exemple : "fichier_principal.xls"
Dessus j'ai une macro en vba (d'où mon besoin de connaitre la fonction) qui va chercher le fichier "Etat_lala, du 01_01_2008 au 15_01_2008.xls" et qui extrait avant de l'ouvrir les dates qui y sont notés.
La fonction extrait les dates qu'elles mets dans le "fichier_principal"
Merci tout de meme de ton aide. Je garde ton fichier si un jour j'en ai besoin
Bonsoir
Une méthode que j’utilise :
Dans la cellule concernée entrer la formule en faisant référence au classeur voulu
Sub Macro1()
Dim CheminDuFichierALire As String
Dim NomDuFichierALire As String
Dim NomDeLaFeuilleALire As String
Dim CelluleALire As String
‘Inutile bien sur de rappeler que l’ensemble des informations se doivent d’exister
' Les données seraient là ! Fichier et son chemin
' C:\Documents and Settings\Alain\Mes documents
' dans le classeur :Classeur2.xls
' dans la feuille : Feuil1
' En cellule B5
CheminDuFichierALire = "C:\Documents and Settings\Alain\Mes documents"
NomDuFichierALire = "Classeur2.xls"
NomDeLaFeuilleALire = "Feuil1"
CelluleALire = "c6"
Range("B10").Select
ActiveCell.Formula = _
"='" & CheminDuFichierALire & "\[" & NomDuFichierALire & "]" & NomDeLaFeuilleALire & "'!" & CelluleALire
'Une instruction tel que
' ActiveWorkbook.UpdateLink Name:= _
"C:\Documents and Settings\Alain\Mes documents\Classeur2.xls", Type:=xlExcelLinks
'serait judicieuse en fin de macro
End Sub
A adapter bien sur, et ainsi les fichiers sont lies, l’ouverture effective (réelle devrais-je dire) passe inaperçue, car aussitôt ouvert, aussitôt fermé !
Cordialement
Alain
- Messages
- 9'245
- Excel
- Vista Office 2007FR
- Inscrit
- 08/12/2007
- Emploi
- retraité Sce.Méthodes
bonjour;
une ficelle de Mytå qui m'a bien servi.
https://www.excel-pratique.com/forum/viewtopic.php?t=3608
amicalement
Claude.
arf, vous voulez absolument ouvrir le fichier !
Moi je ne veux pas ouvrir le fichier, je veux juste récupérer les dates qui composent "Etat_lala, du 01_01_2008 au 15_01_2008.xls" et les mettre dans mon fichier "fichier_principal.xls" dans des cellules que je définirai
Ok pour le 1er bout de code :
Sub Macro1()
Dim CheminDuFichierALire As String
Dim NomDuFichierALire As String
Dim NomDeLaFeuilleALire As String
Dim CelluleALire As String
CheminDuFichierALire = "C:\Mes Documents\"
NomDuFichierALire = "Etat_lala, du 01_01_2008 au 15_01_2008.xls"
Après comment récupérer les 2 dates ?
Il me faudrait une fonction lecture qui récupère 01_01_2008 et qui le met dans mon "fichier_principal.xls" sous la forme 01/01/2008
Pareil pour la 2eme date ...
Si vous avez des idées, elles seraient les biens venues. Je coince là
Salut,
Je ai utilisé un troisième outil de réparation du parti afin de réparer l'outil de réparation Excel. Avec l'aide de cette utilisateur de l'outil peut facilement réparer le fichier corrompu, endommagé ou inaccessible excel.