XL 2010 Problèmes lors de transfert de données vers word

thespeedy20

XLDnaute Occasionnel
Bonjour aux membres de ce forum

Je dois transférer des données excel vers un fichier word, j'y arrive mais pas au bon endroit... je dois commencer au n°1 (et je suis au dessus dans le premier tableau. dans le deuxième une erreur au niveau de l'importation que je connais pas.

Pourriez-vous me donner un petit coup de main...(Fichier zip = fichier word)


Merci d'avance

Olivier
 

Pièces jointes

  • Transfert.xlsm
    20.9 KB · Affichages: 56
  • Test.zip
    13.9 KB · Affichages: 49

Paf

XLDnaute Barbatruc
Bonjour,

pour remplir le tableau word, vous utilisez dans une boucle (NoLig) variant de 2 à 25., pour chaque colonne
.Columns(2).Cells((NoLig + 1) - debut + 2).Range.Text = FL1.Range("A" & NoLig)

à la première itération, (NoLig + 1) - debut + 2) = 2 + 1 - 1 + 2 soit 2 ; on commence donc à écrire dans le tableau en ligne 2
pour commencer en ligne 3 , NoLig + 1 devrait convenir.

et pour éviter une ligne de code par colonne:
Code:
            .Columns(2).Cells((NoLig + 1)).Range.Text = FL1.Range("A" & NoLig)
            .Columns(3).Cells((NoLig + 1)).Range.Text = FL1.Range("B" & NoLig)
            .Columns(4).Cells((NoLig + 1)).Range.Text = FL1.Range("C" & NoLig)
             ....

on pourrait utiliser une boucle:

VB:
    For NoLig = debut To fin
        With Tablo
            For col = 1 To 7
                .Columns(col + 1).Cells((NoLig + 1)).Range.Text = FL1.Cells(NoLig, col)
            Next
        End With
    Next NoLig

A+
 

thespeedy20

XLDnaute Occasionnel
Bonjour Paf,

Cela fonctionne à merveille... merci beaucoup...
J'ai une petite demande, si ma liste dépasse 30 élèves dans word, il se met en erreur dans excel, est il possible de créer une règle qui crée automatiquement une nouvelle feuille(pour la 1er page et la 2ème) dans word ?

Merci d'avance

Olivier
 

thespeedy20

XLDnaute Occasionnel
Bonjour Pierre,

Merci pour cette version... elle fonction très bien....

Ici le registre élève est en deux parties, la 1er page avec les noms, prénoms, date de naissance et une seconde avec les adresses. je dois impérativement laisser le format de base( 2 pages)

Est-il possible de faire après le 30 élèves une nouvelle page avec nom, prénoms et une autre avec les adresses. avec une condition dans la macro excel ? afin que le format de base comme dans mon fichier soit respecté.

Merci d'avance Pierre

Olivier
 

thespeedy20

XLDnaute Occasionnel
Bonjour Pierre,

La procédure fonctionne bien, si ce n'est sur la deuxième page, le num est identique à la fin de la première et que les noms sont différents.
Au niveau de l'entête , il y a une différence de hauteur sur la deuxième page des noms , pourrait on ajouter la ligne vide comme sur le document original en dessous des entêtes.

Je te remercie encore pour le temps consacré...
Excellent Dimanche

Olivier
 

Discussions similaires

Statistiques des forums

Discussions
312 895
Messages
2 093 382
Membres
105 713
dernier inscrit
Karimov