[Résolu] Vbs+excel :(

Vbs+excel :( [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 19-07-2005 à 10:08:45    

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
Reply

Marsh Posté le 19-07-2005 à 10:08:45   

Reply

Marsh Posté le 19-07-2005 à 14:40:24    

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
 

Reply

Marsh Posté le 19-07-2005 à 14:57:10    

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

Reply

Marsh Posté le 19-07-2005 à 15:04:29    

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

Reply

Marsh Posté le 19-07-2005 à 15:37:38    

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
Reply

Marsh Posté le 19-07-2005 à 16:21:53    

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

Reply

Marsh Posté le 19-07-2005 à 16:51:41    

merci piloupy pour ton  aide :D

Reply

Marsh Posté le 19-07-2005 à 17:07:36    

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

Reply

Marsh Posté le 20-07-2005 à 14:05:49    

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

Reply

Marsh Posté le 20-07-2005 à 14:17:56    

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

Reply

Marsh Posté le 20-07-2005 à 14:17:56   

Reply

Marsh Posté le 25-07-2005 à 11:19:11    

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

Reply

Sujets relatifs:

Leave a Replay

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