Imprimer un document par macro

[christ]

Bonjour,

me revoici pour un probleme que je rencontre;
je voudrai imprimer une fiche via une macro mais des que je la lance il me met erreur d'execution '450' ...... si qq pouvait m'aider ce serait super sympa
le but c'est de prendre des données sur une plage de cellule et de les "importer" sur une autre feuille qui va imprimer un bon de livraison
voici le code :

Sheets("nom_de_la_feuille").Range.Value("A4", "v4") = Sheets("nom_de_la_feuille_a_imprimer").Range.Value("A" & ligne, "v" & ligne)

merci a vous par avance

christ

 

[Pascal76]

Bonjour

Essaies plutôt comme ceci

Sheets("nom_de_la_feuille").Range("A4:v4").Value = Sheets("nom_de_la_feuille_a_imprimer").Range("A" & ligne & ":v" & ligne).Value

Pascal

 

[Munchkin]

c'est plutot ca Christ

Sheets("nom_de_la_feuille").Range("A4", "v4") = Sheets("nom_de_la_feuille_a_imprimer").Range("A" & ligne, "v" & ligne)

voilà
Munchkin

 

[Munchkin]

Oups, j'ai oublié les ;

Pascal l'a fait

Munchkin

 

[Pascal76]

Oups

Ah oui zut je suis parti sur un plage au lieu de cellules non adjacentes d'où le : au lieu de la virgule

M'enfin

Pascal

 

[Pascal76]

alors avec cellules non adjacentes

Sheets("nom_de_la_feuille").Range("A4,v4").Value = Sheets("nom_de_la_feuille_a_imprimer").Range("A" & ligne & ",v" & ligne).Value

On va y arriver

Pascal

 

[christ]

merci bien pour vos réponses si rapide mais un petit souci les valeurs qui se trouve dans le nom_de_la_feuille ne se repercute pas sur nom_de_la_feuille_a_imprimer (cellule par cellule ) :--(( pas compris peut etre du oublier qq chose ....dsl
pour imprimer c'est bien ca ?
'Sheets("nom_de_la_feuille_a_imprimer").PrintOut Copies:=1, Collate:=True

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

'Sheets("le nom_de_la_feuille").Select

merci a vous

 

[Pascal76]

Dan sl'exemple que tu donnais tu récupérais les données de la feuille "nom_de_la_feuille_a_imprimer" et tu les copiais dans la feuille "nom_de_la_feuille".

Il semble que ce soit l'inverse que tu veux faire.
Donc ta formule devient

Sheets("nom_de_la_feuille_a_imprimer").Range("A4,v4").Value = Sheets("nom_de_la_feuille").Range("A" & ligne & ",v" & ligne).Value

Pascal

 

[christ]

oui exact c'est bien ca je suis vraiment dsl de ne pas l'avoir vu tout seul
merci bcp pascal pour ta patience
ca marche nickel