Problème de sauvegarde d'un fichier Excel

Question

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

jrivet · Answer

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

adrienr11vdv · Answer

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
omfichier.XLS")

jrivet · Answer

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

jmfmarques · Answer

Bonjour,

Je suppose que tu as cherché un peu et lu ceci :

http://support.microsoft.com/kb/257757/fr

drikce06 · Answer

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:

drikce06 · Answer

' ** 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:

drikce06 · Answer

Précision sMonBook = Classeur à ouvrir

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Dim xlApp        As Excel.Application
Dim xlBook      As Workbook

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:	est.xls")

    xlBook.SaveAs ("C:	est1.xls")

    xlBook.Close True
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing,

----

(Coloration syntaxique automatique par Kenji)




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:

adrienr11vdv · Answer

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

drikce06 · Answer

La seule différence que je vois c'est la déclaration du classeur, mais bon je ne pense pas que ce soit ça, mais on ne sait jamais!







Sinon essaye avec une référence antérieure!

Après test mon code avec un classeur virege cala fonctionne!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Salut,
Premiere chose, si ton classeur ne change pas de nom, il est inutilse d'utiliser SaveAs
L'instruction XlWorkBook.Close (True) devrait suffire.
Ensuite peu être (Mais rien n'est moins sûr) que Excel n'aime pas que tu appelle ton objet XlWorkBook , vu que c'est une constante déjà utilisée par Excel

@+: Ju£i?n
Pensez: Réponse acceptée

adrienr11vdv · Answer

ok. je vais essayé avec un classeur vierge mais pour sauvegarder je mets juste alors


XlWorkBook.Save

Mais a quel endroit du disque se sauvegarde le fichier?

merci d'avance

jrivet · Answer

Re.
Si tu ne changes pas de nom l'instruction XlWorkBook.Close (True) devrait suffire, le TRUE veut dire sauvegarder les modifications.
Et c'est le classeur qui est sauvegarder donc il est sauvegarder au même endroit qu il a été ouvert 

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Le chemin est le même donc il se sauve à l'endroit où tu l'as ouvert tout simplement avec Book.Close comme l'a dit jrivet. SaveAs sert uniquement à changer le nom du fichier ou le chemin!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

C'est comme dans n'importe quel prog la différence entre enregistrer sous et enregistrer de même pour close quand tu quitte une appli il te demande d'enregistrer les modif ou non avec .Close = True cela enregistre les modifs!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

adrienr11vdv · Answer

Private Sub Command1_Click()


   'Objet excel
   Dim xlApp As New Excel.Application
   'Objet Classeur
   Dim XlBook As 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 XlBook = xlApp.Workbooks.Open("E:\base données\Code\MonFichier.xls")
   'Set XlBook = xlApp.Workbooks.Add
   ' [...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
   'Sauvegarde le classeur
   XlBook.Close (True)
   'Quitte l'application
   xlApp.Quit
   'Destruction des objets
   Set xlApp = Nothing
   Set XlBook = Nothing


   End Sub

alors ça marche presque!!!
ça m'ouvre le classeur vide MonFichier.xls
ça copie bien les données a l'intérieur
Le programme s'arrête sans erreur sauf que lorsque je vais voir mon fichier, 
il n'y a rien dedans

jrivet · Answer

Salut,
Si tu essayer de remplacer xlApp.Range(... Par XlWorkBook.Range(...

@+: Ju£i?n
Pensez: Réponse acceptée

adrienr11vdv · Answer

ça ne marche pas.
XlBook n'a pas cette fonction définie

adrienr11vdv · Answer

Private Sub Command1_Click()


   'Objet excel
   Dim xlApp As New Excel.Application
   'Objet Classeur
   Dim XlBook As 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 XlBook = xlApp.Workbooks.Add
   '[...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

   'Sauvegarde le classeur
   XlBook.Close (True)
   'Quitte l'application
   xlApp.Quit
   'Destruction des objets
   Set xlApp = Nothing
   Set XlBook = Nothing


End Sub

Lorsque j'execute se code ça marche impeccable.
Le seul petit problème est que je ne trouve pas le fichier sauver

drikce06 · Answer

Set XlBook = xlApp.Workbooks.Add
Tu as ajouté un classeur tu n'en as pas ouvert un mets Set XlBook = xlApp.Workbooks.Open("E:\base données\Code\MonFichier.xls")

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

adrienr11vdv · Answer

On avance mais c'est pas encore ça!!!
ça m'ouvre bien le fichier MonFichier, ça écrit bien les données et le programme s'arrête sans aucune erreur.
mais le problème, c'est que lorsque j'ouvre mon fichier après execution du programme, il est vide

merci d'avance

drikce06 · Answer

? remet le bout de code pour voir ça bisard comme même!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Excuse je me suis trompe c'est pas XlWorkBook mais XlWorkBook.ActiveSheet.Range

@+: Ju£i?n
Pensez: Réponse acceptée

adrienr11vdv · Answer

Private Sub Command1_Click()


   'Objet excel
   Dim xlApp As New Excel.Application
   'Objet Classeur
   Dim XlBook As 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 XlBook = xlApp.Workbooks.Add
   Set XlBook = 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
   'Sauvegarde le classeur
   XlBook.Close (True)
   'Quitte l'application
   xlApp.Quit
   'Destruction des objets
   Set xlApp = Nothing
   Set XlBook = Nothing


End Sub

drikce06 · Answer

Private Sub Command1_Click()

   'Objet excel
   Dim xlApp As New Excel.Application
   'Objet Classeur
   Dim XlBook As 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")
 
   Set XlBook = 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
   'Sauvegarde le classeur
   XlBook.Close (True)
   'Quitte l'application
   xlApp.Quit
   'Destruction des objets
   Set xlApp = Nothing
   Set XlBook = Nothing

End Sub,

----

(Coloration syntaxique automatique par Kenji)







 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

re,
Note: Voir mon dernier post.
Note2: Si il y a cette ligne Dim xlApp As New Excel.Application, celle ci ne sert a rien Set xlApp = CreateObject("Excel.Application")

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Ceci fonctionne très bien. Si chez toi cela ne fonctionne pas, peu être Que grd_visu ne possède pas de valeurs correctes.

Private Sub Command1_Click()
  'Objet excel
  Dim xlApp As New Excel.Application
  'Objet Classeur
  Dim XlBook As Workbook
  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 XlBook = xlApp.Workbooks.Open("C:\Toto.xls")
  '[...les mofid => Objets Worksheets... Ranges]
  With grd_visu
      For intRow = 0 To .Rows - 1
          For intCol = 0 To .Cols - 1
              XlBook.ActiveSheet.Range(colHeader(intCol) & (intRow + 1)).BorderAround Color:=vbBlack
              XlBook.ActiveSheet.Range(colHeader(intCol) & (intRow + 1)).Value = .TextMatrix(intRow, intCol)
          Next intCol
      Next intRow
  End With
  'Sauvegarde le classeur
  Call XlBook.Close(True)
  'Quitte l'application
  Call xlApp.Quit
  'Destruction des objets
  Set xlApp = Nothing
  Set XlBook = Nothing

End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Oui pourquoi as new?

Private Sub Command1_Click()

   Dim xlApp As Excel.Application
   Dim XlBook As 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")
 
   Set XlBook = 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
   'Sauvegarde le classeur
   XlBook.Close (True)
   'Quitte l'application
   xlApp.Quit
   'Destruction des objets
   Set xlApp = Nothing
   Set XlBook = Nothing

End Sub, ----
(Coloration syntaxique automatique par Kenji)

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

adrienr11vdv · Answer

le new est obligatoire.
Par contre, je viens de voir que mon Excel ne marche pas bien. J'ai la version beta 2007 installé sur mon poste. Or la licence d'essai a expiré et je peux seulement lire des fichiers mais je peux pas les modifier. Le problème viendrai peut etre de ça?
si c'est cela, je suis désolé de ne pas l'avoir vu avant.
On peut faire la meme chose avec OpenOffice?

merci

jmfmarques · Answer

Euh...
je rappelle timidement ma répose (voir beaucoup plus haut) et le lien joint, lien sur lequel on pouvait, entre autres, lire :

"En règle générale, ces erreurs sont dues à l'échec de l'initialisation de VBA en raison d'autorisations insuffisantes ou de composants VBA non inscrits dans le Registre ; ces deux problèmes sont courants lorsqu'un utilisateur exécute du code à partir d'un compte sans profil utilisateur (problème 1) et que le jeton d'utilisateur ne contient pas l'identificateur de sécurité (SID) interactif (problème 2). "

mickypr44 · Answer

Bonjour, Le code VB est bon !! En faite il fonctionne sous Excel 2003, XP, 2000 et peut etre 97. J'avais le meme code dans un programme en Delphi et depuis le passage en Excel 2007, j'ai un message d'erreur lors de la sauvegarde ! Le problème est référencé au près de MS : http://support.microsoft.com/kb/928283/fr Voila la solution : ActiveWorkbook.SaveAs FileName:="nom de fichier.xls", AccessMode:=xlShared, FileFormat:=xlExcel8 Maintenant, la question qui tu es compatible avec Excel 2003 ou XP !!! Moi, je vais faire un test de version pour faire sois l'ancienne commande ou la nouvelle. Bon courage.

kamilia911 · Answer

bonjour,
pour ce problème la solution c'est:
MonClasseur.save
ça permet d enregistrer les modifications ajout...
je sais pas si ta déja trouvé la solution ou pas mais je viens de lire ta question et j'avais posé la méme aujourd'hui
si elle t'est encore utille ça m fé plaisir sinon cé pas grave

kamilia911 · Answer

bonjour, pour ce problème la solution c'est: MonClasseur.save ça permet d enregistrer les modifications ajout... je sais pas si ta déja trouvé la solution ou pas mais je viens de lire ta question et j'avais posé la méme aujourd'hui si elle t'est encore utille ça m fait plaisir sinon cé pas grave réponse à:

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

drikce06 · Answer

MDR! Salut! En effet, j'éspère pour lui qu'au bout d'un an il a trouvé la solution!

 Drikce 06

kamilia911 · Answer

lol wéwé j l'espére pour lui. sinon ça serrera a quelqu'un d'autre qui débute en excel avec vb ,comme moi lol

Problème de sauvegarde d'un fichier Excel

35 réponses

Votre réponse

Discussions similaires