[excel] enregistrement de la feuille

enregistrement de la feuille [excel] - VB/VBA/VBS - Programmation

Marsh Posté le 08-06-2004 à 15:37:00    

Bonjour,
 
Via un script VB, j'ouvre un fichier excel.  
J'ai actuellement trouvé les functions d'ouverture du fichier et de fermeture, mais je ne trouve pas comment sauver le fichier, de manière à ce qu'à la fermeture, je n'ai pas le message me demandant si je souhaite enregistrer avant de fermer.
 
Voici actuellement mon code:  

Code :
  1. FileCopy toto.xls copie_toto.xls
  2. 'Déclaration des variables
  3. Dim appExcel As Excel.Application 'Application Excel
  4. Dim wbExcel As Excel.Workbook 'Classeur Excel
  5. Dim wsExcel As Excel.Worksheet 'Feuille Excel
  6. 'Ouverture de l'application
  7. Set appExcel = CreateObject("Excel.Application" )
  8. 'Ouverture d'un fichier Excel
  9. Set wbExcel = appExcel.Workbooks.Open (toto.xls)


 
là je remplis le fichier
Et juste avant de fermer, je voudrais sauver mon fichier
 

Code :
  1. wbExcel.Close 'Fermeture du classeur Excel
  2. appExcel.Quit 'Fermeture de l'application Excel
  3. 'Désallocation mémoire
  4. Set wsExcel = Nothing
  5. Set wbExcel = Nothing
  6. Set appExcel = Nothing


 
 
 
Merci de votre aide ! :hello:

Reply

Marsh Posté le 08-06-2004 à 15:37:00   

Reply

Marsh Posté le 08-06-2004 à 15:49:41    

Workbooks("toto.xls" ).Save

Reply

Marsh Posté le 08-06-2004 à 15:57:04    

ou pour préciser sous quel nom l'enregistrer :
 
ActiveWorkbook.SaveAs FileName:="C:\Documents\File.xls"

Reply

Marsh Posté le 08-06-2004 à 16:12:44    

JihemAir a écrit :

Workbooks("toto.xls" ).Save


Jai une erreur ="subscript out of range ... ca peut venir d'où ?  :(

Reply

Marsh Posté le 08-06-2004 à 16:13:02    

pumpkin0312 a écrit :

ou pour préciser sous quel nom l'enregistrer :
 
ActiveWorkbook.SaveAs FileName:="C:\Documents\File.xls"


OK merci, je note  :)

Reply

Marsh Posté le 08-06-2004 à 16:14:43    

myway a écrit :

Jai une erreur ="subscript out of range ... ca peut venir d'où ?  :(

Il ne connait pas le fichier. (L'index est en dehors de la plage).

Reply

Marsh Posté le 08-06-2004 à 16:28:29    

JihemAir a écrit :

Il ne connait pas le fichier. (L'index est en dehors de la plage).


Ben je comprends pas ... mon script est exactement tel que je l'ai écrit dans mon premier post, mis à part qqs manips intermédiaires... Pourquoi il connaitrait pas le fichier  :??:

Reply

Marsh Posté le 08-06-2004 à 16:44:24    

Essaie xbExcel.Save
(j'y ai pas pensé + tot!!)

Reply

Marsh Posté le 08-06-2004 à 16:49:51    

Ou:
appExcel.Quit true, 'nom de ton fichier'  
 
;)

Reply

Marsh Posté le 08-06-2004 à 16:57:18    

JihemAir a écrit :

Essaie xbExcel.Save
(j'y ai pas pensé + tot!!)


Ca marche nickel!  :)  
 
Merci beaucoup de votre aide !  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed