worksheet & date

Question

Bonjour amis programmeurs, alors j' ai une petite question:

Je suis en train d'essayer de programmer sous vb 6.3, et ma question se tourne sur les workshheets et les dates:

je voudrai creer automatiquement une nouvelle worksheet &#224; chaque debut de moi, la workshhet porterai le numero du mois ou son nom (Janvier, Fevrier etc...)

Avez vous un code pour gerer automatiquement la creation de worksheets avec la date du mois en cours? ( et enprime en copiant collant differentes cellules qui compose mon tableau....)

D'avance merci

jrivet · Answer

Salut, Regarde si ce qui suit pourrait t'aider: Dim ThisSheet As Worksheet Set ThisSheet = ThisWorkbook.Sheets.Add ThisSheet.Name = MonthName(Month(Date)) Ceci te creer une nouvelle feuille possédant le nom du mois en cours. @+ Julien ____________________________ Ne pas oublier: - le "réponse acceptée"

ScSami · Answer

Cependant, il faut tester, au pr&#233;alable, que la feuille n'existe pas d&#233;j&#224; !
De plus, selon ce que tu d&#233;sires faire, il faudra peut-&#234;tre inclure &#233;galement la gestion des ann&#233;es!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

cs_Negwesh · Answer

ok merci pour votre aide, dc maintenant comment je faits pour tester si cette page existe??  j'ai essay&#233; ca:

Public Function wdate()


Dim ThisSheet As Worksheet


Set ThisSheet = ThisWorkbook.Sheets.Add


If ThisSheet.Name <> MonthName(Month(Date)) Then


ThisSheet.Name = MonthName(Month(Date))


Else


End If


End Function

Mais bien sur, cela ne marche pas. (Je suis asses novice en vba comme vous pouvez le constater)

- Pour l'anne dois je simplemenr rajouter MonthName(Month(Date), (year(date))?

- et pour finir, en faisant une fonction, pour verifier ces worksheet, pui je l'appeler des que j'ouvre mon menu principale, dans le auto open?

D'avance merci le VBA professionnels

jrivet · Answer

Re,

Essaie ce qui suit.
Mais ceci n'effectue qu un test primaire

Dim ThisSheet As Worksheet
Dim FeuilleExiste As Boolean
For Each ThisSheet In ThisWorkbook.Sheets    If ThisSheet.Name MonthName(Month(Date)) Then FeuilleExiste True
Next


If FeuilleExiste Then
    MsgBox "Cette feuille existe deja"
Else
    Set ThisSheet = ThisWorkbook.Sheets.Add
    ThisSheet.Name = MonthName(Month(Date))
End If

@+
Julien 
_________________________________________________________

jrivet · Answer

Re,
Petite correction pour ne pas continuer a tester les feuilles si on trouve deja le nom:
If ThisSheet.Name MonthName(Month(Date)) Then FeuilleExiste True

Deviendrait

If ThisSheet.Name = MonthName(Month(Date)) Then 
      FeuilleExiste = True
       Exit For
End if

Voili

@+
Julien 
_________________________________________________________

cs_Negwesh · Answer

merci je vais tester, 

je vous tiens au courant si cela fonctionne ds mon cas

a tous c cool merki !!!!!

cs_Negwesh · Answer

ok julien le bout de code marche, 

maintenant une foie que la worksheet est nomm&#233;e, je voudrais dans mes codes travailler with worksheet(" thissheet"), en fonction du mois de l'annee. pour l'instant c'est with worksheet("janvier"). je souhaiterai que janvier devienne une variable, dans ce cas :thissheet. mais je ne sais pas comment l'utiliser... 

je ne sais pas si jai ete asses claire lol ....

merki

jrivet · Answer

Re,

Fais toi un tableau avec le nom des mois de l'annee:

Dim i As Integer
Dim Mois(1 To 12) As String
For i = 1 To 12
    Mois(i) = MonthName(i)
Next

Et ensuite va chercher la feuille comme suit:

Thisworkbook.Sheets(Mois(X)) pour avoir la feuille d&#233;siree.

Si c est pas du tout ce que tu souhaitais, expliques toi un peu mieux

@+
Julien 
N'oubliez pas: Moteur de recherche  et
R&#233;ponse accept&#233;e

cs_Negwesh · Answer

merci julien pour tout. 

jvai voir ca, je te tiens au courant 

merki pour tout

Worksheet & date

9 réponses

Discussions similaires