J'utilise showdataform en vba pour introduire des donn=E9es=20
dans une base de donn=E9es contenant, entre autre, des=20
dates. Travaillant sous Excel 2003 US, ces dates=20
s'affichent syst=E9matiquement sous le format "mm/jj/aaaa"=20
dans le dataform. Est-il possible de modifier ce format en=20
adaptant le code en VBA? Je pr=E9cise que les dates dans les=20
param=E8tres r=E9gionaux sont bien d=E9finis en "jj/mm/aaaa".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto() SendKeys "%DO" End Sub
ChrisV
"Pascal" a écrit dans le message de news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
Merci de vos réponses et bien à vous,
Pascal.
Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto()
SendKeys "%DO"
End Sub
ChrisV
"Pascal" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1c9c01c46fb8$4b425340$a601280a@phx.gbl...
Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données
dans une base de données contenant, entre autre, des
dates. Travaillant sous Excel 2003 US, ces dates
s'affichent systématiquement sous le format "mm/jj/aaaa"
dans le dataform. Est-il possible de modifier ce format en
adaptant le code en VBA? Je précise que les dates dans les
paramètres régionaux sont bien définis en "jj/mm/aaaa".
"Pascal" a écrit dans le message de news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
Merci de vos réponses et bien à vous,
Pascal.
Bonjour ChrisV,
En fait, mon fichier se compose de 2 feuilles: "Données" avec la base de données et "Statistiques" avec un TCD. J'introduis de nouvelles données de la façon suivante:
Sub Introduction() ThisWorkbook.Worksheets("Statistiques").Activate ThisWorkbook.Worksheets("Données").ShowDataForm Calculate ActiveSheet.PivotTables("PivotTable1").RefreshTable Fin End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait faire référence à DataForm mais je ne retrouve que ShowDataForm. Je ne vois donc pas comment je peux agir sur le format du champ Date du formulaire. Peux-être en créanr mon propre formulaire d'introduction mais pour cela je ne suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine----- Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto() SendKeys "%DO" End Sub
ChrisV
"Pascal" a écrit dans le message de
news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
Merci de vos réponses et bien à vous,
Pascal.
.
Bonjour ChrisV,
En fait, mon fichier se compose de 2 feuilles: "Données"
avec la base de données et "Statistiques" avec un TCD.
J'introduis de nouvelles données de la façon suivante:
Sub Introduction()
ThisWorkbook.Worksheets("Statistiques").Activate
ThisWorkbook.Worksheets("Données").ShowDataForm
Calculate
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Fin
End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait
faire référence à DataForm mais je ne retrouve que
ShowDataForm. Je ne vois donc pas comment je peux agir sur
le format du champ Date du formulaire. Peux-être en créanr
mon propre formulaire d'introduction mais pour cela je ne
suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine-----
Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto()
SendKeys "%DO"
End Sub
ChrisV
"Pascal" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:1c9c01c46fb8$4b425340$a601280a@phx.gbl...
Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données
dans une base de données contenant, entre autre, des
dates. Travaillant sous Excel 2003 US, ces dates
s'affichent systématiquement sous le format "mm/jj/aaaa"
dans le dataform. Est-il possible de modifier ce format en
adaptant le code en VBA? Je précise que les dates dans les
paramètres régionaux sont bien définis en "jj/mm/aaaa".
En fait, mon fichier se compose de 2 feuilles: "Données" avec la base de données et "Statistiques" avec un TCD. J'introduis de nouvelles données de la façon suivante:
Sub Introduction() ThisWorkbook.Worksheets("Statistiques").Activate ThisWorkbook.Worksheets("Données").ShowDataForm Calculate ActiveSheet.PivotTables("PivotTable1").RefreshTable Fin End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait faire référence à DataForm mais je ne retrouve que ShowDataForm. Je ne vois donc pas comment je peux agir sur le format du champ Date du formulaire. Peux-être en créanr mon propre formulaire d'introduction mais pour cela je ne suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine----- Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto() SendKeys "%DO" End Sub
ChrisV
"Pascal" a écrit dans le message de
news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
Merci de vos réponses et bien à vous,
Pascal.
.
ChrisV
Re,
Avec un truc du style...
Sub Introduction() With Application .ScreenUpdating = False Sheets("Données").Activate .CommandBars.FindControl(ID:0).Execute Sheets("Statistiques").Activate End With Set tcD = Worksheets("Statistiques").PivotTables(1) tcD.RefreshTable End Sub
ChrisV
a écrit dans le message de news:1cf201c46fc0$74e5fcd0$ Bonjour ChrisV,
En fait, mon fichier se compose de 2 feuilles: "Données" avec la base de données et "Statistiques" avec un TCD. J'introduis de nouvelles données de la façon suivante:
Sub Introduction() ThisWorkbook.Worksheets("Statistiques").Activate ThisWorkbook.Worksheets("Données").ShowDataForm Calculate ActiveSheet.PivotTables("PivotTable1").RefreshTable Fin End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait faire référence à DataForm mais je ne retrouve que ShowDataForm. Je ne vois donc pas comment je peux agir sur le format du champ Date du formulaire. Peux-être en créanr mon propre formulaire d'introduction mais pour cela je ne suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine----- Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto() SendKeys "%DO" End Sub
ChrisV
"Pascal" a écrit dans le message de
news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
Merci de vos réponses et bien à vous,
Pascal.
.
Re,
Avec un truc du style...
Sub Introduction()
With Application
.ScreenUpdating = False
Sheets("Données").Activate
.CommandBars.FindControl(ID:0).Execute
Sheets("Statistiques").Activate
End With
Set tcD = Worksheets("Statistiques").PivotTables(1)
tcD.RefreshTable
End Sub
ChrisV
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:1cf201c46fc0$74e5fcd0$a601280a@phx.gbl...
Bonjour ChrisV,
En fait, mon fichier se compose de 2 feuilles: "Données"
avec la base de données et "Statistiques" avec un TCD.
J'introduis de nouvelles données de la façon suivante:
Sub Introduction()
ThisWorkbook.Worksheets("Statistiques").Activate
ThisWorkbook.Worksheets("Données").ShowDataForm
Calculate
ActiveSheet.PivotTables("PivotTable1").RefreshTable
Fin
End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait
faire référence à DataForm mais je ne retrouve que
ShowDataForm. Je ne vois donc pas comment je peux agir sur
le format du champ Date du formulaire. Peux-être en créanr
mon propre formulaire d'introduction mais pour cela je ne
suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine-----
Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto()
SendKeys "%DO"
End Sub
ChrisV
"Pascal" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:1c9c01c46fb8$4b425340$a601280a@phx.gbl...
Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données
dans une base de données contenant, entre autre, des
dates. Travaillant sous Excel 2003 US, ces dates
s'affichent systématiquement sous le format "mm/jj/aaaa"
dans le dataform. Est-il possible de modifier ce format en
adaptant le code en VBA? Je précise que les dates dans les
paramètres régionaux sont bien définis en "jj/mm/aaaa".
Sub Introduction() With Application .ScreenUpdating = False Sheets("Données").Activate .CommandBars.FindControl(ID:0).Execute Sheets("Statistiques").Activate End With Set tcD = Worksheets("Statistiques").PivotTables(1) tcD.RefreshTable End Sub
ChrisV
a écrit dans le message de news:1cf201c46fc0$74e5fcd0$ Bonjour ChrisV,
En fait, mon fichier se compose de 2 feuilles: "Données" avec la base de données et "Statistiques" avec un TCD. J'introduis de nouvelles données de la façon suivante:
Sub Introduction() ThisWorkbook.Worksheets("Statistiques").Activate ThisWorkbook.Worksheets("Données").ShowDataForm Calculate ActiveSheet.PivotTables("PivotTable1").RefreshTable Fin End Sub
J'ai recherché dans l'object Browser tout ce qui pouvait faire référence à DataForm mais je ne retrouve que ShowDataForm. Je ne vois donc pas comment je peux agir sur le format du champ Date du formulaire. Peux-être en créanr mon propre formulaire d'introduction mais pour cela je ne suis pas vraiment à la hauteur...
Merci en tous cas pour ta réponse.
Pascal.
-----Message d'origine----- Bonjour Pascal,
Et en appelant le formulaire avec:
Sub toto() SendKeys "%DO" End Sub
ChrisV
"Pascal" a écrit dans le message de
news:1c9c01c46fb8$4b425340$ Bonjour à tous & à toutes,
J'ai le petit souci suivant:
J'utilise showdataform en vba pour introduire des données dans une base de données contenant, entre autre, des dates. Travaillant sous Excel 2003 US, ces dates s'affichent systématiquement sous le format "mm/jj/aaaa" dans le dataform. Est-il possible de modifier ce format en adaptant le code en VBA? Je précise que les dates dans les paramètres régionaux sont bien définis en "jj/mm/aaaa".
