Discussion :

[vava433]

bonjour
mon but et de copier un classeur de axcel dans un autre fichier excel dont je choisit le nom tout à partir de access

le code 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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 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

[Jean-Philippe André]

Bonjour,
Bienvenue sur DVP

ActiveWorkbook n'existe pas en tant que tel sous Access (tout comme CurrentDb n'existera pas sous Excel).

Je te recommande de créer deux autres variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim xlwbk as Excel.Workbook
Dim xlwsh As Excel.Worksheet

et de les utiliser en direct par la suite.

J'en profite pour te recommander de regarder les ressources à ta disposition sous DVP :
- une http://access.developpez.com/faq
- des livres http://access.developpez.com/livres
- des sources http://access.developpez.com/sources

Bon courage dans la suite de tes projets.
Si certains points te paraissent encore confus, n'hésite pas à nous demander

[vava433]

salut
j'avais deja essayer de copier la copy dans un workbook mais il n'en veut pas pourtant lorsque je fais xls.worksheets("test").copy, on a bien un workbook,

ou alors si j'ai compris ce que tu me dite je copy xls.worksheets("test") dans par exemple xlwsh.worksheet mais la encore j'ai deja essayer,

ou alors c'est que je suis vraiemnt nulle

[Jean-Philippe André]

salut,
essaie d'adapter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub copitest2()
Dim xls As Object
Dim fich As String, chemin As String
Dim xlwbk As Excel.WorkBook
dim xlwsh as Excel.Worksheet
Set xls = CreateObject("Excel.Application")
Set xlwbk = xls.Workbooks.Open("E:\sondages\test1.xls")
set xlwsh = xlwbk.Worksheets("test")
'la copie de la feuille je ne comprends pas...
'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")
xlwbk.SaveAs Filename:= _
chemin & fich & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
xlwbk.Close
xls.Application.Quit
End Sub

[vava433]

merci beaucoup de votre aide çà marche enfin

[vava433]

merci beaucoup de votre aide çà marche enfin

bonjour
je n'avait pas bien vu mais en faite je copie toute mes feuilles de mon classeur "test1"
moi je voulais que la feuille par exempe "test"

mais bon c'est pas grave je vais supprimer celle dont je n'ai pas besoin mais j'aimerai savoir si c'est quand meme possible de copier qu'une feuille excel et si oui comment, c'est pour cela que j'avais utiliser copie