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

Créer une discussion
  • 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 !

S'inscrire
C

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.
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Question Question
XL 2016 Erreur 438 lors de l'ouverture d'un fichier Excel sur un répertoire réseau.
Réponses
10
Affichages
488
Stephane21
S
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
2 K
Hutchy33
H
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
934
ChristianJ
C
A
  • Question Question
Microsoft 365 SCRIPT VBS / EXCEL
Réponses
3
Affichages
2 K
dysorthographie
A
  • Question Question
Microsoft 365 VBS / Macro
Réponses
3
Affichages
1 K
patricktoulon
  • Résolu(e)
Microsoft 365 Remplir un tableur Excel a partir d'un document Word
Réponses
2
Affichages
3 K
Azuveus
V
  • Question Question
XL 2010 VBA Macro : importer les 12 caractères suivant toutes les occurrences d'un mot sur une trame word dans excel
Réponses
9
Affichages
1 K
sousou
O
  • Question Question
XL 2016 Ouverture d'une feuille d'un fichier avec un bouton
Réponses
2
Affichages
819
Oriaux
O
  • Question Question
XL 2016 Ouvrir tous les fichier xlsm d'un même dossier
Réponses
5
Affichages
1 K
job75
  • Question Question
XL 2013 Automatisation publipostage avec word depuis excel
Réponses
3
Affichages
3 K
escouger
M
  • Question Question
Copie de fichier Word avec nom déterminé par cellules Excel
Réponses
2
Affichages
1 K
Mariano
M
C
  • Question Question
Ouverture d'un fichier Excel et Word depuis Visual Basic 2008
Réponses
3
Affichages
2 K
Staple1600
T
  • Question Question
tableau excel sur word
2
Réponses
19
Affichages
2 K
Yaloo
Y
L
  • Question Question
Piloter un document word avec un fichier Excel
Réponses
2
Affichages
2 K
lobita3
L
C
  • Question Question
Macro VBS pour ouvrir une cession AS400
Réponses
0
Affichages
758
Chahyd2010
C
C
  • Question Question
Lancer une ou plusieur macro .vbs depuis le bureau
2
Réponses
15
Affichages
4 K
JCGL
  • Question Question
Problème d'exécution d'une macro
Réponses
2
Affichages
2 K
flwozn
R
  • Question Question
copier des feuilles d'un fichier excel dans un word avec saut de page par feuille
Réponses
4
Affichages
1 K
rogber
R
M
  • Question Question
Fichier CSV
Réponses
3
Affichages
1 K
MajIsh
M
J
  • Question Question
problème excel vba ouverture nouveau fichier et renommer.
Réponses
0
Affichages
1 K
jibs
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…