[déplace .NET -> VBA]exporter des données excel sur des signets word
fada131
Messages postés5Date d'inscriptionmercredi 10 octobre 2007StatutMembreDernière intervention10 août 2011
-
22 juil. 2011 à 16:29
fada131
Messages postés5Date d'inscriptionmercredi 10 octobre 2007StatutMembreDernière intervention10 août 2011
-
26 juil. 2011 à 09:18
Bonjour,
Voici mon problème je souhaite par le biais d'un commandbutton verifer des données selectionées ( via combobox, textbox et checkbox) d'une base de donnée, pour ensuite les envoyer sur un modèle word avec des signets crées pour chaque donnée.
Auriez-vous des modèles de programmation ceux que j'ai pu trouver sur internet et essayé d'adapter ne fonctionnent pas ( pas de problème de synthaxe apparemment) mais rien ne se lance, de plus apparemment je dois faire une gourde en programmant car lors de la sauvegarde le fichier excel devient corrompu
HELP ! lol
et merci beaucoup pour vos réponses
A voir également:
[déplace .NET -> VBA]exporter des données excel sur des signets word
fada131
Messages postés5Date d'inscriptionmercredi 10 octobre 2007StatutMembreDernière intervention10 août 2011 22 juil. 2011 à 16:44
j'avais ecris une prog dans ce genre la :
Private Sub EDIT_PROPAL_Click()
Dim combobox1 As String, combobox2 As String, combobox3 As String, textbox1 As String, textbox2 As String
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim xlSh As Worksheet
If combobox2 "Feuil3!(B6)" And combobox1 "Feuil3!(A10,A11)" And combobox3 = "FRC 0-15 DAYS" Then
'Affectation des données aux variables
Set xlSh = ActiveWorkbook.ActiveSheet
'Création d'un nouveau do***ent basé sur un modèle
Set oDoc = wApp.Documents.Add("C:\Users\vablard\Documents\dossiers commerciaux\propal\XXXXXX.dotm")
'Affectation de la valeur contenue dans la cellule A1 au premier signet du
oDoc.Bookmark("XXXX").Range.Text = textbox1
oDoc.Bookmark("XXXX").Range.Text = textbox2
oDoc.Bookmark("XXXX").Range.Text = combobox1
oDoc.Bookmark("XXXX").Range.Text = "feuil2! (B8)"
'Libération de l'objet xlSh
Set xlSh = Nothing
'Affichage de Word
end if
fada131
Messages postés5Date d'inscriptionmercredi 10 octobre 2007StatutMembreDernière intervention10 août 2011 26 juil. 2011 à 09:18
personne pour m'aider ?
de plus je viens de voir que le code pour affecter des données excel dans un texte enrichi (nommé) dans le template word que je viens d'ouvrir est faux. Avez-vous des codes en particulier ??