probleme d'enregistrement fichier excel via Access/VB

Question

Bonsoir,
Mon premier post chez vous
Je dois entretenir une base excel realis&#233;e par quelqu'un d'autre(connaisseur en informatique car c'est sa formation)
Et cette base access2000 a quelques soucis. 
Le premier est qu'une fonction est de remplir un tableau excel &#224; partir de la base de donn&#233;es. Ensuite la base doit enregistrer ce fichier excel(via VB je pense) dans un emplacement predetermin&#233;

J'ai bien le fichier excel mais j'ai aussi un message d'erreur dans access:

Le code est le suivant(la ligne wsExcel est surlign&#233;e): 
------------------------
appExcel.Visible = True
ChDir "C:"
    wsExcel.SaveAs Filename:= _
        "C:\Vivier.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
DoCmd.Hourglass False
End Sub
-----------------------------
Le fichier indiqu&#233; n'existe pas encore &#224; l'emplacement donn&#233;(mais meme si je cree un fichier vide de ce nom l&#224; &#231;a plante aussi)

Avez vous une piste du probleme?. Ou je peut me renseigner sur l'enregistrement Excel via VB?

je souhaite apprendre les bases de donn&#233;es et le VB(l'info me motive)

Merci &#224; vous(je posterais les autres bugs bientot)

milliotseb · Answer

Rer,
c'est une erreur d'execution 1004
La methode "saveas" de l'objet "worksheet" a echou&#233;

Sinon, avant j'avais l'erreur 076

Voila

tbbuim1 · Answer

Perso pour cr&#233;er un fichier excel et l'enregistrer ou je veux sous VBA, je fais:

Dim ClasseurXLS As Object

Set ClasseurXLS = CreateObject("Excel.application")

'Je modifie un fichier excel d&#233;termin&#233;

ClasseurXLS.Workbooks.Open Emplacement & "\Tableaudeproduction.xls"

ClasseurXLS.Workbooks("Tableaudeproduction.xls").Worksheets(Feuille).Activate

'je fais les modif que je veux et je sauve ou je veux

NomFich = InputBox("Entrez le nom du nouveau fichier Excel cr&#233;er", "OBLIGATOIRE")

If Not IsNull(NomFich) Then ClasseurXLS.ActiveWorkbook.SaveAs Emplacement & "" & NomFich & ".xls"

'Fermeture du classeur d'importation

ClasseurXLS.Workbooks.Close

'Fermeture de l'objet Excel Set ClasseurXLS = Nothing
TBBUIM

Probleme d'enregistrement fichier excel via Access/VB

2 réponses

Discussions similaires