Copie de feuille excel à partie de access

bonjour merci de votre aide
j'ai essayer ce que vous m'avais proposé cela fonctionne, mais lorsque je le relance une 2eime fois il y a un beug il me met erreur d'execution 91, variable ou objet non défine dans le bloc with
Private Sub copitest2()
Dim xls As Object
Dim fich As String, chemin As String

Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "E:\sondages\test1.xls"
xls.Worksheets("test").Select
xls.Sheets("test").Copy

fich = InputBox("Inscrivez ici le nom que vous voulez attribuer à votre fichier. !!! sans l'extension .xls. notez simplement test par exemple", "Nom du fichier")
chemin = InputBox("Inscrivez ici l'emplacement, complet avec les \ , que vous voulez attribuer à votre fichier. Notez par exemple E:\sondages\ ", "Emplacement")
ActiveWorkbook.SaveAs Filename:= _
chemin & fich & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
xls.Application.Quit
End Sub

il me met en jaune ce que j'ai mis en gras, je pense c'est parce que j'oublie de fermer un truc excel mais je ne sais pas lequel, désolé encore de vous dérangé, mais je débute....

bonjour
merci de ton aide ce que tu m'a donné fonctionne une première fois mais la 2eime fois cela plante, il me mat erreur 91, variable objet ou variable du bloc with non definie

Private Sub copitest2()
Dim xls As Object
Dim fich As String, chemin As String

Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "E:\sondages\test1.xls"
xls.Worksheets("test").Select
xls.Sheets("test").Copy

fich = InputBox("Inscrivez ici le nom que vous voulez attribuer à votre fichier. !!! sans l'extension .xls. notez simplement test par exemple", "Nom du fichier")
chemin = InputBox("Inscrivez ici l'emplacement, complet avec les \ , que vous voulez attribuer à votre fichier. Notez par exemple E:\sondages\ ", "Emplacement")
ActiveWorkbook.SaveAs Filename:= _
chemin & fich & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
xls.Application.Quit
End Sub

je pense et que j'oubli de fermer un truc met quoi ?
merci de votre aide et désolé de vous deranger mais je debute

bonjour

le code que vous m'avez donner fonctionne bien une fois mais lorsque je le relance il me met erreur 91 la variable objet ou l'instruction du bloc with n'est pas défini

Private Sub copitest2()
Dim xls As Object
Dim fich As String, chemin As String

Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "E:\sondages\test1.xls"
xls.Worksheets("test").Select
xls.Sheets("test").Copy

fich = InputBox("Inscrivez ici le nom que vous voulez attribuer à votre fichier. !!! sans l'extension .xls. notez simplement test par exemple", "Nom du fichier")
chemin = InputBox("Inscrivez ici l'emplacement, complet avec les \ , que vous voulez attribuer à votre fichier. Notez par exemple E:\sondages\ ", "Emplacement")
ActiveWorkbook.SaveAs Filename:= _
chemin & fich & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=FalseActiveWorkbook.Close
xls.Application.Quit
End Sub

je pense cela vient du fais que je n'est pas fermer quelque chose mais quoi ?
le rapport avec access et qu je copie dans un fichier excel des donnees de ma base de donnée dans different onglet
un onglet par entreprise mais apres je souhaite mettre dans un meme fichier excel les donnee d'une entreprise

merci de votre aide car je debute