Discussion :

[Clement Demin]

Yo, je voudrais qu'au lieu de me créer un nouveau document word, l'explorateur des fichiers s'ouvre et me laisse choisir dans quel document je souhaite copier mon excel. J'ai essayé Application.Getopenfilename à la place de Documents.Add() sans grand succès.

Merci d'avance !

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub ExcelToWord()
 
   'Using Early Binding
 
    Dim wordApp As Word.Application
 
    Dim mydoc As New Word.Document
 
 
 
 
 
    'Creating a new instance of word only if there no other instances
 
   Set wordApp = Word.Application
 
 
 
 
 
    'Making word App Visible
 
    wordApp.Visible = True
 
 
 
    'Creating a new document
 
 
    Set mydoc = wordApp.Documents.Add()
 
 
 
 
    'copying the content from excel sheet
 
 
    ThisWorkbook.Worksheets("Feuil1").Range("A1:g20").Copy
 
 
    'Pasting on the document
 
 
    mydoc.Paragraphs(1).Range.PasteExcelTable _
 LinkedToExcel:=False, _
 WordFormatting:=False, _
 RTF:=False
End Sub

[weetoz]

Beuhaaaar aussi,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
Dim NomduFichier
NomduFichier = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

[Clement Demin]

Du coup j'essaie ça, mais j'ai l'erreur "utilisation incorrecte de la propriété" quand je veux attribuer mon document choisi à la variable mydoc

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
Sub OpenDocFromExcel1()
    Dim wordapp
    Dim mydoc As Word.Document
 
    Set wordapp = CreateObject("word.Application")
  mydoc = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
 
    wordapp.Visible = True
 ThisWorkbook.Worksheets("Feuil1").Range("A1:g20").Copy
 
 
 mydoc.Paragraphs(1).Range.PasteExcelTable _
 LinkedToExcel:=False, _
 WordFormatting:=False, _
 RTF:=False
 
End Sub

[Samidou Midou]

Coucou,
Je ne suis pas expert mais j'ai l'impression que tu dimensionnes mal ta variable.
Application.GetOpenFilename te renvoie un lien complet du style "C:\Users\SamidouMidou\Desktop\tondocument.docx"

il faut donc que tu passes par une variable string
Dim mydoc As String

Et pour ton doc word, tu ouvres l'application, mais si tu n'ouvres pas le fichier word tu ne pourras pas écrire dedans, il te manque un :
wordapp.Documents.Open mydoc

Pour la suite je ne sais pas comment coller directement dans word.
En espérant avoir un peu participé à la solution.

[Clement Demin]

Hello Samidou, ta solution démarre correctement mon Word mais cela ne résout pas le problème d'attribution. J'ai besoin d'un attribut document pour pouvoir utiliser .Paragraphs(1).Range.PasteExcelTable. J'arrive à définir la variable en créant un nouveau document via Documents.Add() mais pas via Documents.Open :/

[halaster08]

Bonjour,

Essaye comme ça:

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
Sub OpenDocFromExcel1()
    Dim wordapp
    Dim mydoc As Word.Document
 
    Set wordapp = CreateObject("word.Application")
Application.GetOpenFilename FileFilter, FilterIndex, Title, ButtonText, MultiSelect
 
    wordapp.Visible = True
  Set mydoc = ActiveDocument
 
 ThisWorkbook.Worksheets("Feuil1").Range("A1:g20").Copy
 
 
 mydoc.Paragraphs(1).Range.PasteExcelTable _
 LinkedToExcel:=False, _
 WordFormatting:=False, _
 RTF:=False
 
End Sub

[Clement Demin]

J'ai réussi avec

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
Sub OpenDocFromExcel1()
    Dim wordapp As Word.Application
    Dim dir As String
    Dim mydoc As Word.Document
 
 
    Set wordapp = CreateObject("word.Application")
    dir = Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
 
    wordapp.Visible = True
    wordapp.Documents.Open dir
    Set mydoc = wordapp.Documents.Open(dir)
    ThisWorkbook.Worksheets("Feuil1").Range("A1:g20").Copy
 
    mydoc.Paragraphs(1).Range.PasteExcelTable _
 LinkedToExcel:=False, _
 WordFormatting:=False, _
 RTF:=False
 End Sub