Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte
le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai
placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de
paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois
en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement
quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application
d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la
veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier
"JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier "JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier "JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie
Bonjour,
J'ai un problème d'extraction de données avec Excel que je n'arrive pas à
résoudre. J'ai été visiter EXCELABO mais je ne vois toujours pas comment
faire alors je pose ma question si je peux trouver de l'aide:
Je reçois (à vrai dire j'enregistre des fichiers .lst sur une disquette à
partir d'un serveur qui ne nous appartiens pas (sous-traitance) tous les
jours le fichier client dont nous avons traités les commandes la veille,
pour en faire des stats sur Excel. Le problème est que ce fichier et tous
les jours de plus en plus volumineux et je voudrais donc savoir s'il y a
possibilité d'en extraire ses données en automatisant.
J'ai réussie à extraire les données de la disquette au PC de façon
automatique comme ceci:
Le nom de dossier ou se trouvent les données change tous les jours et
porte le nom de la date du traitement. Par exemple le dossier aujourd'hui
s'appelle 13122004. Donc le fichier étant traité toujours le lendemain,
j'ai placé la date du jour -1 dans une variable.
* 1 module par macro (je préfère pour quand j'y retourne plus tard...plus
visuel et plus parlant)
* Il y a 3 champs dont: code client, nom client et moyen de paiement
* Je dois donc faire des stats sur les moyens de paiements clients(moyen
de paiement, fréquence etc.)
* Le fichier se présente comme ci-après:
* 1 ligne avec le code client
* 1 ligne avec le nom client
* 1 ligne avec le moyen de paiement
Ensuite, il y a 2 lignes vides et ainsi de suite de façon régulière) Je
dois en suite supprimer les deux premiers caractères des ligne (avec les
fonctions de texte nbcar etc.)
Jusque là, pas de problème et, j'ai avec le temps optimisée de cette façon
(vérification de la présence du dossier sur la disquette, historique auto
avec création du nom de fichier et le traitement de sera pas difficile non
plus...tout est prêt)
Je ne suis pas du genre à me décourager mais, ça fait quand même quelques
mois que je travaille là dessus à temps perdu (à la maison)
Je souhaite au moins savoir si c'est possible d'extraire ces données et de
les ranger dans trois colonnes distinctes et adjacentes.
J'ai fais plusieurs essais (à vrai dire de nombreux) et j'y arrive
seulement quand les données sont
disposées dans trois colonnes différentes mais de la façon décrite plus
haut. Je continue à croire qu'avec les fonctions de recherche verticale et
horizontale c'est possible mais sinon, j'aimerais arrêter de chercher pour
rien.
Quelqu'un peut-il m'aider (au moins à me dire si c'est possible, pour le
reste je finirai bien par trouver...j'ai Le grand livre de Micro
application d'Excel mais ça ne fait pas tout et, encore moins toute seule)
Je vous remercie d'avance.
Sylvie
*********************************************************
Sub DateDeTraitement()
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier (pour insérer automatiquement la date de
traitement dans la cellule B2 de la feuille "CLIENTS")
End Sub
Et là, pour enregistrer automatiquement après traitement:
**********************************************************
Sub Enregistrer()
'Enregistre le document automatiquement dans le dossier
C:AGCEEXPLOITATIONStatsClients avec comme préfixe "StatsClients_" suivi
de "FormatDate" (jj-mm)
Dim NomDossier As String
'Déclaration la variable que je nomme "NomDossier"comme chaine de
caractères
Dim Prefixe As String
'Déclaration la variable que je nomme "Prefixe" comme chaine de caractères
Dim Extension As String
'Déclaration la variable que je nomme "Extension" comme chaine de
caractère
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
NomDossier = Format(Date - 1, "dd-mm")
'Voici le format de la date (La variable "NomDossier" - 1 donc la date de
la veille) jour-mois
Prefixe = "StatsClients_"
'Voici le préfixe du fichier personnalisé
Extension = ".xls"
'Voici l'extension du fichier
ChDir "C:AGCEEXPLOITATIONStatsClientss-HISTORIQUE"
'Là, c'est le chemin du dossier dans lequel j'enregistre le fichier...
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Extension
End Sub
**************************************************************
J'avais oubliée le début:
Comme ce n'est pas encore tout à fait terminé, j'ai imaginée 1 seule macro
pour le traitement qui devrait ressembler à ça (ça marche)
Sub Demarrage()
If Exist = "A:JOUR" Then (le dossier 13122004 se trouve dans le
dossier "JOUR")
Dialogue.Caption = "Progression en cours..."
Dialogue.Height = 82
Dialogue.Width = 221
Application.Visible = False
Dim NomDossier As String
NomDossier= Format(Date - 1, "dd/mm/yyyy")
Sheets("CLIENTS").Select
Range("B2").Select
ActiveCell.Value = NomDossier
Application.Run "StatsClients.xls!NomDeLaMacro1"
Application.Run "StatsClients.xls!NomDeLaMacro2"
Application.Run "StatsClients.xls!NomDeLaMacro3"
End Sub
Et petit à petit, je testerai la présence de la disquette etc. (c'est pas
trop difficile)
Merci à ceux qui voudront bien me dire si c'est possible.
Sylvie