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