Enregistrement de données

[david.ridelaire]

Bonjour à tous

je souhaiterai

imprimer 2 fois la feuille sur laquelle je travaille et enregistrer le classeur sous un nom différent que le classeur original, sans pour autant l'écraser

quelqu'un aurait-il une solution sous VBA

d'avance merci

 

[deudecos]

Re : Enregistrement de données

Salut David, le forum,

Je sais que je vais me faire tirer les oreilles, mais en plus de la recherche sur le forum, je te suggere d utiliser un outil vachementsuperbien qui s'appelle l'enregistreur de macro... Tu verras, on apprends plein de choses !

Bonne journee

Olivier

 

[Zlopeck]

Re : Enregistrement de données

Bonjour

J'ai rencontré le même problème et à force de chercher et de bidouiller ( je suis vraiment débutant en VBA ), j'ai bricolé ceci

'sauvegarde


Dim Fichier As String
Dim x As String

x = Range("D11").Value


Fichier = Format(Date, "(dd-mm-yy)") & " " & x & ".xls"

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier




' impression

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"


Ce qui te permet d'enregistrer ton fichier sous le nom indiqué ici dans la cellule D11, couplé à la date du jour

pour l'impression, c'est tous simplement une macro répétée deux fois

En epérant avoir pu t'aider ou au moins te donner un début de piste...

 

[david.ridelaire]

Re : Enregistrement de données

j'ai essayé cette formule mais rien ne fonctionne une fenetre apparait avec code debogage
Sub macro()
'sauvegarde


Dim Fichier As String
Dim x As String

x = Range("D11").Value


Fichier = Format(Date, "(dd-mm-yy)") & " " & x & ".xls"

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier




' impression

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

 

[Zlopeck]

Re : Enregistrement de données

Re-

Je suis surpris car chez moi ce code fonctionne.
Je l'ai simplement collé entre les deux lignes suivantes :

Private Sub CommandButton1_Click()

End Sub

qui correspondent au bouton qui les commande.
Je les lance simultanément mais il est tout à fait possible de les dissocier et de leur attribuer chacune une commande.

En espérant que cette fois ci ton problème soit résolu...

 

[david.ridelaire]

Re : Enregistrement de données

Peux tu m'envoyer un fichier test avec ton prog

merci