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   -
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 !!!!!!!!!!!!!!

2 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  2. eliot34 Messages postés 2220 Date d'inscription   Statut Membre Dernière intervention   184
     
    Bonsoir.

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