Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 07/11/2006, 22h36   #1
Membre à l'essai
 
Inscription : juin 2006
Messages : 132
Détails du profil
Informations forums :
Inscription : juin 2006
Messages : 132
Points : 21
Points : 21
Par défaut Word: signets et tableau

Ok je veux exporter un recordset de VB et l'insérer dans mon document Word (dans un tableau).

Mon document est un template pré-sauvegardé et mon tableau est déjà créé (1 rangee,3 colonne) avec un signet à la premiere case, ma question est:

Comment je fais pour parcourir le tableau ou est mon signet? et créer une nouvelle rangée à chaque fois que je parcours mes 3 colonnes


merci à l'avance
maxtin est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/11/2006, 15h00   #2
Membre à l'essai
 
Inscription : juin 2006
Messages : 132
Détails du profil
Informations forums :
Inscription : juin 2006
Messages : 132
Points : 21
Points : 21
75% resolu, avec ceci:

Code :
1
2
3
4
5
6
7
8
  obWordApp.Bookmarks("bookname").Range.Cells(1).Select
 
 obWordApp.Selection.Range.Cells(1).Range.Text = "cell1"
 obWordApp.Selection.Range.Cells(1).Next.Select
 obWordApp.Selection.Range.Cells(1).Range.Text = "cell2"
.
.
.
mais ca crash lorsquil termine ma rangee (il crash au lieu den créer une nouvelle)

à laide!
maxtin est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/11/2006, 17h39   #3
Rédacteur
 
Homme michel Tanguy
Inscription : août 2005
Messages : 3 317
Détails du profil
Informations personnelles :
Nom : Homme michel Tanguy
Localisation : France, Isère (Rhône Alpes)

Informations professionnelles :
Secteur : Industrie

Informations forums :
Inscription : août 2005
Messages : 3 317
Points : 10 706
Points : 10 706
bonjour

pour ajouter une ligne dans le 1er tableau du document (si j'ai bien compris ta demande):


Code :
obWordApp.Selection.Tables(1).Rows.Add

pour ajouter une colonne

Code :
obWordApp.Selection.Tables(1).Columns.Add


michel
SilkyRoad est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h49.


 
 
 
 
Partenaires

Hébergement Web