Posez votre question Signaler

Coller un tableau excel copié sur une feuille word "en format paysage" et après [Résolu]

Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
 - - Dernière réponse : kg_online
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
 - 11 août 2006 à 02:40
Visual Basic 6 Posez votre question Signaler
Bonsoir tout le monde,

J'ai réussi à copier un tableau excel et à le coller sur un document word mais je suis bloqué car :

*  Vue que les colonnes du tableau sont variables, je souhaiterai coller le tableau en paysage
*  Aussi, aprés avoir copier le tableau, quand je le colle sur le document word ça ecrase le titre que j'avais déjà insérer.Alors que je souhaiterai que le collage du tableau se fasse juste après mon titre qui est le signet "titre".

Voici mon bout de code.
Dim MyWord As Word.Application<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

 Dim pathdocu As String

   

    Set MyWord = New Word.Application

       

     pathdocu = App.Path & ""

 

 

''''''''''''''''Copier et coller le tableau excel sur word''''''''''''''

 

      'Selection du nombre de tableau en fonction des colonnes

  

     Select Case j

    

            Case 1

            appxl.Worksheets("Feuil1").Range("A1:B13").Copy

            Case 2

            appxl.Worksheets("Feuil1").Range("A1:C13").Copy

            Case 3

            appxl.Worksheets("Feuil1").Range("A1:D13").Copy

            Case 4

            appxl.Worksheets("Feuil1").Range("A1:E13").Copy

            Case 5

            appxl.Worksheets("Feuil1").Range("A1:F13").Copy

            Case 6

            appxl.Worksheets("Feuil1").Range("A1:G13").Copy

            Case Else

    

     End Select

 

    With MyWord

  

        .Documents.Open (pathdocu & "Document.doc")

        .Visible = True

 

        ' Colle les données dans Word

 

        .ActiveDocument.Bookmarks("titre").Range.Text = Label40

 

‘’’’’’’’’’’’’’’’’’’’’’’’’INSERER LE TABLEAU APRES LE TITRE’’’’’’’’’’’’’’’’’

 

       .ActiveDocument.Range.Paste

    End With

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

Merci d'avance!!!
Afficher la suite 

4 réponses

Meilleure réponse
Signaler Commenter la réponse de mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 16
3
Merci
Salut, essaie cette procédure :

Dim MyWord As Word.Application
Dim pathdocu As String
Dim MyDoc As Document
Dim j As Long

Set MyWord = New Word.Application

pathdocu = App.Path & ""

''''''''''''''''Copier et coller le tableau excel sur word''''''''''''''

'Selection du nombre de tableau en fonction des colonnes

Select Case j
Case 1: appxl.Worksheets("Feuil1").Range("A1:B13").Copy
Case 2: appxl.Worksheets("Feuil1").Range("A1:C13").Copy
Case 3: appxl.Worksheets("Feuil1").Range("A1:D13").Copy
Case 4: appxl.Worksheets("Feuil1").Range("A1:E13").Copy
Case 5: appxl.Worksheets("Feuil1").Range("A1:F13").Copy
Case 6: appxl.Worksheets("Feuil1").Range("A1:G13").Copy
End Select

With MyWord
Set MyDoc = .Documents.Open (pathdocu & "Document.doc")
.Visible = True
End With
' Colle les données dans Word

With MyDoc
.PageSetup.Orientation = wdOrientLandscape
.Bookmarks("titre").Range.Text = Label40
MyWord.Selection.TypeParagraph
?????????????????????????INSERER LE TABLEAU APRES LE TITRE?????????????????
.Range.Paste
End With

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 142 internautes nous ont dit merci ce mois-ci

Commenter la réponse de mortalino
Signaler Commenter la réponse de kg_online
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
0
Merci
Salut Mortalino,


Merci de ta réponse ça réduit à moitié mon blocage: ça colle bien le tableau en paysage mais il écrase jusqu'à présent le titre que je veux insérer avant le tableau.

Merci
Commenter la réponse de kg_online
Signaler Commenter la réponse de mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 16
0
Merci
Essaie en rajoutant la ligne :



With MyDoc
.PageSetup.Orientation = wdOrientLandscape
.Bookmarks("titre").Range.Text = Label40
MyWord.Selection.EndKey Unit:=wdLine ' *** rajoute cette ligne
MyWord.Selection.TypeParagraph
?????????????????????????INSERER LE TABLEAU APRES LE TITRE?????????????????
.Range.Paste
End With

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
Commenter la réponse de mortalino
Signaler Commenter la réponse de kg_online
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
0
Merci
Je l'ai ajouté mais ça écrase jusqu'à présent le titre.Désolé

En fait le problème est que juste avant de coller le tableau il y'a comme une repositionnement du curseur au début du texte.

Merci
Commenter la réponse de kg_online
Répondre Posez votre question