Enregistrer une copie d'une feuille d'un classeur.

eliot34 Messages postés 2393 Statut Membre -  
eliot34 Messages postés 2393 Statut Membre -
Bonjour,

J'aimerai à chaque enregistrement d'un classeur, créer automatiquement une copie dans le dossier "D:eliotinfo\factureclient\" de la feuille nommée "FACTURE"

Je précise que mon niveau est très limité tout de même^^!!!

Merci d'avance.


A voir également:

2 réponses

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

Comme c'est une facture le mieux est de l'enregistrer en pdf (non modifiable).

A mettre dans thisworkbook et enregistrer ton classeur en type xlsm pour conserver la macro :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const chemin As String = "D:\tmp\"
    With Sheets("Facture")
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "Facture " & .[B1] & ".pdf"
    End With
End Sub 

Alt+F11 pour ouvrir VBE.
- remplacer "D:\tmp\" par le chemin où tu veux sauvegarder.
- Facture!B1 contient le n° de facture, remplace par la cellule qui va bien.

https://www.cjoint.com/?CDCaNR2KPQ7

eric

0
eliot34 Messages postés 2393 Statut Membre 183
 
Bonsoir.

Merci pour ta réponse, je vais essayer de comprendre comment m'en servir!!
0