Discussion :

[mogo107]

Bonjour, je voudrais un coup main pour modifié ma macro qui importe mon tableau excel vers word,

j'aimerais modifié la macro qui importe mon tableau excel vers une autre feuille et je voudrais faire un collage avec seulement les valeurs

voici mon fichier

[EngueEngue]

Bonjour mon ami,

Ton code est sale! Il mérite un bon ménage. Pour copier vers une nouvelle feuille

Créer la feuille, copier ce que tu veux , selectionner ton range d'arrivée et coller de la sorte:

Code :

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

Selection.PasteSpecial Paste:=xlPasteValues

Si tu étais un peu plus précis on pourrait mieux t'aider.

[mogo107]

Daccord, donc voici ma macro

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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
Dim varDoc As Object
        Set varDoc = CreateObject("Word.Application")
                  varDoc.Visible = True
                  Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
                  varDoc.Documents.Add
                  varDoc.Selection.Paste 'recopie dans le document Word
 
 
                  varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
        Set varDoc = Nothing 'libere l'instance mémoire pile
        Set fd = Nothing
 
End Sub

je voudrais modifie l'applications word par celle de excel et ainsi que sa destinations c'est à dire dans une feuille excel

meric d'avance