Fermer Word en vba
Fermé
aeromarche
Messages postés
8
Date d'inscription
vendredi 19 août 2011
Statut
Membre
Dernière intervention
26 août 2011
-
21 août 2011 à 15:21
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 31 août 2011 à 16:55
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 31 août 2011 à 16:55
A voir également:
- Fermer Word en vba
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word gratuit - Guide
- Signature électronique word - Guide
3 réponses
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
28 août 2011 à 10:51
28 août 2011 à 10:51
Bonjour,
Application.DisplayAlerts = False
A essayer
Bonne suite
Application.DisplayAlerts = False
A essayer
Bonne suite
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
28 août 2011 à 23:20
28 août 2011 à 23:20
Après :
AppWord.Visible = True
Essayer
AppWord.DisplayAlerts = False
AppWord.Visible = True
Essayer
AppWord.DisplayAlerts = False
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
29 août 2011 à 00:17
29 août 2011 à 00:17
Désolé, ça fonctionne pas,
mais ceci fonctionne :
mais ceci fonctionne :
Option Explicit Private Sub CommandButton1_Click() Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim objTexte As DataObject Dim Text As String Text = "C:\Users\Toshiba\Desktop\Actuel\doc.docx" Set wdApp = CreateObject("Word.Application") Set wdDoc = wdApp.Documents.Open(Text, ReadOnly:=True) With wdApp .DisplayAlerts = False .Visible = True .Selection.WholeStory .Selection.Copy End With ThisWorkbook.Worksheets("Feuil1").Paste Application.CutCopyMode = False Set objTexte = New DataObject objTexte.SetText "" objTexte.PutInClipboard Set objTexte = Nothing wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing End Sub
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
31 août 2011 à 16:55
31 août 2011 à 16:55
Bonjour,
Application.DisplayAlerts = False
J'ai verifie et ca marche pour excel et pas en pour Word
Par contre merci pour le code vidage Presse-Papier
'Vidage Clipboard (Presse-Papier)
Set objTexte = New DataObject
objTexte.SetText ""
objTexte.PutInClipboard
Set objTexte = Nothing
Application.DisplayAlerts = False
J'ai verifie et ca marche pour excel et pas en pour Word
Par contre merci pour le code vidage Presse-Papier
'Vidage Clipboard (Presse-Papier)
Set objTexte = New DataObject
objTexte.SetText ""
objTexte.PutInClipboard
Set objTexte = Nothing