Macro de Tableau Excel vers Word

Macro de Tableau Excel vers Word - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2007 à 10:42:25    

Bonjour a tous
 
J'ai un tableau Excel avec Nom et Prenom et ville
je voudrais a chaque fin de ligne inserer une macro qui me permettrai d'imprimer  
dans une feuille de style de word les variables nom prenom et ville de la ligne sur la quelle la macro est presente et lancer automatiquement l'impression de cette feuille
 
exemple :
 
Mr "VARIABLE NOM" "VARIABLE PRENOM" loge dans la ville "Variable VILLE"
et participe a la course du 31/06/07  
pour la societe toto
 
Merci d'avance

Reply

Marsh Posté le 17-04-2007 à 10:42:25   

Reply

Marsh Posté le 17-04-2007 à 11:09:40    

Bonjour,
 
Est-il vraiement nécessaire de passer par word, peut être que tu peux faire la mise en page sur une autre feuille excel.
 
Dans ce cas la macro est plus simple

Reply

Marsh Posté le 17-04-2007 à 11:26:37    

si cela est possible pas de probleme  

Reply

Marsh Posté le 17-04-2007 à 12:03:21    

mais comment faire la macro
je n'ai jamais fais de VBA
 
As tu un exemple pr que je m'inspire un pe

Reply

Marsh Posté le 17-04-2007 à 13:46:56    


feuil1 colonne 1 : prenom
feuil1 colonne 2 : nom
feuil1 colonne 3 : ville
 
macro :
 
 

Sub trait()
ligne = ActiveCell.Row
feuille_liste = "feuil1"
prenom = Sheets(feuille_liste).Cells(ligne, 1)
nom = Sheets(feuille_liste).Cells(ligne, 2)
ville = Sheets(feuille_liste).Cells(ligne, 3)
txt1 = nom & " " & prenom & " loge dans la ville " & ville
txt2 = "et participe à la course du 31/06/07"
txt3 = " pour la société toto"
With Sheets("feuil2" )
    .Cells(1, 1) = txt1
    .Cells(2, 1) = txt2
    .Cells(3, 1) = txt3
End With
End Sub


 
Selectionne un nom  
Alt F8
selectionne trait
clique sur execute ou fait retour
regarde feuille 2
imprime si besoin
 
ceci est une ébauche à toi d'adapter selon tes besoins
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed