En masse recuperer dans cellule la partie du titre du fichier

A

anthooooony

XLDnaute Occasionnel
Bonjour à toutes et à tous,

J'automatise certains travaux que je reçois quotidiennement. Cependant, sur un rapport je n'ai pas la date de l'extraction ce qui pour un suivi est très embêtant.

Je voulais savoir s'il était possible de mettre en colonne D pour toutes les lignes présentes en A les 10 derniers chiffres(LA DATE) qui se trouve dans le titre de CHAQUE fichier qui se trouve dans un répertoire?

COLONNE A COLONNE B COLONNE C COLONNE D
Classe de documents Total factures % exportées auto
Factures de FRANCE SAS (52797) 1318 92

Suivi Top 50 - production 10 derniers jours (Avec commande) 27-11-2012.xls


Merci d'avance de votre aide


Anthooooony
 
Trier par date Trier par votes
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Bonjour anthooooony,

Pas sûr d'avoir tout compris mais voyez le fichier joint avec cette formule en D2 :

Code: 
=REPT(GAUCHE(DROITE(A2;14);10);ESTNUM(-GAUCHE(DROITE(A2;14);10)))&REPT(GAUCHE(DROITE(A2;15);10);ESTNUM(-GAUCHE(DROITE(A2;15);10)))
Fonctionne avec des extensions de 3 ou 4 caractères (xls, xlsx...).

A+
 

Pièces jointes

  • Date fichier(1).xls
    24 KB · Affichages: 54
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Re,

Avec DATEVAL on est sûr d'avoir une date :

Code: 
=REPT(GAUCHE(DROITE(A2;14);10);ESTNUM(DATEVAL(GAUCHE(DROITE(A2;14);10))))&REPT(GAUCHE(DROITE(A2;15);10);ESTNUM(DATEVAL(GAUCHE(DROITE(A2;15);10))))
Fichier (2).

A+
 

Pièces jointes

  • Date fichier(2).xls
    24 KB · Affichages: 48
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Re,

Finalement une formule meilleure avec un seul REPT :

Code: 
=REPT(GAUCHE(DROITE(A2;14+(GAUCHE(DROITE(A2;5))="."));10);ESTNUM(DATEVAL(GAUCHE(DROITE(A2;14+(GAUCHE(DROITE(A2;5))="."));10))))
Fichier (3).

A+
 

Pièces jointes

  • Date fichier(3).xls
    24 KB · Affichages: 40
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Re,

Puisque vous êtes sur Excel 2007 vous pouvez utiliser SIERREUR :

Code: 
=SIERREUR(DATEVAL(GAUCHE(DROITE(A2;14+(GAUCHE(DROITE(A2;5))="."));10));"")
Et mettre la colonne D au format jj-mm-aaaa

Fichier (4).

A+
 

Pièces jointes

  • Date fichier(4).xlsx
    10.3 KB · Affichages: 48
Dernière édition:
Vote positif 0 Vote négatif
A

anthooooony

XLDnaute Occasionnel
Re : En masse recuperer dans cellule la partie du titre du fichier

Bonjour Job75,

Merci pour tes multiples retours :)

Par contre j'ai mal du formuler ma demande.

En faite, je souhaite écrire sur chaque fichier que j'ai dans un répertoire en D la date qui se trouve dans l'intitulé de son propre fichier..

J'ai mis un exemple dans la pièce jointe dans un onglet en Vert, et en rouge le document tel que je le reçois.

Désolé de vous avoir fait perdre sur du temps sur une demande erronée(quoi que je l'ai mis de coté:D )

Bien à vous,

Anthooooony
 

Pièces jointes

  • Suivi Top 50 - production 10 derniers jours (Avec commande) 01-04-2013.xls
    42 KB · Affichages: 45
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Re,

Je comprends que pour chaque fichier il suffit de trouver la date qui se trouve dans son nom.

Donc pour chaque fichier à importer entrez en D2 la formule :

Code: 
=DATEVAL(STXT(CELLULE("filename";D2);CHERCHE(".xls*]";CELLULE("filename";D2))-10;10))
et la tirer vers le bas, la colonne D étant au format jj-mm-aaaa.

Si vous importez les données par macro tout cela peut se faire bien sûr automatiquement.

Montrez-nous alors cette macro.

Fichier joint.

Edit : pour tester enregistrez le fichier sur le bureau (avec son nom d'origine) avant de l'ouvrir.

A+
 

Pièces jointes

  • Suivi Top 50 - production 10 derniers jours (Avec commande) 01-04-2013.xls
    45 KB · Affichages: 55
Dernière édition:
Vote positif 0 Vote négatif
A

anthooooony

XLDnaute Occasionnel
Re : En masse recuperer dans cellule la partie du titre du fichier

Rebonjour Job75,

Encore un merci pour recommencer, de ta patience et ton implication..

J'ai un semblant de code, qui ouvre chaque fichier d'un repertoire donnée en lancant la macro du bas "test".
Je lui ai écris date en colonne D comme ça si je recupere en tcd ou dans une table access il ne m'embetera pas.
Et après il faudrait que j'adapte ta formule avec un code qui lui dis d'aller jusqu'a la derniere ligne de chaque fichier.

j'ai un peu de difficulté mais à forcer de chercher je vais trouver!! je ne suis plus très loin grace à toi

Anthooooony


Sub Traitement(ByVal Repertoire As String)
Dim Fso As Object, SourceFolder As Object, SubFolder As Object, FileItem As Object
Dim Wbk As Workbook

On Error GoTo Traitement_Error
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
'Boucle sur tous les fichiers du répertoire

For Each FileItem In SourceFolder.Files
If InStr(FileItem.Name, ".xls") > 0 Then
Set Wbk = Workbooks.Open(FileItem)
With Wbk.Worksheets(1)
.Cells(1, 4).Value = "Date"
.Cells(2, 4).Value = "19/04/2013"
End With
Wbk.Close True
Set Wbk = Nothing
End If
Next FileItem

'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
For Each SubFolder In SourceFolder.subfolders
Traitement SubFolder.Path
Next SubFolder

Traitement_Error:
Application.DisplayAlerts = True
Set SourceFolder = Nothing
Set Fso = Nothing
End Sub

Sub Test()

Traitement "C:\Documents and Settings\RC1194\Desktop\test\testons"
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Re : En masse recuperer dans cellule la partie du titre du fichier

Re,

Dans votre macro il suffit d'utiliser ce code :

Code: 
If FileItem.Name Like "*##-##-####.xls*" Then
  Set Wbk = Workbooks.Open(FileItem)
  With Wbk.Worksheets(1)
    .[D:D].ClearContents 'RAZ
    .[D1] = "Date"
    .[D:D].NumberFormat = "dd-mm-yyyy"
    .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row).FormulaR1C1 = _
    "=DATEVALUE(MID(CELL(""filename"",RC),SEARCH("".xls"",CELL(""filename"",RC))-10,10))"
  End With
  Wbk.Close True
End If
A+
 
Dernière édition:
Vote positif 0 Vote négatif
A

anthooooony

XLDnaute Occasionnel
Re : En masse recuperer dans cellule la partie du titre du fichier

Merci beaucoup FAB75 tu m'as fait gagner beaucoup de temps et d'énergie !
Je vais récupérer ce code sur 5 extractions que je reçois quotidiennement !

En te remerciant du temps passé sur mon problème.

Ci dessous le code fonctionnel

Code: 
Sub Traitement(ByVal Repertoire As String)
Dim Fso As Object, SourceFolder As Object, SubFolder As Object, FileItem As Object
Dim Wbk As Workbook

On Error GoTo Traitement_Error
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
'Boucle sur tous les fichiers du répertoire

For Each FileItem In SourceFolder.Files
If FileItem.Name Like "*##-##-####.xls*" Then
  Set Wbk = Workbooks.Open(FileItem)
  With Wbk.Worksheets(1)
    .[D:D].ClearContents 'RAZ
    .[D1] = "Date"
    .[D:D].NumberFormat = "dd-mm-yyyy"
    .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row).FormulaR1C1 = _
    "=DATEVALUE(MID(CELL(""filename"",RC),SEARCH("".xls"",CELL(""filename"",RC))-10,10))"
  End With
  Wbk.Close True
End If
Next FileItem

'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
For Each SubFolder In SourceFolder.subfolders
Traitement SubFolder.Path
Next SubFolder

Traitement_Error:
Application.DisplayAlerts = True
Set SourceFolder = Nothing
Set Fso = Nothing
End Sub

Sub Test()

Traitement "C:\Users\toto\Desktop\testons"
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
812
Sylvain. B
S
J
  • Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
1 K
JBIK
J
oguruma
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
267
oguruma
oguruma
K
  • Question
Microsoft 365 rechercher un mot dans une colonne et afficher la ligne du classeur contenant le mot
Réponses
9
Affichages
2 K
kamyolande
K
P
  • Question
récupération de la date dans le titre du fichier
Réponses
5
Affichages
741
philmaure
P
La Vouivre
  • Question
Date de mis à jour de la ligne dans un commentaire
Réponses
11
Affichages
1 K
La Vouivre
La Vouivre
P
  • Question
mettre en couleur (FONT only) la valeur identique au sein d'une CELLULE
Réponses
1
Affichages
613
pasquetp
P
A
  • Question
Comment mettre la date du jour en vba sur les lignes des fichiers?
Réponses
6
Affichages
983
anthooooony
A
R
  • Question
copier des feuilles d'un fichier excel dans un word avec saut de page par feuille
Réponses
4
Affichages
1 K
rogber
R
B
  • Question
Transformation à la saisie d'une date en age dans la même colonne
Réponses
6
Affichages
996
balkan59
B

Membres actuellement en ligne

18 membres et 458 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 171
Messages
2 085 931
Membres
103 049
dernier inscrit
plt