Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1603 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [excel] enregistrement de la feuille

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[excel] enregistrement de la feuille

n°756648
Myway
Posté le 08-06-2004 à 15:37:00  profilanswer
 

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:

mood
Publicité
Posté le 08-06-2004 à 15:37:00  profilanswer
 

n°756677
JihemAir
Je sais pas
Posté le 08-06-2004 à 15:49:41  profilanswer
 

Workbooks("toto.xls" ).Save

n°756696
pumpkin031​2
Posté le 08-06-2004 à 15:57:04  profilanswer
 

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

n°756738
Myway
Posté le 08-06-2004 à 16:12:44  profilanswer
 

JihemAir a écrit :

Workbooks("toto.xls" ).Save


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

n°756741
Myway
Posté le 08-06-2004 à 16:13:02  profilanswer
 

pumpkin0312 a écrit :

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


OK merci, je note  :)

n°756743
JihemAir
Je sais pas
Posté le 08-06-2004 à 16:14:43  profilanswer
 

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).

n°756778
Myway
Posté le 08-06-2004 à 16:28:29  profilanswer
 

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  :??:

n°756827
JihemAir
Je sais pas
Posté le 08-06-2004 à 16:44:24  profilanswer
 

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

n°756840
k1200
Posté le 08-06-2004 à 16:49:51  profilanswer
 

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

n°756858
Myway
Posté le 08-06-2004 à 16:57:18  profilanswer
 

JihemAir a écrit :

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


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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [excel] enregistrement de la feuille

 

Sujets relatifs
Convertir des données en VBA vers Excel[excel]
Lire un enregistrement de longeur variable avec Get.[VBA] afficher mes données excel dans une listbox
Equivalent du type FLOAT en vba excelsubstitution variable vba excel
comment recuper les mail (mailto) contenu dans des images sous excelRunTime et message d'alerte lors de modif d'enregistrement
Initialisation des labels à partir d'un fichier excelcomment on insert un bouton dans une feuille exel ?
Plus de sujets relatifs à : [excel] enregistrement de la feuille


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR