Problème de sauvegarde d'un fichier Excel

Bonjour à tous,
Je développe un projet en VB6
Je souhaite transférer le contenu d'un MSFlexGrid dans un fichier Excel. Jusque là tous va bien!!!
Mais au moment de sauvegarder mon fichier Excel j'ai l'erreur suivante:
   Erreur d'exécution '1004':
   la méthode de 'SaveAs' de l'objet '_Workbook' a échoué
Voici le bout de code:
   'Objet excel
   Dim XlApp As New Excel.Application
   'Objet Classeur
   Dim XlWorkBook As Excel.workbook   
   ...  
   'Enregistrer sous le classeur
   XlWorkBook.SaveAs ("C:\base données")
   ...

Merci d'avance
Coordialement

SAlut,

CEla ne fonctionne pas car ("C:\base données") n'est pas un chemin

IL faut preciser l'extension.

exmeple:
   XlWorkBook.SaveAs ("C:\base données.XLS")

@+: Ju£i€n
Pensez: Réponse acceptée

Re-bonjour,
je te remercie de m'avoir répondu,
mais ça ne marche toujours pas

pourtant, j'ai bien rajouter l'extension mais j'ai toujours la même erreur.
'Enregistrer sous le classeur
XlWorkBook.SaveAs ("C:\Documents and Settings\stagiareit\nomfichier.XLS")

Salut,
Je suppose que C:\Documents and Settings\stagiareit\ est un répertoire valide?
Sinon il faudrait donne un pu plus de code, pour pouvoir mieux débugger

@+: Ju£i€n
Pensez: Réponse acceptée

Bonjour,

Je suppose que tu as cherché un peu et lu ceci :

[ Lien ]

Salut et avec des minuscules .xls?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

' ** Référence : Microsoft Excel 11.0 Library Objects ou équivalent
 
Dim xlApp        As Excel.Application
Dim xlBook      As Workbook

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(sMonBook )

    xlBook.SaveAs("C:\MonClasseur.xls")

    xlBook.Close True
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing


 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Précision sMonBook = Classeur à ouvrir

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Cela fonctionne sans aucun problème

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Je vous remercie pour vos réponses mais ça ne marche toujours pas.
J'ai tout d'abord essayé de mettre en minuscule, ça ne change rien
J'ai essayé de faire ce que tu m'as proposé Drikce 06 et ça n'a pas l'air de fonctionner ou c'est moi qui n'est peu être pas tout bien fait
Je te montre le code:

Private Sub Command1_Click()

   'Objet excel
   Dim XlApp As New Excel.Application
   'Objet Classeur
   Dim XlWorkBook As Excel.workbook
   
   Set XlApp = CreateObject("Excel.Application")

   XlApp.Visible = True
   colHeader = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y")
   'Ouvre un classeur neuf
   Set XlWorkBook = XlApp.Workbooks.Open("E:\base données\Code\MonFichier.xls")
   '[...les mofid => Objets Worksheets... Ranges]
   With grd_visu
       For intRow = 0 To .Rows - 1
           For intCol = 0 To .Cols - 1
               XlApp.Range(colHeader(intCol) & (intRow + 1)).BorderAround Color:=vbBlack
               XlApp.Range(colHeader(intCol) & (intRow + 1)) = .TextMatrix(intRow, intCol)
           Next intCol
       Next intRow
   End With
   'Enregistrer sous le classeur
   XlWorkBook.SaveAs ("E:\base données\Code\MonFichier.xls")
   'Sauvegarde le classeur
   XlWorkBook.Close (True)
   'Quitte l'application
   XlApp.Quit
   'Destruction des objets
   Set XlApp = Nothing
   Set XlWorkBook = Nothing

End Sub

enfin pour information, ma référence :
   Microsoft Excel 2007 ObjectLibrary

Merci d'avance