Excel macros vba

**Zagat** · 04/10/2007, 07h32

Bonjour à tous, je ne suis pas développeur (connait pas trop ecxel ni vba)et je viens d'ertre engagez lundi donc meme si c'est pas mon job j'aurais voulu quand même leur remetre un resultat..enfin bref... voila le probleme

Projet :

Sur base d’un tableau Excel reprenant certaines données, il faudrait créer une macro qui serait en lien avec celui-ci.

1- Pour la colonne date -> faire en sorte que la date du jour apparaisse directement.
2- Lorsqu’on encodera le numéro de registre national, différentes données (qui se trouvent dans le tableau Excel de référence) doivent apparaître directement :
a. Nom
b. Prénom
c. Adresse
d. Téléphone / GSM
e. Centrale professionnelle

Date Registre National Nom Prénom Adresse Tél. Centrale Profes.

3- Au niveau de l’impression -> faire en sorte que les différentes données (Code barre, Numéro de registre national, Nom, Prénom, Adresse, Tél./GSM, Centrale professionnelle) s’impriment sur une fiche d’identification

4- Pour chaque Numéro de registre national, il faudrait créer un code barre. En effet, lorsqu’on va recevoir nos affiliés, on va scanner ce code barre ce qui nous permettra de gagner du temps.

Merci d'avance

**jpenja** · 04/10/2007, 09h00

tu devrais regarder du côté des fonctions Excel
1) affichage date dans ta cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AUJOURDHUI()

2)affichage auto des données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(tavaleurrecherchée;tatablematrice;n°decolonedelavaleuràafficher;vrai(proche)oufaux(exact))

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(a1;a1:a100;5;faux)

3)qu'appelle tu fiche d'identification?

**Zagat** · 04/10/2007, 09h07

Voila un exemplaire de fiche

NISS :

NOM :
Prénom :
Adresse :

Tél :
Centrale profes. :

Dates contrats : ____________

____________

Dates présentation : ____________

____________

____________

____________

____________

____________

Ps: pour le point 4 (code barre) c'est ok

**Drost** · 04/10/2007, 09h25

Bonjour,

En fait il faut que tu réalise un publipostage pour ta feuille d'identification. Mais attention tu dois réaliser la base de données ( pour ton publipostage ) sur un autre fichier excel ou créer la macro à partir de word vers excel.

Voici un petit exemple de code pour publiposter à partir d'un fichier excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim appWord As Word.Application
Dim docWord As Word.Document
 
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
 
Set docWord = appWord.Documents.Open("L:\Accounting\Expense Report\Expense Summary.doc")
 
docWord.MailMerge.OpenDataSource Name:="L:\Accounting\Expense Report\Expense Mailing.xls", _
SQLStatement:="SELECT * FROM [Publipostage$] WHERE  Total <> 0", _
SubType:=wdMergeSubTypeWord2003
 
    With docWord.MailMerge
        .Destination = wdSendToPrinter
 
        .SuppressBlankLines = True
 
    'fusion et selection
 
        With .DataSource
           .FirstRecord = wdDefaultFirstRecord
           .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
 
    End With
 
 docWord.Close

PS : Si tu débute en programmation utilise la fonction d'enregistrement de macro! il n'y a pas mieux pour apprendre à se servir de VBA

Bonne Journée

**Zagat** · 04/10/2007, 09h32

Merci, je vais déja essayer de me débrouiller avec ça.
mais pour tout dire je connais rien en prog en tout cas pas beaucoup se suis plus sur les réseaux( ingénieur système).

**Drost** · 04/10/2007, 10h25

N'hésites pas à reposter si tu as des petits soucis

je ferais mon possible pour t'aider

**Zagat** · 04/10/2007, 11h51

voila reste plus que l'impression, et me familliariser avec le publipostage

Merci à vous.

**Drost** · 04/10/2007, 12h04

POur l'impression c'est fait automatiquement donc pas de soucis c'est dans le code du publipostage. Te reste plus qu'a adapter le code du publipostage et ca devrai être bon pour toi^^

Cette partie pour etre exact^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With docWord.MailMerge
        .Destination = wdSendToPrinter
 
        .SuppressBlankLines = True

**Zagat** · 04/10/2007, 12h18

Y-a-t'il moyen avec le plublipostage d'utiliser un fichier excel comme base de données(je ne peux utiliser que excel pour la base de données).

Non ca va j'ai trouvé. encore merci.

**Zagat** · 05/10/2007, 11h44

Encore Merci Drost...
Si j'ai bien compris le code de l'impression via word et le publipostage, ca va imprimer toutes les personnes de la base de données!...

Ce pendant j'ai eu une nouvelle directive qui voudrait imprimer que une personne bien précise sélectioné par le registre national (champs que j'ai créé avec le publipostage).

Je vais expliquer ce que j'ai déjà fait.

on rentre le n° de registre national parcour le ficheir xls et les infos s'affichent si il existe. pas de problème à ce niveau là.
et il faudrait que la personne trouvées (donc les infos) s'imprime mais que celle là.

il y a surement une ligne de code qui fait une recherche (par publipostage) et selectionne cet enregistrement là.

**Drost** · 05/10/2007, 11h52

Hello

Je ne sais pas si c'est possible en programmation parce que j'ai contourné le probleme! En fait j'ai 2 fichiers xls, l'un avec ma base de données standard et l'autre ma base de donées pour le publipostage.
J'ai alors créer une macro qui via un filtre selectionne par un critere (pour toi ca peut être le numéro de registre nationnale), les lignes de ma base de données standard que je copie/colle dans la base publipostage. Ainsi j'avais juste l'impression que je souhaitais et pas la totalité.

En espérant que ca t'aide dans la réalisation de ton projet

Tchuss

**Zagat** · 05/10/2007, 12h02

Je pense que je suis dans le même cas que toi car le publipostage se fait à partir du fichier .xls

Quand j'ouvre mon word il me demmande une fusion avec le fichier xls eb question....enfin je crois que ca se passe comme ca....car je connais pas trop office.

**Drost** · 05/10/2007, 12h12

En fait ma macro est dans ma base de donée standard j'ouvre ma base de publipostage je colle les donnée que je veux utiliser, je ferme document, j'ouvre le document word puis ajoute ma base de publipostage en donnée source.
Il te faudra modifier les chemins ainsi que ta requete SQL.

PS: Fait attention que tu as bien activer les ressources Word ( Tools/references dans l'editeur VB)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim appWord As Word.Application
Dim docWord As Word.Document
 
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
 
Set docWord = appWord.Documents.Open("R:\Expense\Expense Summary.doc")
 
docWord.MailMerge.OpenDataSource Name:="R:\Expense\Expense Mailing.xls", _
SQLStatement:="SELECT * FROM [Publipostage$] WHERE  Total <> 0", _
SubType:=wdMergeSubTypeWord2003
 
    With docWord.MailMerge
        .Destination = wdSendToPrinter
 
        .SuppressBlankLines = True
 
    'fusion et selection
 
        With .DataSource
           .FirstRecord = wdDefaultFirstRecord
           .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
 
    End With
 
 docWord.Close
 Word.Application.Quit

**Zagat** · 09/10/2007, 10h10

Désolé pour le retard mais merci Drost.

Je me suis un peu compliqué la vie avec ce projet--> nouvelles directives:

Simplement sur la 3ieme feuille de excel j'ai fait la mise en page demandée.
donc en activant ma macro (ctrl+i) j'envoie les données sur la 3ieme feuille,
mais je voudrais qu'en plus d'envoyer les données cette meme feuille s'imprime(sur l'imprimantepar defaut--> comme si on faisaitfichier, imprimer,...)

J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Sheets("Feuil3").Select
        .Destination = wdSendToPrinter
 
        .SuppressBlankLines = True
 
End With

mais ca n'a pas l'air de marcher

Merci d'avance.

Ps: si je peux vous aider dans mon domaine(résaux) je m'en ferai un plaisir

**Drost** · 09/10/2007, 10h31

Salut Zagat!

J'espère que tu avances bien dans ton projet, le code que je t'ai donné permet d'imprimer dans un publipostage.

Pour imprimer une feuille voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Bonne Continuation

**Zagat** · 09/10/2007, 10h33

oui ca va tres bien le projet j'ai encore une semaine pour insérer la ligne de code. lol

Si j'ai plusieur imprimante: c'est printout 3 ?
si je veux utiliser la 3ieme imprimante de la liste de selection c'est ca?
ou alors mettre le nom de l'imprimante derrière Printout?

**Drost** · 09/10/2007, 10h49

Nan la cela t'imprimera 1 copie sur l'imprimante par defaut.

Je n'ai jamais eu à imprimer sur des imprimantes différentes... Je regarde cela et je te dis si cela est possible

**Drost** · 09/10/2007, 10h52

voici le code pour changer d'imprimante par defaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActivePrinter = "\\Aragorn\GEPRT_ACCOUNT on Ne02:"

Tu n'aura qu'a changer le chemin de l'imprimante !

PS: Je l'ai trouver en passant par l'enregistreur de macro^^ donc tu aurais pu le trouver tout seul! (même si ca ne me derange pad de t'aider !

)

**Zagat** · 09/10/2007, 11h02

Désolé pour le travail ue je te fais aire. mais merci pour tout
ca marche

Excel macros vba

Macros et VBA Excel

Discussions similaires

Partager

Partager