[EXCEL2010] Legere modification sur macro svp
Résolu
ced3c
Messages postés
237
Date d'inscription
Statut
Membre
Dernière intervention
-
ced3c Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
ced3c Messages postés 237 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aurai besoin d'une petite aide pour modifier légèrement un bout de code svp
Dans ce code je souhaiterais effectuer la sauvegarde non pas du workbook complet mais de la feuille "Facture" tout en conservant les vérifications
un peu du style
Cette macro est sur une feuille "Vente"
Merci pour votre aide
J'aurai besoin d'une petite aide pour modifier légèrement un bout de code svp
Sub Sauvegarder()
Set Source = Union(Range("M17"), Range("M23"))
If Application.CountA(Source) < 2 Then
MsgBox "Entrez un nom de client et une numero de facture pour valider la sauvegarde"
Else
Dim nom As String
nom = Range("M17") & "_fact" & Range("M23") & "_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xlsm"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
If MsgBox("Voulez vous effacer les données ?", _
vbYesNo, "Attention !") = vbYes Then Range("B3:B26,C3:C26,F3:F26,H3:H26,M17:P17,M19:P19,M21:P21,M23:P23,M25:P25,M27:P27,M29:P29,M30:P30,M31:P31,M32:P32,M33:P33").ClearContents
End If
End Sub
Dans ce code je souhaiterais effectuer la sauvegarde non pas du workbook complet mais de la feuille "Facture" tout en conservant les vérifications
un peu du style
sheets("Facture").SaveCopyAs sheets("Facture").Path & "\" & nom
Cette macro est sur une feuille "Vente"
Merci pour votre aide
A voir également:
- [EXCEL2010] Legere modification sur macro svp
- Suivi de modification word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel gratuit modification pdf - Guide
- Modification dns - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
2 réponses
Salut,
Tu peux faire comme ceci :
- Copie de la feuille "facture" dans un nouveau classeur,
- Enregistrer sous ce nouveau classeur,
- Fermer ce classeur.
Ca se traduit en VBA, du moins, il me semble, par :
Ce code est à inscrire (après corrections éventuelles) en lieu et place de :
Tu peux faire comme ceci :
- Copie de la feuille "facture" dans un nouveau classeur,
- Enregistrer sous ce nouveau classeur,
- Fermer ce classeur.
Ca se traduit en VBA, du moins, il me semble, par :
Dim Chemin As String
Chemin = ActiveWorkbook.Path
sheets("Facture").Copy
With ActiveWorkbook
.SaveAs Chemin & "\" & nom
.Close
End With
Ce code est à inscrire (après corrections éventuelles) en lieu et place de :
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom