Discussion :

[Wenth]

Bonjour à tous, j'ai déjà eu l'occasion d'avoir un petit coup de pouce venant de ce forum, et cela m'avait grandement aidé à l'époque, je me retourne de nouveau vers vous aujourd'hui pour deux petits détails.

Le titre est relativement clair, je cherche à exporter des tableaux Excel sur Word via une macro VBA :

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
Sub Passage_Excel_Word()
 
    Sheets("ANAH 0").Select
    typeapart = 0
    typeapart = InputBox("Combien y a t'il de types d'appartements différents ?")
    typeapart = typeapart
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
    Dim varDoc As Object
    Set varDoc = CreateObject("Word.Application")
    varDoc.Visible = True
 
    Sheets("ANAH 0").Range(Cells(8, 1), Cells(10, typeapart + 1)).Copy
        varDoc.Documents.Add
    varDoc.Selection.Paste
 
        Sheets("ANAH 0").Range(Cells(33, 1), Cells(40, typeapart + 1)).Copy
    varDoc.Selection.Paste
 
        Sheets("ANAH 0").Range(Cells(45, 1), Cells(55, typeapart + 1)).Copy
    varDoc.Selection.Paste
 
        Sheets("ANAH 0").Range(Cells(60, 1), Cells(70, typeapart + 1)).Copy
    varDoc.Selection.Paste
 
 
    varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
   Set varDoc = Nothing 'libere l'instance mémoire pile
 
End Sub

Deux problèmes avec cette macro :
1. Les tableaux sont à la suite les uns des autres mais au final ne font plus qu'un. Il faut que j'indique un espace entre chaque tableau mais je sais pas comment l'exprimer au doc word.

2. Les tableaux sont certes copiés collés mais dépassent du cadre de la feuille word, je sais qu'il existe une fonction ajuster automatiquement mais je ne sais pas le retranscrire en vba (pour chaque tableau). J'ai trouvé ça sur le site microsoft : "ActiveDocument.Tables(1).AutoFitBehavior" mais cela ne me mène à rien

Si quelqu'un peut me lancer des pistes, cela sera très sympa.

Merci à vous !

[kiki29]

Salut, regarde ici.