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

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #2

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

carcharodon-carcharias à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #3

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

 

Pièces jointes

• Pour correction.xlsm

  53.3 KB · Affichages: 71
• Pour correction.xlsm

  53.3 KB · Affichages: 72
• Pour correction.xlsm

  53.3 KB · Affichages: 78

Vote positif 0 Vote négatif

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #4

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

 

Vote positif 0 Vote négatif

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mai 2012

• #6

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 :

Code:

Numf As Double

bon après midi
@+

 

Vote positif 0 Vote négatif

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #7

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? 😕

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mai 2012

• #8

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....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mai 2012

• #9

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

Re,

@cc

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

avekash

XLDnaute Nouveau

• 26 Mai 2012

• #10

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.

 

Vote positif 0 Vote négatif