Bonjour,
je suis tombé sur une discussion du forum vu que j'ai le soucis de pouvoir transformer mon devis en facture avec vba.
J'ai exécuté la macro de @soan sur mon devis aussi pour pouvoir generer la facture avec mon bouton de commande.
Sauf que, ma feuille2 créer à droite devient mon devis et ma feuille1 de base se transforme en facture, je sais pas pourquoi.
Si quelqu'un peut m'aider s'il vous plait.
Voici mon écriture sur vba :
Sub NouvFact()
Dim N%, chn$: Application.ScreenUpdating = 0
With ActiveSheet
N = .Index: chn = .Name: .Copy , Worksheets(N)
End With
ActiveSheet.Name = Replace$(chn, "D", "F")
[A12] = "N° FACTURE"
[A54] = [C45]: [C45] = ""
[C44] = [F82]: [C46] = [A48]
[A47] = "Assurance MMA Responsabilité Civile et Responsabilité Civile Décennale N°000000141528789": [A49] = ""
[F48] = [F73]
[C12] = ""
[C13] = ""
[F16] = ""
[A48] = "BENTEJAC CHRYSTELLE ET SPAGNOLI MARIE France 54 rue de la République - 47200 Marmande"
End Sub
Merci pour votre aide
je suis tombé sur une discussion du forum vu que j'ai le soucis de pouvoir transformer mon devis en facture avec vba.
J'ai exécuté la macro de @soan sur mon devis aussi pour pouvoir generer la facture avec mon bouton de commande.
Sauf que, ma feuille2 créer à droite devient mon devis et ma feuille1 de base se transforme en facture, je sais pas pourquoi.
Si quelqu'un peut m'aider s'il vous plait.
Voici mon écriture sur vba :
Sub NouvFact()
Dim N%, chn$: Application.ScreenUpdating = 0
With ActiveSheet
N = .Index: chn = .Name: .Copy , Worksheets(N)
End With
ActiveSheet.Name = Replace$(chn, "D", "F")
[A12] = "N° FACTURE"
[A54] = [C45]: [C45] = ""
[C44] = [F82]: [C46] = [A48]
[A47] = "Assurance MMA Responsabilité Civile et Responsabilité Civile Décennale N°000000141528789": [A49] = ""
[F48] = [F73]
[C12] = ""
[C13] = ""
[F16] = ""
[A48] = "BENTEJAC CHRYSTELLE ET SPAGNOLI MARIE France 54 rue de la République - 47200 Marmande"
End Sub
Merci pour votre aide