select file instead of creating one in custom VBA code

Version imprimable

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:

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

Beuhaaaar aussi,

Code:

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

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:

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

22/03/2022, 12h48
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. ;)
22/03/2022, 13h24
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 :/

Bonjour,

Essaye comme ça:

Code:

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

J'ai réussi avec

Code:

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