- Visual Basic / VB.NET : Impression page etiquette avec code bar ean13 - CodeS SourceS
- Gestion commerciale à partir d'une base acces
- PHP : Genxml : génère un document xml à partir d'une base de données. -
- ASP / ASP.NET : Gestion commerciale à partir d'une base acces - CodeS SourceS
- C# / .NET : Génération d'un fichier texte à partir d'une base de donnée
Impression d'étiquettes à partir d'une base ACCESS et à travers VB6 [Résolu]
Signaler
moomoonette
cs_CanisLupus
- Messages postés
- 6
- Date d'inscription
- dimanche 5 novembre 2000
- Statut
- Membre
- Dernière intervention
- 20 janvier 2005
cs_CanisLupus
- Messages postés
- 3757
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
A voir également:
- Impression d'étiquettes à partir d'une base ACCESS et à travers VB6
- Chargement Treeview à partir d'une base access ✓ - Forum - VB.NET
- En utilisant (ado et word) fait des étiquette vidéo dans word à partir d'une base de donnée - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Remplir une liste déroulante à partir d'une base de données ✓ - Forum - PHP
- Publipostage à partir d'un base excel et d'un répertoire contenant des photos - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Visual Basic / VB.NET : Impression page etiquette avec code bar ean13 - CodeS SourceS - Guide
7 réponses
cs_CanisLupus
- Messages postés
- 3757
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
Salut,
Si tu sais le faire sous Word manuellement alors pas de problème.
Dans WORD :
Menu Outils/Macro/Nouvelle macro, tu déclenches l'enregistrement d'une macro, tu fais les manips puis tu arrête l'enregistrement.
Ensuite tu vas voir ce que contient la macro et tu l'optimises si tu veux.
Dans VB6, tu ajoutes la référence Microsoft Word x.x Object Library à ton projet et tu pourras te servir des objets WORD.
Quelques exemples de manipulation de WORD :
http://www.vbfrance.com/gma/source/publipostage
http://www.infini-fr.com/Sciences/Informatique/Langages/Imperatifs/VisualBasic/VbWord/
http://access.developpez.com/sources/?page=ole
Cordialement, CanisLupus
Si tu sais le faire sous Word manuellement alors pas de problème.
Dans WORD :
Menu Outils/Macro/Nouvelle macro, tu déclenches l'enregistrement d'une macro, tu fais les manips puis tu arrête l'enregistrement.
Ensuite tu vas voir ce que contient la macro et tu l'optimises si tu veux.
Dans VB6, tu ajoutes la référence Microsoft Word x.x Object Library à ton projet et tu pourras te servir des objets WORD.
Quelques exemples de manipulation de WORD :
http://www.vbfrance.com/gma/source/publipostage
http://www.infini-fr.com/Sciences/Informatique/Langages/Imperatifs/VisualBasic/VbWord/
http://access.developpez.com/sources/?page=ole
Cordialement, CanisLupus
cs_CanisLupus
- Messages postés
- 3757
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
J'ai oublié, la macro que tu auras créée, tu t'en inspire pour coder dans VB.
Cordialement, CanisLupus
Cordialement, CanisLupus
moomoonette
- Messages postés
- 6
- Date d'inscription
- dimanche 5 novembre 2000
- Statut
- Membre
- Dernière intervention
- 20 janvier 2005
Merci beaucoup...j'ai enfin décollé avec mes étiquettes..il ne reste qu'un problème..
La commande de la macro
WordBasic.MailMergePropagateLabel
n'est pas acceptée (message sous VB : cette commande n'est pas disponible).
Si j'enlève cette commande j'ai mes étiquettes feuille par feuille, comment traduirele génération du format sur toutes les étiquettes de la page.mon bout de code :
AppWord.ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\admin\Bureau\EcoleMusiqueTest\Ecole_Musique.mdb" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\admin\Bureau\EcoleMusiqueV050103\Ecole_Musique.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database" _
, SQLStatement:="SELECT * FROM `EtiquettesResponsables`", SQLStatement1:= _
"", SubType:=wdMergeSubTypeAccess
AppWord.ActiveDocument.Fields.Add Range:=AppWord.selection.Range, Type:= _
wdFieldAddressBlock, Text:= _
"\f ""<<_TITLE0_ >><<_FIRST0_>><< _LAST0_>><< _SUFFIX0_>>" & Chr(13) & "<<_COMPANY_" & Chr(13) & ">><<_STREET1_" & Chr(13) & ">><<_STREET2_" & Chr(13) & ">><<_POSTAL_>><< _CITY_>><<" & Chr(13) & "_STATE_>>"" \l 1036 \c 0 \e """""
WordBasic.MailMergePropagateLabel 'cette commande n'est pas disponoble
CommandBars("Task Pane").Visible = False
As-tu la solution à ce problème??
Merci de toute façon !!
La commande de la macro
WordBasic.MailMergePropagateLabel
n'est pas acceptée (message sous VB : cette commande n'est pas disponible).
Si j'enlève cette commande j'ai mes étiquettes feuille par feuille, comment traduirele génération du format sur toutes les étiquettes de la page.mon bout de code :
AppWord.ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\admin\Bureau\EcoleMusiqueTest\Ecole_Musique.mdb" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\admin\Bureau\EcoleMusiqueV050103\Ecole_Musique.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database" _
, SQLStatement:="SELECT * FROM `EtiquettesResponsables`", SQLStatement1:= _
"", SubType:=wdMergeSubTypeAccess
AppWord.ActiveDocument.Fields.Add Range:=AppWord.selection.Range, Type:= _
wdFieldAddressBlock, Text:= _
"\f ""<<_TITLE0_ >><<_FIRST0_>><< _LAST0_>><< _SUFFIX0_>>" & Chr(13) & "<<_COMPANY_" & Chr(13) & ">><<_STREET1_" & Chr(13) & ">><<_STREET2_" & Chr(13) & ">><<_POSTAL_>><< _CITY_>><<" & Chr(13) & "_STATE_>>"" \l 1036 \c 0 \e """""
WordBasic.MailMergePropagateLabel 'cette commande n'est pas disponoble
CommandBars("Task Pane").Visible = False
As-tu la solution à ce problème??
Merci de toute façon !!
cs_CanisLupus
- Messages postés
- 3757
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
Essaie :
AppWord.WordBasic.MailMergePropagateLabel
à la place de
WordBasic.MailMergePropagateLabel
Cordialement, CanisLupus
AppWord.WordBasic.MailMergePropagateLabel
à la place de
WordBasic.MailMergePropagateLabel
Cordialement, CanisLupus
moomoonette
- Messages postés
- 6
- Date d'inscription
- dimanche 5 novembre 2000
- Statut
- Membre
- Dernière intervention
- 20 janvier 2005
j'avais essayé aussi mais le message est le même...commande non disponible ??