compteur incremental et sauvegarde feuille seulement

scorplo77 · 2 Février 2011

Bonjour,
Je souhaite créer un compteur incrémental en H1 sur ma feuille 2 nommé compteur, et rappeler ce numéro en H1 sur ma feuille 1 nommé devis.
J’ai créé un bouton afin d’enregistrer le classeur sous le nom d’une cellule, je voudrais le modifier pour n’enregistrer que la page devis et c’est macro afin que quand je ré ouvre un devis le compteur ne soit plus actif.
Pour le compteur, j’ai trouvé ça, mais ça ne marche pas pour la bonne feuille

Private Sub Workbook_Open()
Range("H1").Value = Range("H1").Value + 1
ActiveWorkbook.Save
End Sub

Et pour la sauvegarde j’ai ça

Sub enregister()
Dim NOM As String
NOM = Range("N3")
ThisWorkbook.SaveAs "C:\Mes documents\STE \DEVIS ET FACTURES\" & Range("N3").Value
End Sub
Merci pour votre aide

Guest · 3 Février 2011

Re : compteur incremental et sauvegarde feuille seulement

Re,

Hier je t'ai donné une procédure commentée qui le faisait(à part enlever le bouton), je ne vois pas pourquoi tu ne l'as pas mise en pratique. Et si tu avais besoin d'explications il fallait les demander.

Alors re-voilà la procédure avec la modification pour supprimer le bouton et l'incrémentation du compteur en J1.

Code:

Sub enregister()
Const Chemin As String = "C:\Mes documents\STE\DEVIS ET FACTURES\"
Dim wkDevis As Workbook
Dim sh As Variant
Dim NOM As String
NOM = Range("N3")
'Enregistre une copie sur le disque
ActiveWorkbook.SaveCopyAs chemin & NOM
'ouvre la copie pour en supprimer les feuilles inutiles et effacer le compteur
Set wkDevis = Workbooks.Add(chemin & NOM)
With wkDevis
    'Supprimer les feuilles autres de "DEVIS"
    For Each sh In Worksheets
        If sh.Name <> "DEVIS" Then sh.Delete
    Next
 
    'Supprimer le bouton
    For Each sh In Worksheets("DEVIS").Shapes
        If sh.Name Like "Button*" Then sh.Delete
    Next sh
 
    'efface le compteur du devis
    Sheets("DEVIS").Range("J1").ClearContents
 
    .Save 'sauvegarde le devis
 
    .Close 'ferme le devis
 
End With
'Libère la mémoire de l'objet wkDevis
Set wkDevis = Nothing
'On réactive ce classeur (qui contient la macro)
ThisWorkbook.Activate
'Incrémenter le compteur pour le prochain devis
With ThisWorkbook.Sheets("DEVIS").Range("J1")
    .Value = .Value + 1
End With
End Sub

A+

compteur incremental et sauvegarde feuille seulement

scorplo77

Guest

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency