Rapport de message :*
 

Re: Copier un tableau Excel dans Word

Titre du sujet : Re: Copier un tableau Excel dans Word
par JackyAmiens le 06/09/2010 11:09:29

Bonjour,

Le code initialement proposé se plantait sur une l'instruction
PasteExcelTable False, False, False


Après recherche, j'ai élaboré le code suivant en m'inspirant de source internet.

Le code permet à partir d'excel de recopier une plage de cellule dans un nouveau document Word.


Sub proWord()
   
    Set fd = Worksheets("Devis")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne du devis
    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("Devis").Range("A1:H" & Limite + 4).Copy 'selection du tableau devis
                  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                                        
                                                       
                                                       
                                                       
 
Ce code répond à mon besoin d'aujourd'hui.

L'amélioration serait d'ouvrir un document Word existant et d'insérer le tableau  à un endroit spécifique par l'usage d'un signet.

J'espère avoir libérer correctement les ressources ouvertes en VBA ( le document word est visible à l'écran souhait des utilisateurs)

Et merci pour les suggestions.

Cdlt, JackyAmiens