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 10/08/2005, 15h13   #1
Invité de passage
 
Inscription : août 2005
Messages : 2
Détails du profil
Informations forums :
Inscription : août 2005
Messages : 2
Points : 0
Points : 0
Par défaut Excel dans word

Bonjour, j'ai un objet worksheet insèrer dans un fichier word, et je dois accéder à cet objet par VB, dois je le considèrer comme un tablleau ou comme une feuille excel?
belgiuman est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/08/2005, 08h56   #2
Candidat au titre de Membre du Club
 
Inscription : juillet 2004
Messages : 15
Détails du profil
Informations forums :
Inscription : juillet 2004
Messages : 15
Points : 13
Points : 13
A ta place je le considérerai comme une feuille excel (c'est plus humain)
Mais tu devrais prendre en considération aussi ceci : Si tu n'y met pas du tien pour etre plus clair, ne t'étonne pas que personne ne te réponde...
sinoo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/08/2005, 10h50   #3
Invité de passage
 
Inscription : août 2005
Messages : 2
Détails du profil
Informations forums :
Inscription : août 2005
Messages : 2
Points : 0
Points : 0
Bon alors, je vais essayer d'tere plus clair.

J'ai un fichier word contenant un bon de commande.

Dans se bon de commande y a divers champs et y a également ma commande avec la reference, description cout unitaire, cout total.
ma commande est une worksheet excel pour que les calculs des totaux soit fait automatiquement.

Mon but est d'atteindre les données de la worksheet excel, seulement je n'ai absolument aucune idée de comment je pourasi faire.
belgiuman est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/08/2005, 13h19   #4
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 779
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 779
Points : 16 855
Points : 16 855
Envoyer un message via Skype™ à bbil
inspire toi de ce code :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
Dim s As InlineShape
Dim w As Workbook 'Necessite d'activer références à Excel
For Each s In ActiveDocument.InlineShapes
 If InStr(1, s.OLEFormat.ClassType, "Excel") > 0 Then
     Set w = s.OLEFormat.Object
     '.... à partir de la j'ai un objet w qui pointe sur le 1° document excel trouvé
      Debug.Print w.Sheets(1).Range("A1") 'Lecture cellule A1...
      w.Sheets(1).Range("A2") = 3 ' ecriture dans cellule A2
 
     Exit For 'On arrêt le parcours...
  End If
Next
End Sub
bbil 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 02h24.


 
 
 
 
Partenaires

Hébergement Web