IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Ouvrir un fichier excel,word..


Sujet :

VBScript

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    277
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 277
    Points : 141
    Points
    141
    Par défaut Ouvrir un fichier excel,word..
    Pour info j'ai un besoin particulier et du coup je me lance en vb script.
    Est-il possible de lancer l'ouverture d'un document excel ou word, juste en connaissant son emplacement ? Si oui, quelle est cette commande ?

  2. #2
    Rédacteur

    Profil pro
    Inscrit en
    Avril 2004
    Messages
    94
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 94
    Points : 448
    Points
    448
    Par défaut
    FAQ VBS => http://vb.developpez.com/faqvbs/?page=II.3#vbsCreatexls

    Un exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Function OuvreExcel(ByVal FichierXLS)
    		Const xlCalculationManual=-4135 , xlCalculationAutomatic=-4105
    		Dim objExcel , objWorkbook
    		Set objExcel = CreateObject("Excel.Application")
    		Set objWorkbook = objExcel.Workbooks.Open( FichierXLS )
     
    		objExcel.Visible = False
    		'objExcel.ScreenUpdating = False
    		'objExcel.Calculation = xlCalculationManual
     
    		objWorkbook.Worksheets("Feuille_1").Cells(1,1).Value = "MaString"
     
    		'objExcel.ScreenUpdating = True
    		'objExcel.Calculation = xlCalculationAutomatic
     
    		objWorkbook.Close True 'quitte en sauvant
     
    		objExcel.quit
    		Set objWorkbook = Nothing
    		Set objExcel = Nothing	
    End Function

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    277
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 277
    Points : 141
    Points
    141
    Par défaut
    Merci pour cette reponse... J'aurais aussi besoin d'ouvrir des documents word, du coup il faut mettre quoi a la place de worlbooks ?

    Par ailleurs, j'ai vu que la méthode Createobject d'un WScript.Shell il est possible d'ouvrir un programme externe, mais sais tu comment préciser un fichier particulier a ouvrir ?
    En gros comment simuler le double click sur un document ?

  4. #4
    Rédacteur

    Profil pro
    Inscrit en
    Avril 2004
    Messages
    94
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 94
    Points : 448
    Points
    448
    Par défaut
    Un exemple parmis d'autre sur le forum VbScript
    http://www.developpez.net/forums/d75...d-application/

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. difficulté à ouvrir mes fichier excel et word
    Par presser dans le forum Windows XP
    Réponses: 1
    Dernier message: 22/04/2010, 17h46
  2. [Free Pascal] Ouvrir un fichier Excel ou Word en Pascal
    Par Malek_moly dans le forum Free Pascal
    Réponses: 7
    Dernier message: 19/02/2010, 13h14
  3. Ouvrir un fichier Excel à partir de Word (VB)
    Par Tibaldus dans le forum VBA Word
    Réponses: 1
    Dernier message: 19/09/2007, 12h50
  4. Ouvrir un fichier excel sous word
    Par xenografter dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 20/12/2006, 11h30
  5. [VBA] Word - Comment ouvrir un fichier excel
    Par le_sonic dans le forum VBA Word
    Réponses: 5
    Dernier message: 28/12/2005, 10h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo