Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access automatiser Excel depuis Access...

automatiser Excel depuis Access...

8 réponses
Avatar
Fred Pasc
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec des
données selon les données d'un formulaire. Ce que je souhaiterais c'est que
ce tableau s'enregistre sous un nouveau nom une fois que mes données sont
entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je souhaite
directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être imprimer en
paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est indispensable
au vu de l'application que je dois développer alors toute aide serait la
bienvenue.

Merci d'avance
A+
Fred
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Fred Pasc
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec des
données selon les données d'un formulaire. Ce que je souhaiterais c'est
que

ce tableau s'enregistre sous un nouveau nom une fois que mes données sont
entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je souhaite
directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être imprimer
en

paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide serait la
bienvenue.

Merci d'avance
A+
Fred




Avatar
Raymond [mvp]
Bonjour.

au lieu de Save utilise SaveAs
.ActiveWorkbook.SaveAs ("Classeurx.XLS")

tant que tu construis tes feuilles, n'utilises pas le quit que tu ne mettras
qu'à la fin pour fermer excel.
pour réouvrir les différentes tableaux tu procèdes de la même façon
qu'actuellement.

pour le mode landscape tu peux faire:
ActiveSheet.PageSetup.Orientation = xlLandscape

regarde les macros créées directement dans excel, tu trouveras tous les
renseignements.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec des
données selon les données d'un formulaire. Ce que je souhaiterais c'est
que

ce tableau s'enregistre sous un nouveau nom une fois que mes données sont
entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je
souhaite
directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être imprimer
en

paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide serait la
bienvenue.

Merci d'avance
A+
Fred








Avatar
Fred Pasc
Bonjour Raymond,

Merci pour ta réponse,
Je ne m'y connais pas en macro Excel mais je vais essayer de voir ça.
A+
Fred

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

au lieu de Save utilise SaveAs
.ActiveWorkbook.SaveAs ("Classeurx.XLS")

tant que tu construis tes feuilles, n'utilises pas le quit que tu ne
mettras

qu'à la fin pour fermer excel.
pour réouvrir les différentes tableaux tu procèdes de la même façon
qu'actuellement.

pour le mode landscape tu peux faire:
ActiveSheet.PageSetup.Orientation = xlLandscape

regarde les macros créées directement dans excel, tu trouveras tous les
renseignements.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec
des



données selon les données d'un formulaire. Ce que je souhaiterais c'est
que

ce tableau s'enregistre sous un nouveau nom une fois que mes données
sont



entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je
souhaite
directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être
imprimer



en
paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide serait
la



bienvenue.

Merci d'avance
A+
Fred












Avatar
Fred Pasc
re-Bonjour,
Bon, ça marche comme je voulais, merci.
Je souhaiterais desormais que le nom de mon nouveau classeur Excel que
j'enregistre par un SaveAs soit variable, par exemple en fonction d'un champ
de mon formulaire. Est-ce possible et si oui comment?

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec
des


données selon les données d'un formulaire. Ce que je souhaiterais c'est
que

ce tableau s'enregistre sous un nouveau nom une fois que mes données
sont


entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je
souhaite


directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être imprimer
en

paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide serait la
bienvenue.

Merci d'avance
A+
Fred








Avatar
Fred Pasc
Je vais mieux m'exprimer:

Voici ce que je fais actuellement pour sauvegarder mon tableau Excel depuis
Access:
.ActiveWorkbook.SaveAs ("C:Documents and SettingsClass1.xls")

Ce que je souhaite c'est qu'au prochain enregistrement, le nom devienne
Class2.xls, au troisième Class3.xls, ...
L'idéal serait que le nom soit une variable que je récupère dans un
formulaire ou dans une table mais ça ça me parait vraiment impossible.
Si quelqu'un peut m'éclairer ...

Merci d'avance
A+
Fred

"Fred Pasc" a écrit dans le message de news:
d746nq$5hc$
re-Bonjour,
Bon, ça marche comme je voulais, merci.
Je souhaiterais desormais que le nom de mon nouveau classeur Excel que
j'enregistre par un SaveAs soit variable, par exemple en fonction d'un
champ

de mon formulaire. Est-ce possible et si oui comment?

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini avec
des


données selon les données d'un formulaire. Ce que je souhaiterais
c'est



que
ce tableau s'enregistre sous un nouveau nom une fois que mes données
sont


entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je
souhaite


directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être
imprimer



en
paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide serait
la



bienvenue.

Merci d'avance
A+
Fred












Avatar
Fred Pasc
Re...
Je viens d'essayer ça:

.ActiveWorkbook.SaveAs ("C:Documents and SettingsMe!valeur.xls")

Ca ne marche pas. Je ne sais pas comment indiquer que le nom avant le ".xls"
est une variable.
Si vous ne savez pas comment faire, je suis ouvert pour toute autre
suggestion car sinon je vois pas comment je vais pouvoir faire mon
application.

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d74805$6a6$
Je vais mieux m'exprimer:

Voici ce que je fais actuellement pour sauvegarder mon tableau Excel
depuis

Access:
.ActiveWorkbook.SaveAs ("C:Documents and SettingsClass1.xls")

Ce que je souhaite c'est qu'au prochain enregistrement, le nom devienne
Class2.xls, au troisième Class3.xls, ...
L'idéal serait que le nom soit une variable que je récupère dans un
formulaire ou dans une table mais ça ça me parait vraiment impossible.
Si quelqu'un peut m'éclairer ...

Merci d'avance
A+
Fred

"Fred Pasc" a écrit dans le message de news:
d746nq$5hc$
re-Bonjour,
Bon, ça marche comme je voulais, merci.
Je souhaiterais desormais que le nom de mon nouveau classeur Excel que
j'enregistre par un SaveAs soit variable, par exemple en fonction d'un
champ

de mon formulaire. Est-ce possible et si oui comment?

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$
J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$
Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini
avec




des
données selon les données d'un formulaire. Ce que je souhaiterais
c'est



que
ce tableau s'enregistre sous un nouveau nom une fois que mes données
sont


entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je
souhaite


directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être
imprimer



en
paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est
indispensable

au vu de l'application que je dois développer alors toute aide
serait




la
bienvenue.

Merci d'avance
A+
Fred
















Avatar
Eric
Bonjour,

Essaies :
.ActiveWorkbook.SaveAs
("C:Documents and Settings" & Me!LeNomDuControle & ".xls")

ou LeNomDuControle est le nom du controle du formulaire contenant la
valeur souhaitée

--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Re...
Je viens d'essayer ça:

.ActiveWorkbook.SaveAs ("C:Documents and SettingsMe!valeur.xls")

Ca ne marche pas. Je ne sais pas comment indiquer que le nom avant le ".xls"
est une variable.
Si vous ne savez pas comment faire, je suis ouvert pour toute autre
suggestion car sinon je vois pas comment je vais pouvoir faire mon
application.

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d74805$6a6$

Je vais mieux m'exprimer:

Voici ce que je fais actuellement pour sauvegarder mon tableau Excel


depuis

Access:
.ActiveWorkbook.SaveAs ("C:Documents and SettingsClass1.xls")

Ce que je souhaite c'est qu'au prochain enregistrement, le nom devienne
Class2.xls, au troisième Class3.xls, ...
L'idéal serait que le nom soit une variable que je récupère dans un
formulaire ou dans une table mais ça ça me parait vraiment impossible.
Si quelqu'un peut m'éclairer ...

Merci d'avance
A+
Fred

"Fred Pasc" a écrit dans le message de news:
d746nq$5hc$

re-Bonjour,
Bon, ça marche comme je voulais, merci.
Je souhaiterais desormais que le nom de mon nouveau classeur Excel que
j'enregistre par un SaveAs soit variable, par exemple en fonction d'un


champ

de mon formulaire. Est-ce possible et si oui comment?

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$

J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$

Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini





avec

des

données selon les données d'un formulaire. Ce que je souhaiterais




c'est

que

ce tableau s'enregistre sous un nouveau nom une fois que mes données



sont

entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je



souhaite

directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être




imprimer

en

paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est


indispensable

au vu de l'application que je dois développer alors toute aide





serait

la

bienvenue.

Merci d'avance
A+
Fred


















Avatar
Fred Pasc
Bonjour Eric,
Merci beaucoup Eric, tu peux pas savoir à quel point j'étais dans la M....
si j'arrivais pas à faire ça ! Ca marche impeccable.
Si t'as besoin d'aide ... je suis là ;-)
Merci encore
A+
Fred

"Eric" a écrit dans le message de news:

Bonjour,

Essaies :
.ActiveWorkbook.SaveAs
("C:Documents and Settings" & Me!LeNomDuControle & ".xls")

ou LeNomDuControle est le nom du controle du formulaire contenant la
valeur souhaitée

--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Re...
Je viens d'essayer ça:

.ActiveWorkbook.SaveAs ("C:Documents and SettingsMe!valeur.xls")

Ca ne marche pas. Je ne sais pas comment indiquer que le nom avant le
".xls"


est une variable.
Si vous ne savez pas comment faire, je suis ouvert pour toute autre
suggestion car sinon je vois pas comment je vais pouvoir faire mon
application.

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d74805$6a6$

Je vais mieux m'exprimer:

Voici ce que je fais actuellement pour sauvegarder mon tableau Excel


depuis

Access:
.ActiveWorkbook.SaveAs ("C:Documents and SettingsClass1.xls")

Ce que je souhaite c'est qu'au prochain enregistrement, le nom devienne
Class2.xls, au troisième Class3.xls, ...
L'idéal serait que le nom soit une variable que je récupère dans un
formulaire ou dans une table mais ça ça me parait vraiment impossible.
Si quelqu'un peut m'éclairer ...

Merci d'avance
A+
Fred

"Fred Pasc" a écrit dans le message de news:
d746nq$5hc$

re-Bonjour,
Bon, ça marche comme je voulais, merci.
Je souhaiterais desormais que le nom de mon nouveau classeur Excel que
j'enregistre par un SaveAs soit variable, par exemple en fonction d'un


champ

de mon formulaire. Est-ce possible et si oui comment?

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740qr$1ib$

J'oubliais, voici le code actuel:

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("C:Documents and
SettingsClasseur5.xls")
Set XL_Feuille = XL_Classeur.Sheets("Avril 2003")
With XL_Feuille
Select Case Me!Valeur ' Évalue le nombre aléatoire.
Case 1:
.Range("A1").Value = "X"
.Range("A2").Value = ""
.Range("A3").Value = ""
Case 2:
.Range("A2").Value = "X"
.Range("A1").Value = ""
.Range("A3").Value = ""
Case 3:
.Range("A3").Value = "X"
.Range("A1").Value = ""
.Range("A2").Value = ""
Case "":
Echo(10) = "Erreur"
Exit Sub
End Select
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub

Merci d'avance
A+
Fred


"Fred Pasc" a écrit dans le message de news:
d740o8$1h4$

Bonjour

Depuis ma base Access 2000, je rempli un tableau Excel prédéfini





avec

des

données selon les données d'un formulaire. Ce que je souhaiterais




c'est

que

ce tableau s'enregistre sous un nouveau nom une fois que mes données



sont

entrées. Pour le moment, il s'enregistre par dessus.
Et après je souhaiterais imprimer les tableaux enregistrés que je



souhaite

directement depuis Access sans avoir à ouvrir excel et le faire
manuellement. Le tableau que je dois imprimer doit de plus être




imprimer

en

paysage (dans la longueur de la feuille A4).
Voilà, j'espère que vous pourrez m'aider. L'enregitrement est


indispensable

au vu de l'application que je dois développer alors toute aide





serait

la

bienvenue.

Merci d'avance
A+
Fred