aide sur date

[PY]

Bonsoir à tous

voila mon probleme: a partir d'un classeur qui comprend plusoeurs onglets: je fais activesheetcopy et j'enregistre la feuille active en temps que nouveau classeur XL.
je voudrais qu'en ouvrant mon classeur principal il me liste (en interne) les dates qui figurent sur les feuilles enregistrées et qu'il me fasse un truc du genre:
si il y a une date dépassée de 3 semaines (18 jrs) depuis aujourd'hui alors msgbox.

deuxième question est-il possible de supprimer la barre de menu (en mettant les instruction dans sub woorkbook open () ) et de la rétablir en quittant le classeur dans sub woorbook bfeore close ()?

merci de m'aider

 

[petitstagiaire]

bonjour PY,

pour ta 1ere question, dans ton workbook open () tu fais une recherche des feuilles que tu as crée
Set fs = Application.FileSearch
With fs
.LookIn = 'ton répertoire
.SearchSubFolders = True 'vrai si tu veux rechercher dans tes ss-repertoires
.Filename = 'le nom de tes feuilles
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Exit Sub
End If

End With



Pour ce qui est des barres de menu :

dans workbook open()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Enabled = True

et = False dans workbook beforeclose ()

je ne sais plus quel numéro sert à quelle barre mais tu essaieras.

 

[petitstagiaire]

bonjour PY,

pour ta 1ere question, dans ton workbook open () tu fais une recherche des feuilles que tu as crée
Set fs = Application.FileSearch
With fs
.LookIn = 'ton répertoire
.SearchSubFolders = True 'vrai si tu veux rechercher dans tes ss-repertoires
.Filename = 'le nom de tes feuilles
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Exit Sub
End If
For i = 1 To .FoundFiles.Count
'ton traitement
next
End With



Pour ce qui est des barres de menu :

dans workbook open()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Enabled = True

et = False dans workbook beforeclose ()

je ne sais plus quel numéro sert à quelle barre mais tu essaieras.

 

[PY]

Merci petit stagiaire

ou puis-je me procurer les numéros des index des commandbars ou bien quelqu'un les connait-il ?

 

[petitstagiaire]

1 : Barre de menu
3 : Barre d'outils avec icones enregistrer, ouvrir ...

pour le reste tu n'a qu'à tester

 

[Fred]

Slt PY regarde sur ce site dans la rubrique leçons et exemple j'ai sortis un programme ("Listes") qui te les recenses toutes

 

[pannel]

J'ai une liste de nombre ( en format hh:mm) a rentrer.
En a1 je rentre 00:20
En a2 je rentre 00:10
En a3 je rentre 00:50
En a4 je rentre 01:00

Je voudrais en a5 le total de nombre d'heure pleine c'est a dire que l'ordinateur balaye les cellules et repere celles qui ont la valeur 01:00 et les ajoute. Ici le resultat serait 01:00.

Je voudrais en a6 le total des minutes. L'ordinateur balaye les cellules et reperes celles qui ont une valeur comprise entre 00:01 minute et 00:59 minutes et les ajoute. ici le resultat devrait etre 01:20. (une heure et vingt minute.
Merci c'est tres urgent.

 

[Jacky]

Bonjour

Voici une solution

En A5 tu mets cette formule pour les heures pleines
=SOMME.SI(A1:A4;">=1:00")


En A6 pour les heures en dessous de 1:00

=SOMME.SI(A1:A4;"<1:00")

Bon courage