Enregistrer une copie d'une feuille d'un classeur.
eliot34
Messages postés
2220
Date d'inscription
Statut
Membre
Dernière intervention
-
eliot34 Messages postés 2220 Date d'inscription Statut Membre Dernière intervention -
eliot34 Messages postés 2220 Date d'inscription Statut Membre Dernière intervention -
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+ et bon surfffffffff !!!!!!!!!!!!!!
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+ et bon surfffffffff !!!!!!!!!!!!!!
2 réponses
-
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
-
Bonsoir.
Merci pour ta réponse, je vais essayer de comprendre comment m'en servir!!