Créer/imprimer un état

[nak]

Bonjour à tous,

Je n'arrive pas à trouver une fonction pour créer un état de mon fichier.
J'ai un fichier 1.xls qui contient des données. Lorsque je lance une macro je voudrais ouvrir le fichier 2.xls puis transférer les données du fichier 1.xls (ex: A1 et C1) dans le fichier 2.xls (B10 et C10).
Ensuite je lance l'impression de mon fichier 2.xls
Et enfin je ferme mon fichier 2.xls sans sauvegarder.

Je souhaite utiliser deux fichiers pour pouvoir faire évoluer mon fichier "template"si nécessaire (2.xls)

Je vous joins mes fichiers exemple.
L'ouverture et l'impression fonctionne, seul le transfert de données me pose problème.
Pouvez vous m'aider SVP ?

Merci

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
'ouverture du fichier template
Workbooks.Open Filename:=ThisWorbooks.Patch & "2.xls"
'transfert sur le fichier template
Workbooks("2.xls").Worksheets("Feuil1").Range("B10").Value = Sheets("donnees").Range("A1")
Workbooks("2.xls").Worksheets("Feuil1").Range("C10").Value = Sheets("donnees").Range("C1")
'impression du fichier template
Workbooks("2.xls").Worksheets("Feuil1").Range("A1:E6").PrintOut Copies:=1, Collate:=True
'fermeture du fichier template sans sauvegarde
Workbooks("2.xls").Close False
End Sub

 

[stefan373]

Bonjour nak et le forum.

Voilà si cela vous convient, il vous faudra modifier le code pour ouvrir votre fichier Template, j'ai dodifier pour mes essais.🙂

A +

 

[nak]

Re : Créer/imprimer un état

merci stefan cela fonctionne bien 🙂

Chez moi j'ai inversé l'ouverture du fichier et la copie, parfait !

Merci encore

A+