Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

  • Initiateur de la discussion Initiateur de la discussion Chahyd2010
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Chahyd2010

XLDnaute Nouveau
Bonjour a tous,

Pourriez-vous me dire comment écrire ceci en VBA car comme vous le voyez il est en VBS. Je ne sais pas le modifier.

Dim Xl
dim wk
Set Xl = WScript.CreateObject("EXCEL.application")
Xl.Visible = True
set Wk = Xl.workbooks.open("C:\Users\Nous\Desktop\test 01.xlsm")
Xl.Run "Macro2"
Xl.Run "Macro3"
xl.run.Cells.Select
xl.run.Selection.Copy
xl.run.Workbooks.Add
xl.run.Cells.Select
xl.run.ActiveSheet.Paste
xl.run.CutCopyMode = False
xl.run.ActiveWorkbook.SaveAs ("D:\test.xlsx" )
AppExc.Quit
Set AppExc = Nothing
wk.close

L'exemple ci-dessus et pour l'ouverture d'un fichier excel mais si je veut ouvrir un fichier word comment faire.
Je suis sous Excel 2007.

D'avance merci pour votre aide.
 
Re : Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

Bonjour Chahyd2010,

Peut être avec cette macro :

VB:
Sub copie()
Workbooks.Open "C:\Users\Nous\Desktop\test 01.xlsm"
Call Macro2
Call Macro3
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("D:\test.xlsx")
ActiveWorkbook.Close
Application.Quit 'Si tu veux fermer Excel complètement
End Sub

A+

Martial
 
Re : Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

Bonjour à tous,

Yaloo : il me semble que notre ami souhaite ouvrir un document Word en VBS avec le même type de code.

A+ à tous
 
Re : Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

Bonjour à tous,

Peux-tu essayer :

VB:
Private Sub Ouvre_Doc_Word()

Dim DocApp As Word.Application
Dim WDoc As Word.Document
Set WApp = CreateObject("Word.Application")
Set WDoc = WDoc.Documents.Open("C:\Test.doc")
DocApp.Visible = True
End Sub

Avec moult réserves...

A+ à tous
 
Re : Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

Bonjour à tous

Une autre façon d'ouvrir un fichier Word à partir d'Excel
Code VBA:
Sub a()
Dim fichier$
fichier = "C:\Temp\toto.docx" 'adapter selon besoin
ActiveWorkbook.FollowHyperlink fichier, , True
End Sub
 
Re : Ouverture d'un fichier Excel et Word depuis Visual Basic 2008

Bonjour a tous et merci pour vos réponses.

Malgré les codes proposés je ne parviens toujours pas résoudre mon problème.

ci-joint un imprimé écran des codes écris sur Visual Basic et les erreur sont signalées en bas de page.

Je précise que je souhaiterais exécuter se code a partir d'un bouton.

😕
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
2 K
  • Question Question
Microsoft 365 VBS / Macro
Réponses
3
Affichages
1 K
Réponses
3
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…