code vba

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bo nne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code a u bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Th en
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

re
un formulaire de creation
Je voudrais une liste deroulante avec les noms des clients ,la date du jour
et la somme payée (cheque ou liquide selon la case cochée dans l'userform )et
par validation inscrire les données dans la feuille ouverte numero de semaine
en cours
ci

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

Voir PJ http://cjoint.com/?kmvdZKrYqc

JB

re
un formulaire de creation
Je voudrais une liste deroulante avec les noms des clients ,la date du j our
et la somme payée (cheque ou liquide selon la case cochée dans l'user form )et
par validation inscrire les données dans la feuille ouverte numero de s emaine
en cours
ci

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les co de au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Da te) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

Bonjour JB et le forum
Merci de ton travail tu as compris ma problematique, mais j'ai encore un
petit soucis, je ne peux appeler mon userform que sur une seule feuille la
premiere semaine 41 , mais des la semaine prochaine je serai dans la feuille
42 et je veux donc pouvoir appeler ma saisie sur chaque feuille .Et pour la
date je voudrais avoir la date du jour automatiquement dans ma boite de
saisie( mais le je vis essayer de me debrouller un peu).
encore merci et bonne journée

Voir PJ http://cjoint.com/?kmvdZKrYqc

JB

re
un formulaire de creation
Je voudrais une liste deroulante avec les noms des clients ,la date du jour
et la somme payée (cheque ou liquide selon la case cochée dans l'userform )et
par validation inscrire les données dans la feuille ouverte numero de semaine
en cours
ci

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

http://cjoint.com/?knicN8pmh4

JB

Bonjour JB et le forum
Merci de ton travail tu as compris ma problematique, mais j'ai encore un
petit soucis, je ne peux appeler mon userform que sur une seule feuille la
premiere semaine 41 , mais des la semaine prochaine je serai dans la feui lle
42 et je veux donc pouvoir appeler ma saisie sur chaque feuille .Et pour la
date je voudrais avoir la date du jour automatiquement dans ma boite de
saisie( mais le je vis essayer de me debrouller un peu).
encore merci et bonne journée

Voir PJ http://cjoint.com/?kmvdZKrYqc

JB

re
un formulaire de creation
Je voudrais une liste deroulante avec les noms des clients ,la date du jour
et la somme payée (cheque ou liquide selon la case cochée dans l' userform )et
par validation inscrire les données dans la feuille ouverte numero de semaine
en cours
ci

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres proble mes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis le s code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemain e(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourD ays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200 299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs

merci JB C'est + que parfait

http://cjoint.com/?knicN8pmh4

JB

Bonjour JB et le forum
Merci de ton travail tu as compris ma problematique, mais j'ai encore un
petit soucis, je ne peux appeler mon userform que sur une seule feuille la
premiere semaine 41 , mais des la semaine prochaine je serai dans la feuille
42 et je veux donc pouvoir appeler ma saisie sur chaque feuille .Et pour la
date je voudrais avoir la date du jour automatiquement dans ma boite de
saisie( mais le je vis essayer de me debrouller un peu).
encore merci et bonne journée

Voir PJ http://cjoint.com/?kmvdZKrYqc

JB

re
un formulaire de creation
Je voudrais une liste deroulante avec les noms des clients ,la date du jour
et la somme payée (cheque ou liquide selon la case cochée dans l'userform )et
par validation inscrire les données dans la feuille ouverte numero de semaine
en cours
ci

Je n'ai pas compris ce que tu voulais obtenir.
Est ce un formulaire d' interrogation ou de création?
(Voir onglet choixLettreBD dans PJ)

http://cjoint.com/?kmsgP3QK3E

JB

merci Jb cela marche bien mais peux tu resoudre mes autres problemes (à
l'intereur du fichier)
mais si j'abuse ok
merci

http://cjoint.com/?kmjDFx2hmV

JB

merci JB mais j'ai un soucis ou peut etre n'ais je pas mis les code au bonne
endroit
http://cjoint.com/?kmjaHLouuC

Bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Err = 0
Sheets("semaine" & NoSemaine(Date)).Select
If Err <> 0 Then MsgBox "Onglet " & "semaine" & NoSemaine(Date) & "
Inconnu"
End Sub

Function NoSemaine(MyDate As Date) As Integer ' Week Of Year
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then
NoSemaine = 1
End If
End Function
'http://support.microsoft.com/default.aspx?scid=kb;fr;200299

Cordialement JB

bonjour le forum
besoin d'aide pour code vba, dossier ci joint
es ce possible d'ouvrir sur le numero de semaine en cours ?

http://cjoint.com/?klxWwz4QCs