Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même classeur

[avekash]

Bonjour à tous les membres du forum,

Grâce au forum j'ai évolué dans l'écriture de mon petit programme de facturation. Seulement, voilà que je bloque à une étape qui est la suivante:
J'ai dans mon classeur une macro évènement "Workbook_Open()" :

Private Sub Workbook_Open()
Dim Jour As String, Mois As String, Annee As String, Num As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
'
' Numéro de la Proforma
'
Num = CDbl(Left(Sheets("PROFORMA").Range("F6").Value, 4))
Sheets("PROFORMA").Range("NumProforma").Value = Format(Num + 1, "0000") & "-" & Jour & Mois & "-" & Année
ThisWorkbook.Save
End Sub)

qui insère un numéro dans la feuille PROFORMA de mon classeur. Je souhaiterais insérer une macro du même type de sorte à incrémenter aussi un numéro dans la Feuille FACTURE du même classeur à son ouverture.

En espérant avoir été claire j'attends avec impatience vos suggestions.

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

bonjour,

1. pas de fichier joint pour aider
2. la réponse est là , il faut juste que tu adapte l'adresse et le format

Effectivement j'ai fait cette manip que tu me propose mais apparemment cela beug d'où ma question à votre endroit, membres du forum.

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Je vous envoie le fichier pour plus de détail

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Salut

Apparemment ça ne marche pas avec ce que tu m'as demandé de faire.
Voici mon code de la macro Workbook_Open() :

Private Sub Workbook_Open()
Dim Jour As String, Mois As String, Annee As String, Num As Long, Numf As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
'
' Numéro de la Proforma
'
Num = CDbl(Left(Sheets("PROFORMA").Range("F6").Value, 4))
Sheets("PROFORMA").Range("NumProforma").Value = Format(Num + 1, "0000") & "-" & Jour & Mois & "-" & Annee
ThisWorkbook.Save
'
' Numéro de la Facture
'
Sheets("FACTURE").Select
Numf = CDbl(Left(Sheets("FACTURE").Range("NumFacture").Value, 4))
Sheets("FACTURE").Range("NumFacture").Value = Format(Numf + 1, "0000") & "-" & Jour & Mois & "-" & Annee
End Sub

Je reste en attente. Merci

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Il me met Erreur d'exécution 13 même avec le bouton.

Private Sub CommandButton1_Click()
Dim Jour As String, Mois As String, Annee As String, Numf As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
'
' Numéro de la Facture
'
Sheets("FACTURE").Select
Numf = CDbl(Left(Sheets("FACTURE").Range("NumFacture").Value, 4))
Sheets("FACTURE").Range("NumFacture").Value = Format(Numf + 1, "0000") & "-" & Jour & Mois & "-" & Annee


End Sub

 

[Pierrot93]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Bonjour Avecas, cc

modifie peut être ainsi, vu la conversion effectuée :

Numf As Double

bon après midi
@+

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Pierrot93 je sèches ça ne me donne rien. Mais qu'est ce qui peut bien se passer? cela est carrément impossible?

 

[Pierrot93]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Re,

dns le fichier que tu as jins, la cellule en question est vide..... donc forcement la fonction de conversion échoue....

 

[Pierrot93]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Re,

@cc

(déjà pris l'apéro ???)

Aarf, non mais j'aurais du.... j'y vais de ce pas, à la tienne....

 

[avekash]

Re : Appliquer Macro évènement "Workbook Open()" à au moins 2 feuilles d'un même clas

Mais que devrait elle contenir puisse qu'elle es sensée affichée un numéro généré directement à partir de la macro.