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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Vbs+excel :(

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu] Vbs+excel :(

n°1153356
julseb
Posté le 19-07-2005 à 10:08:45  profilanswer
 

Bon jour  ;)  
 
voila j'essaye de faire un .VBS pour ouvrir un fichier excel et cela ne fonctionne pas j'aurais besoin d'un peu de lumiere svp. Voici le code:
 
'Déclaration des variables
Dim appExcel As Excel.Application  
'Application Excel
Dim wbExcel As Excel.Workbook
'Classeur Excel
Dim wsExcel As Excel.Worksheet
'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application" )
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Testo\test.xls" )  
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)  
 
wbExcel.Close
'Fermeture du classeur Excel
appExcel.Quit
'Fermeture de l'application Excel
 
'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
 
Merci d'avance


Message édité par julseb le 27-07-2005 à 07:51:07
mood
Publicité
Posté le 19-07-2005 à 10:08:45  profilanswer
 

n°1153738
mohax007
t inquiete biquette
Posté le 19-07-2005 à 14:40:24  profilanswer
 

salut je suis egalement debutant en vbs et moi je te conseillerais d enlever tous les AS... lors tu declare tes variables.
exple: pour Dim appExcel As Excel.Application  
             tu met plutot ca Dim appExcel
 

n°1153749
jnauche
Posté le 19-07-2005 à 14:57:10  profilanswer
 

mohax007 a écrit :

salut je suis egalement debutant en vbs et moi je te conseillerais d enlever tous les AS... lors tu declare tes variables.
exple: pour Dim appExcel As Excel.Application  
             tu met plutot ca Dim appExcel


 
 
Pour ouvrir word je fais
 
objWord.Documents.Add(path)
je pense que plutot que de faire open tu devrais faire un "add" comme moi
Enfin tente

n°1153755
cole
Posté le 19-07-2005 à 15:04:29  profilanswer
 

Pour créer un nouveau fichier fait çà:
Oublie pas de cocher la référence excel
     
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application" )
    Set xlBook = xlApp.Workbooks.Add
   
'Ajouter une feuille de calcul nommée nb_interventions
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "nv_feuille"
    xlBook.Sheets("nv_feuille" ).Select
'enregistre
xlBook.SaveAs ("D:\test.xls" )
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

n°1153779
julseb
Posté le 19-07-2005 à 15:37:38  profilanswer
 

bon bah ok jvé voir avec cela
 
Encor merci à  vous
 
et comment on peut inserer une ligne en vbs dans un fichier Excel


Message édité par julseb le 19-07-2005 à 15:49:58
n°1153838
piloupy
Posté le 19-07-2005 à 16:21:53  profilanswer
 

ca va aller a la ligne 4, decaler le contenu vers le bas pour inserer une nouvelle ligne.
 

Set objExcel = CreateObject("Excel.Application" )
Set objWorkbook = objExcel.Workbooks.Open("C:\scripts\test.xls" )
 
objExcel.Rows("4:4" ).Select
objExcel.Selection.Insert
 
objExcel.Visible = True


 
piloupy

n°1153879
julseb
Posté le 19-07-2005 à 16:51:41  profilanswer
 

merci piloupy pour ton  aide :D

n°1153918
julseb
Posté le 19-07-2005 à 17:07:36  profilanswer
 

comment puis-je centrer tout les elements de la ligne 1 ?

n°1154712
piloupy
Posté le 20-07-2005 à 14:05:49  profilanswer
 

julseb : tu as trouve la reponse a ta question ?
 
J'ai cherche, mais j'ai pas trouve ...
 
piloupy

n°1154732
julseb
Posté le 20-07-2005 à 14:17:56  profilanswer
 

non toujours po :P pourtant je cherche sur google mais rien encore :)

mood
Publicité
Posté le 20-07-2005 à 14:17:56  profilanswer
 

n°1158844
cole
Posté le 25-07-2005 à 11:19:11  profilanswer
 

C'est pas dur tu fait comme moi. Quand je connais pas j'enregistre la macro de se que je veut faire. tu clique dans le menu sur outils, macro puis nouvelle macro. Ensuite tu fait ce que tu veut et quand t'as fini tu clique sur le carré dans la barre d'outils macro pour arrêter l'enregistrement. Ensuite tu fais un petit Alt+F11 et tu vas voir le code après copier, coller .... :-)


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

  [Résolu] Vbs+excel :(

 

Sujets relatifs
[RESOLU]affichage bonne identifiant dans tableau[VBS] Redimensionner un tableau a plusieurs dimensions
[Résolu] contenu de textbox[resolu][VB EXCEL]pb de création macro
Création d'une liste déroulante [résolu][Excel] Sauvegarde automatique avancée
[EXCEL] entrées / sorties[VBS/EXCEL] Répondre à une MsgBox
[VBS] Ouvrir un fichier excel dans une feuille spécifique [Résolu] 
Plus de sujets relatifs à : [Résolu] Vbs+excel :(


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