traitement automatisé

[bigmousse]

Bonjour,
Soient deux fichiers excel, l'un des extractions d'une base de données que j'appelerais 20100102 pour une extraction du 2 janvier 2010.
L'autre un tableau de bord pour analyser l'extraction.
Dans tableau de bord des colonnes date.
Objectif placer le resultat de l'analyse dans la bonne colonne date avec pour info le nom du fichier (2010xxxx).

Recap :
Ce que je veux faire dans le fichier tableau de bord :

1 Choisir l'extraction à mouliner (un outils de type explorer sous excel)

2 Lecture du nom du fichier, à transformer en une date et à placer dans une variable.

3 Analyser et poser la données dans la bonne colonne



Le 3 je sais faire, pour le point 1 je dois me documenter dans mes ouvrages mais si vous avez l'info je prends.
Par contre pour le point deux je ne vois pas comment faire, mais alors vraiement pas.
Puis-je avoir de l'aide s'il vous plait.
Merci
Salutations
mousse

 

[CHALET53]

Re : traitement automatisé

Bonjour,
Pour récupérer le nom d'un fichier excel (avec la date au bout) ou d'une feuille :

Sub nomfichier()
a = ActiveWorkbook.Name & Date
b = ActiveSheet.Name
End Sub

a+

 

[bigmousse]

Re : traitement automatisé

Merci pour ta reponse, je vais faire un essai.
pour la partie analyse, j'ai deux type de traitement une par excel et l'autre par du VBA.

L'objectif étant de connaitre la quantité par référence dans la magasin 01 à partir d'une extraction.
Je vous joint le fichier exemple.
La méthode par Excel est limité car je dois satisfaire une condition : poser les valeur dans la colonne correspondante (la date) que je vais recupérer du fichier à analyser.
La méthode VBA me permet de poser les valeurs dans n'importe quelle colonne grace au nom du fichier que je vais extraire et analyser.
Dans l'exemple la base est une feuille (Volume_mag) et non un fichier.

1) Ma question pour l'analyse :
La procedure foonctionne sous VB, cependant les extractions ont plus de 20 000 enregistrements. Et la durée de traitement est de 7 minutes. Trop trop long. Existe 't'il une méthode plus rapide.

2) Ouverture du fichier (à analyser)
Comment à partir d'une macro ou d'un objet puis-je ouvrir un fichier???

Merci
à+
mousse

 

[bigmousse]

Re : traitement automatisé

🙁🙁🙁
j'esperais un illuminé, je vais de voir passer une nuit blanche... à chercher fatigué lol
bon, je suis toujours attentif a vos reponses, surtout pour la partie analyse qui prends beaucoup de temps.
Merci
à+
mousse

 

[bigmousse]

Re : traitement automatisé

Pour la partie ouverture du fichier j'ai avancé puisque voici le code :

Option Explicit


'procedure qui recupère le nom d'un fichier qui va être ouvert
Sub Main()
Dim FileToOpen, MA_DATE As String
Dim Longueur As Long
Dim x, y, Fin, Debut As Long
Dim NOM_FICHIER As String
Dim JOUR, MOIS, ANNEE As Integer


FileToOpen = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls)", , "Analyser le fichier")
Longueur = Len(FileToOpen)

Do While Mid(FileToOpen, Longueur - x, 1) <> "."
x = x + 1
Loop
Fin = Longueur - x - 1
Do While Mid(FileToOpen, Longueur - x, 1) <> "\"
x = x + 1
Loop
Debut = Longueur - x + 1

NOM_FICHIER = Mid(FileToOpen, Debut, Fin - Debut + 1)

JOUR = Mid(NOM_FICHIER, 7, 2)
MOIS = Mid(NOM_FICHIER, 5, 2)
ANNEE = Mid(NOM_FICHIER, 1, 4)
MA_DATE = JOUR & "/" & MOIS & "/" & ANNEE

End Sub

Le fichier a ce format AAAAMMJJ
exemple : 20100402.xls

Je continue ... et vous tiens informé
Salut
Mousse