Discussion :

[nsqualli]

Bonjour tout le monde,

j'ai pas mal cherché une solution à mon problème mais j'ai rien trouvé, j'espère que vous pouvez m'aider.

je suis entrain de faire des macros pour lister les fichiers et les sous-dossiers d'un certain dossier (le chemin de ce dernier je le dois renseigne dans une Form que j'ai créée), l'objectif est d'exporter cette liste qui s'affiche au début dans la feuille Excel vers un document WORD avec une macro Excel.

Est-ce que c'est possible? et si oui merci de me dire comment je peux faire cela.
Sinon est ce qu'il y'a un moyen pour détourner la solution de la macro mais que ça soit automatique.

Merci par avance

[nsqualli]

Bon apparemment y'a personne qui a une réponse, de toute façon voila une solution que j'ai essayé et qui marche pour mon besoin:

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
 
Sub Copier(Chemin, Nom_New)
 
Dim Chemin11 As String
Dim Nom_New1 As String
Dim Chemin_complet As String
 
Dim Der_Lig2 As Long
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Chemin11 = Chemin & "\"
Nom_New1 = Nom_New & ".doc"
Chemin_complet = Chemin11 & Nom_New1
 
'ouvre une session Word
Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    'crée un nouveau document
    Set WordDoc = WordApp.Documents.Add
    'enregistre le nouveau doc
    WordDoc.SaveAs Chemin_complet
 
NomFeuille1 = ActiveSheet.Name
 
Der_Lig2 = Worksheets(NomFeuille1).Range("A" & Rows.Count).End(xlUp).Row
 
    'boucle sur toutes les lignes renseignées
    For j = 1 To Der_Lig2
 
        'copier les les lignes d'Excel dans le document Word
        Cells(j, 1).Copy
        WordApp.Selection.Paste
        WordDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
 
    Next j
 
Application.CutCopyMode = False
 
End Sub

Sinon voila un lien où il y'a une documentation assez interessante:
http://vb.developpez.com/faqvba/?page=3.7#WcreateDoc

Merci