Comment combiner 2 macro
Bonjour,
comment combiner les deux macros
j'ai essayer en inserant la derniere avant le end sub mais j'ai un message d'erreur
erreur de compilation ens sub
ce que je m'attend l'or de l'exécution de la macro c'est d'enregistrer une copie en pdf et changer de numéro de facture tout en gardant le master vierge en n'enregistrent pas le master
Sub enregistrement()
'
' enregistrer_pdf macro
'
'
ActiveWindow.SmallScroll down:=8
Dim fichier As String
fichier = "C:\Users\Éric\Desktop\FACTURE CLIENT\" & [c11].Value & "_" & [L3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, openafterpublish:=False
Private Sub workbook_open()
Dim compteur As String
Range("L3").NumberFormat = "##-####"
compteur = Range("L3").Value
Range("L3").Value = compteur + 1
End Sub
comment combiner les deux macros
j'ai essayer en inserant la derniere avant le end sub mais j'ai un message d'erreur
erreur de compilation ens sub
ce que je m'attend l'or de l'exécution de la macro c'est d'enregistrer une copie en pdf et changer de numéro de facture tout en gardant le master vierge en n'enregistrent pas le master
Sub enregistrement()
'
' enregistrer_pdf macro
'
'
ActiveWindow.SmallScroll down:=8
Dim fichier As String
fichier = "C:\Users\Éric\Desktop\FACTURE CLIENT\" & [c11].Value & "_" & [L3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, openafterpublish:=False
Private Sub workbook_open()
Dim compteur As String
Range("L3").NumberFormat = "##-####"
compteur = Range("L3").Value
Range("L3").Value = compteur + 1
End Sub
3 réponses
-
Merci ca marche
J'aimerait que la copie excel reste vierge est sauf le numéro de facture qui doit changer a chaque enrg.
ou
le document enrg. doit garder seulement le numéro de facture
ou
est-il possible de proteger la feuille pour qu'aucune information ne soit enregistrable sauf le nuéro de facture
quelle est la meilleur facon de faire
1000 merci pour votre aide -
essaye copy /b
-
Do0nc si j'ai bien compris, tu veux que le fichier1 ss'exporte en pdf puis que la valeur de L3 s'augmente de 1.
Sub enregistrement()
'
' enregistrer_pdf macro
'
'
ActiveWindow.SmallScroll down:=8
Dim fichier As String
fichier = "C:\Users\Éric\Desktop\FACTURE CLIENT\" & [c11].Value & "_" & [L3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, openafterpublish:=False
' Cette ligne est a enlever Private Sub workbook_open()
Dim compteur As String
Range("L3").NumberFormat = "##-####"
compteur = Range("L3").Value
Range("L3").Value = compteur + 1
End Sub
