Je cherche à exporter le résultat d'une requête en format XLS et de
l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le
fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà,
voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via
Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon
fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux
enregistrer le fichier export existe déjà (via Dir("c:\...", vbDirectory), et
je ne peux pas le faire via une macro générée par Access.
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
Raymond [mvp]
Bonjour.
tu peux faire ceci: If Dir("c:essais.xls") = "essais.xls" Then If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") = vbYes Then DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" Else Exit Sub End If Else DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà, voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory), et je ne peux pas le faire via une macro générée par Access.
Merci d'avance !!
Bonjour.
tu peux faire ceci:
If Dir("c:essais.xls") = "essais.xls" Then
If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") =
vbYes Then
DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS,
"c:essais.xls"
Else
Exit Sub
End If
Else
DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS,
"c:essais.xls"
End If
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: DDAD381C-A3C2-44E0-A529-D14D3A9AAD2F@microsoft.com...
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de
l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le
fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà,
voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via
Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon
fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux
enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory),
et
je ne peux pas le faire via une macro générée par Access.
tu peux faire ceci: If Dir("c:essais.xls") = "essais.xls" Then If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") = vbYes Then DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" Else Exit Sub End If Else DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà, voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory), et je ne peux pas le faire via une macro générée par Access.
Merci d'avance !!
Kolonna
Merci Raymond! J'y suis arrivé aussi en vérifiant l'existence du répertoire dans un ExécuterCode dans la macro Access.
Mais je trouve quand même bizarre que apparemment le même code ne génère pas la même chose...
"Raymond [mvp]" wrote:
Bonjour.
tu peux faire ceci: If Dir("c:essais.xls") = "essais.xls" Then If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") = vbYes Then DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" Else Exit Sub End If Else DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà, voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory), et je ne peux pas le faire via une macro générée par Access.
Merci d'avance !!
Merci Raymond!
J'y suis arrivé aussi en vérifiant l'existence du répertoire dans un
ExécuterCode dans la macro Access.
Mais je trouve quand même bizarre que apparemment le même code ne génère pas
la même chose...
"Raymond [mvp]" wrote:
Bonjour.
tu peux faire ceci:
If Dir("c:essais.xls") = "essais.xls" Then
If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") =
vbYes Then
DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS,
"c:essais.xls"
Else
Exit Sub
End If
Else
DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS,
"c:essais.xls"
End If
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: DDAD381C-A3C2-44E0-A529-D14D3A9AAD2F@microsoft.com...
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de
l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le
fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà,
voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via
Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon
fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux
enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory),
et
je ne peux pas le faire via une macro générée par Access.
Merci Raymond! J'y suis arrivé aussi en vérifiant l'existence du répertoire dans un ExécuterCode dans la macro Access.
Mais je trouve quand même bizarre que apparemment le même code ne génère pas la même chose...
"Raymond [mvp]" wrote:
Bonjour.
tu peux faire ceci: If Dir("c:essais.xls") = "essais.xls" Then If MsgBox("Fichier existant, le supprimer ?", vbYesNo, "OutputTo") = vbYes Then DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" Else Exit Sub End If Else DoCmd.OutputTo acOutputQuery, "requête1", acFormatXLS, "c:essais.xls" End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
Je cherche à exporter le résultat d'une requête en format XLS et de l'enregistrer sur un répertoire spécifique.
1. Si j'utilise "CopierVers" grâce une macro générée par Access, si le fichier export existe déjà, j'ai droit à l'invit "Le fichier existe déjà, voulez vous le remplacer ?".
2. Si je tape en dur le code VBA, strictement identique à la macro (via Outils/Macro/Convertir les macros en VBA) l'invite n'apparaît pas et mon fichier est automatiquement écrasé.
Quelqu'un sait-il pourquoi ?
Celà me pose un problème car je veux vérifier si le dossier où je veux enregistrer le fichier export existe déjà (via Dir("c:...", vbDirectory), et je ne peux pas le faire via une macro générée par Access.
