fdux33
XLDnaute Nouveau
Bonjour à tous,
Au collège où je travaille, chaque élève est identifié par un numéro (ex: 1, 2, 3, etc...)
Grâce à votre forum, j'ai créé un classeur qui, après identification du numéro, enregistre les passages au self.
A la fin de chaque service, le classeur est enregistré dans un dossier "Cantine" sous le nom"Cantine-21-01-12" (par exemple).
Maintenant, je cherche (mais sans succès pour l'instant) à créer (en VBA) une fonction (par ex = janvier(cellule) qui compte le nombre de passages au self de cellule pour le mois de janvier.
Voici un début de travaux
Function janvier(.......)
Application.Volatile
Dim i, j As Integer
Dim Direction As String
Application.ScreenUpdating = False
Direction = Dir("C:\Documents and Settings\Francois\Bureau\Cantine*.xls")
For i = 1 To 31, j=10 to 60
.FormulaArray = "='" & "C:\Documents and Settings\Francois\Bureau\Cantine" & "\"Cantine-"&"i"&"-01"&"20"&"j"
.Value = .Value
Application.ScreenUpdating = True
End function
Il me manque beaucoup de choses
Cordialement.
Ci-joint deux fichiers exemples de passage et un fichier bilan dans lequel je cherche à incorporer la fonction.
Au collège où je travaille, chaque élève est identifié par un numéro (ex: 1, 2, 3, etc...)
Grâce à votre forum, j'ai créé un classeur qui, après identification du numéro, enregistre les passages au self.
A la fin de chaque service, le classeur est enregistré dans un dossier "Cantine" sous le nom"Cantine-21-01-12" (par exemple).
Maintenant, je cherche (mais sans succès pour l'instant) à créer (en VBA) une fonction (par ex = janvier(cellule) qui compte le nombre de passages au self de cellule pour le mois de janvier.
Voici un début de travaux
Function janvier(.......)
Application.Volatile
Dim i, j As Integer
Dim Direction As String
Application.ScreenUpdating = False
Direction = Dir("C:\Documents and Settings\Francois\Bureau\Cantine*.xls")
For i = 1 To 31, j=10 to 60
.FormulaArray = "='" & "C:\Documents and Settings\Francois\Bureau\Cantine" & "\"Cantine-"&"i"&"-01"&"20"&"j"
.Value = .Value
Application.ScreenUpdating = True
End function
Il me manque beaucoup de choses
Cordialement.
Ci-joint deux fichiers exemples de passage et un fichier bilan dans lequel je cherche à incorporer la fonction.