Discussion :

[Grem974]

Bonjour,
Je me demandais comment écrire dans une feuille d'un classeur fermé en fonction d'un paramètre de date.
Je m'explique :
J'aimerais qu'en fonction de la date contenue dans un Userform d'un fichier A un tableau d'une feuille "mois" correspondant d'un fichier B puisse se remplir.

J'ai réussi à comprendre pour par exemple remplir la première la deuxième etc. mais en dur. *

J'ai pensé à quelque chose comme faire une variable qui récupère le mois et l'année de la date et faire correspondre au nom de la feuille portant comme nom "JUIN2015".

Mais je n'ai que l'idée ...

Pourriez vous m'éclairer?

Merci

[Invité]

bonjour,

J'ai réussi à comprendre pour par exemple remplir la première la deuxième etc. mais en dur. *

et si tu nous donnais au-moins ce code!

[Grem974]

Pardon pour l'absence de code le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub CommandButton2_Click()
Dim FichierTampon As Workbook
Dim choix As Variant
Dim Tablo As ListObject
Dim TabloValeur()
' pour stocker les valeurs conditionnelles
Dim Val4 As String
Dim Val5 As String
Dim Val6 As String
Dim j As Integer
 
        ' on définit les valeurs conditionnelles
        If OptionButton1 Then
            Val5 = "J"
        Else
            Val5 = "N"
        End If
 
        If OptionButton3 Then
            Val4 = "IDE"
        Else
            Val4 = "ASD"
        End If
        ' on doit d'abord tester si les deux sont à True
        ' avant de regarder si un seul est à True
        If CheckBox1 And CheckBox2 Then
            Val6 = "Dimanche et férié"
        ElseIf CheckBox2 Then
            Val6 = "férié"
        ElseIf CheckBox1 Then
            Val6 = "Dimanche"
        Else
            Val6 = ""
        End If
 
' on rempli dans un tableau virtuel, l'ensemble des valeurs à remplir
' les valeurs sont rangées dans l'ordre des colonnes de destination
 
TabloValeur = Array(TextBox1.Value & " " & TextBox5.Value, TextBox6.Value, "", Val4, Val5, Val6, Label6.Caption, TextBox2.Value, Label8.Caption, TextBox3.Value)
 
 
choix = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
'Set FichierTampon = Workbooks.Open("E:\Planning-travail\Classeur2")
If Not choix = False Then
 Set FichierTampon = Workbooks.Open(choix)
    Set Tablo = FichierTampon.Sheets(1).ListObjects("Tableau1")
    With Tablo
        ' ajout de ligne en fin de tableau
        .ListRows.Add
 
        ' écrire les 10 valeurs dans les 10 colonnes en bouclant simplement sur le tableau virtuel
        For j = LBound(TabloValeur) To UBound(TabloValeur)
            .Range(.ListRows.Count + 1, j + 1) = TabloValeur(j)
        Next j
    End With
    'fermeture du fichier en l'enregistrant en même temps
    FichierTampon.Close True
    Set FichierTampon = Nothing
    Set Tablo = Nothing
End If
 
Unload Me
ActiveCell.Value = TextBox1.Value
End Sub

Merci pour votre aide!

[Invité]

Bonjour,
je place les mois de l'année dans un tableau pour éviter d'avoir au choix Avril et April!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
choix = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
'Set FichierTampon = Workbooks.Open("E:\Planning-travail\Classeur2")
If Not choix = False Then
 Set FichierTampon = Workbooks.Open(choix)
    Set Tablo = FichierTampon.Sheets(OngletMoisFrAnnee(Date)).ListObjects("Tableau" & Month(Date))
    With Tablo
        ' ajout de ligne en fin de tableau
        .ListRows.Add
 
        ' écrire les 10 valeurs dans les 10 colonnes en bouclant simplement sur le tableau virtuel
        For j = LBound(TabloValeur) To UBound(TabloValeur)
            .Range(.ListRows.Count + 1, j + 1) = TabloValeur(j)
        Next j
    End With
    'fermeture du fichier en l'enregistrant en même temps
    FichierTampon.Close True
    Set FichierTampon = Nothing
    Set Tablo = Nothing
End If
 
Unload Me
ActiveCell.Value = TextBox1.Value
End Sub
 
Function OngletMoisFrAnnee(D As Date) As String
Dim Mois()
Mois = Array("", "JANVIER", "FÉVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOÛT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DÉCEMBRE")
OngletMoisFrAnnee = Mois(Month(D)) & Year(D)
End Function

[Grem974]

Bonjour,
après tests et tentatives de modifications ... j'en arrive à un message d'erreur de type "l'indice n'appartient pas à la sélection".
sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set Tablo = FichierTampon.Sheets(OngletMoisFrAnnee(Date)).ListObjects("Tableau" & Month(Date))

Dans ton code proposé tu extrais la date du système?

[Invité]

Oui,j"extraits la date système, mais c'est à titre exemple!