XL 2013 Planning

[MINDMAP007]

pL

Bonjour,
je dois trouver un outil pour gérer la planification des ressources (bénévoles) sur une semaine et demi pour une compétition avec 300 étudiants (je ne gère pas la compétition seulement le planning des bénévoles)
Je ne connais pas encore le nombre de bénévoles que nous aurons besoin, c'est la 1ère fois que nous organisons cette compétition.

Le but est :

- créer des thèmes de planning (disponibilité pour préparer la logistique, accueil, rangement, coin thé & café, repas, etc...)

- Les bénévoles nous font part de leur disponibilité (plage de 1heure) de 6h00 à 20h du samedi au samedi suivant. Ils font part de leur intérêt pour un ou plusieurs thèmes de planning et une ou plusieurs plages.
- en fonction des dispo., je souhaite générer automatiquement tous les plannings.

Quelqu'un aurait qqc sous la main ou une idée sur laquelle plancher ?

J'ai un peu de temps pour trouver une ou plusieurs solutions car je dois faire une présentation en début janvier.

Cordialement,
MindMap007​

 

[MINDMAP007]

Ceci a l'air intéressant mais il y a une erreur à l'ouverture du fichier :

Erreur execution 9 :

Function Esc_Dt(S As String, Apl As String) As String ' pour base Access
Dim d() As String, f As Integer
On Error GoTo errhdlr
If S = "" Or S = "0" Then
Esc_Dt = "NULL"
Else
S = Replace(S, "-", "/")
d = Split(S, "/")
Esc_Dt = "#" & d(1) & "/" & d(0) & "/" & d(2) & "#"
End If
Exit Function

errhdlr:
d = Split(Replace(CStr(Date), "-", "/"), "/")
Esc_Dt = "#" & d(1) & "/" & d(0) & "/" & d(2) & "#"
f = FreeFile()
Open ThisWorkbook.Path & "\Log.txt" For Append As #f
Print #f, Now() & "|" & S & " | " & vbCrLf & Apl & vbCrLf
Close #f
End Function
' *************************************************************************************************

Auriez-vous une solution ?

Par avance merci de votre support

 

[MINDMAP007]

Bonjour,

merci de m'avoir apporté votre fichier, j'ai bien Windows 10 sur PC mais je me demande si cela ne vient pas du clavier car le mien est Qwertz

bonne journée