Exécuter un script à l’ouverture d’un fichier Excel

Exécuter un script à l’ouverture d’un fichier Excel peut être utile par un exemple  par la réalisation d’un script de sauvegarde qui copie votre fichier Excel ou autre dans un endroit précis pour sauvegarder la version d’origine en cas d’erreur de manipulation ou de perte de données après l’ouverture.

Excel : Compter les jours ouvrés entre deux dates

Faire des différences entre deux dates compte non tenue des jours fériés est utiles pour calculer la durée effective des projets ou bien pour certaines entreprise pour calculé la durée du congé. Cette différence se base  sur la formule Excel suivante:

NB.JOURS.OUVRES(date_début;date_fin;jours_fériés)

Avec :

date_debut : C’est la cellule qui correspond à la date de début de période

Et date_fin : c’est la cellule qui correspond à la date de fin de période

jours_fériés : c’est la plage de cellule qui contient les jours fériés personnalisés

Les dimanches et les samedis ne sont pas à ajouter aux jours fériés personnalisés. En effet, ils sont intégrés pas défaut dans la formule et si vous ne sélectionnez pas la colonne des jours fériés personnalisés, cette formule retourne la différence des dates compte non tenue des dimanches et des samedis.

Dans tous les cas, même si vous les intégrés le résultat ne change pas.

Script pour exécuter un programme batch en arrière Plan

Nous vous présentons ci-dessous un script pour exécuter un fichier batch en arrière plan, c'est à dire sans que la console (cmd.exe) apparaisse à l'utilisateur:

CODE SCRIPT:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "adresse fichier.bat" & Chr(34), 0
Set WshShell = Nothing

Vous n'avez qu'à remplacer l'adresse fichier par l'emplacement de fichier batch que vous voulez exécuter en arrière plan ou d'une manière cachée.

Economie des vaches: تحليل الأنظمة الإقتصادية بطريقة ساخرة

• النظام الهندي: تملك بقرتين، تقوم بعبادتهما

Les Services Bancaires de Base

Les services bancaires de base désignent certaines opérations nécessaires au fonctionnement du compte bancaire tout au long de la relation d’affaire (Client –Banque) ainsi que l’obligation d’information du client. Ces services doivent être obligatoirement assurés par la Banque pour leurs clients  et ce conformément au décret 2006-1880 du 10.07.2006 qui vient en application de l’article 31 bis de la circulaire BCT 2001-65 relative aux établissements de crédit.

Les services bancaires de base concernent :

1. La gestion et la clôture du compte bancaire

2. La délivrance d’un relevé d’identité bancaire (RIB) et sont inscription sur tout relevé bancaire

3. L’envoi d’un relevé bancaire des opérations effectuées à l’adresse déclarée par le client.

4. La domiciliation des effets de commerce et des virements bancaires

5.  Les opérations d’encaissement de chèques et de virement bancaires et postaux

6. La réalisation des payements sous forme de virements, prélèvement ou sous toute autre forme

7. Le retrait et le dépôt de fonds en espèce

8. La délivrance de carte bancaire

L’exception à l’obligation de délivrance des moyens de payements concernent la délivrance des chéquiers qui est du ressort du banquier qui libre de délivrer ou non des chéquiers à ses clients. Par ailleurs, la délivrance des carnets de chèques blancs n’est pas permises pour les interdits de chéquiers et ce conformément à l’article 410 du code de commerce  

BANQUES- Calcul de la Commission de mouvement

* C'est quoi la Commission de mouvement

Selon les termes de la circulaire BCT n° 91.22 du 17.12.1991 la commission de mouvement est prélevée sur les mouvements des comptes courants débiteurs enregistrant des opérations se rapportant à une activité industrielle, commerciale ou agricole.

Cette commission est calculée sur la colonne de débit du relevé du compte bancaire. Le solde de départ éventuel est exclu du calcul de la commission de mouvement. Elle ne pourra cependant être prélevée pour les comptes tenus sans intérêts.

Selon l’article  34 de la circulaire BCT 91.22, les banques fixent librement le niveau des commissions sur les opérations bancaires. Toutefois, cette commission entre dans le cadre du calcul du Taux effectifs global sur les découverts bancaires. Elle peut par conséquent être minorée pour respecter le seuil  du taux excessif par catégorie de concours.
 

 * Base de calcul Commission de mouvement (BASE_CMVT)

La base de commission de mouvements est la somme des mouvements débit solde départ exclu. Cette commission est prélevée seulement si les mouvements en cours du trimestre concerné génèrent des intérêts débiteurs :

Commission= BASE_CMVT*Taux

 * La Commission de mouvement et le TEG

Cette commission est prise en compte dans le calcul du TEG (Taux d’Intérêt Effectif Global sur les crédits).

En effet, conformément à la circulaire aux banques et aux établissements financiers n°2000-03 du 27.03.2000, les banques et les établissements financiers doivent inclure les commissions, ci-après indiquées, telles que prévues par la circulaire aux banques n° 91-22 du 17.12.1991 :

-          La commission sur effets escomptés lorsque le crédit est mobilisé par des effets ou par des billets à ordre,

-          La commission sur opérations de virement lorsque le crédit suppose des opérations de virement,

-          La commission de mouvement,

-          La commission de découvert,

-          La commission d’étude

-          La commission de recherche, de mise en place et de montage de financement,

-          La commission d’engagement,

 

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.

Script qui affiche l'Adresse du fichier en cours et ouvre son emplacement

CODE SCRIPT

' Trouver l'adresse du script exécuté

Script Yes or No Question avec Timeout

Code Script

' Accéder à WScript.Shell

set wshshell = CreateObject("WScript.Shell")

' posez la question et attendre 5 secondes pour avoir la réponse:

ask = "Vous êtes un homme ou une femme?"

timeout = 5

title = "Test psychologique!"

constants = vbExclamation + vbOkCancel

result = wshshell.Popup(ask, timeout, title, constants)

if result = vbCancel then

MsgBox "OK, Bienvenue Madame!"

elseif result = true then

MsgBox "Vous avez pris beaucoup de temps pour décider!!!!!!!"

else

MsgBox "Ok, Bienvenue Monsieur!"

end if

Exemple D’illustration

* Le script vous demande si vous êtes un Homme ou Une Femme

*Si la réponse est OUI, le Script vous dit « Bienvenue Monsieur »

*Si La réponse est NON, le script vous dit « Bienvenue, Madame »

*Si vous dépassez plus de cinq secondes pour répondre, le script vous signale que avez pris beaucoup de temps pour répondre :

Script avec des tests sur les variables entrées : Diagnostique de date naissance

CODE VBSCRIPT

' Demander une date

ask = "Quel est votre date de naissance?"

title = "Diagnotiquer votre Age!"

' Commencer la boucle:

do

birthday = InputBox(ask, title)

' check whether the user wants to quit:

if isEmpty(birthday) then

MsgBox "Hey! Vous pouvez entrer une date erronée pour " _

& " cacher votre age! Mais OK, Je Quite!"

WScript.Quit

elseif not isDate(birthday) then

' verifier que la valeur entrée est vraiment une date!

' Donner une occasion de saisie de la date:

MsgBox "Vous n'avez pas entré une date! Essayez à nouveau!"

end if

' boucler jusqu'à une date valide a été entrée

loop until isDate(birthday)

' à cette étape, nous avons une date valide!

' effectuer nos calcul:

age_in_days = DateDiff("d", birthday, date)

age_in_months = DateDiff("m", birthday, date)

age_in_years = DateDiff("yyyy", birthday, date)

day_born = WeekdayName(Weekday(birthday))

' calculer la date de naissance de cette année

date_day = Day(birthday)

date_month = Month(birthday)

' utiliser l'année en cours:

date_year = Year(date)

this_years_birthday = DateSerial(date_year, date_month, date_day)

' use Abs to convert to positive numbers in case the birthday’s

' already over:

days_to_birthday = Abs(DateDiff("d", date, this_years_birthday))

day_celebrating = WeekdayName(Weekday(this_years_birthday))

' passer à l'autre étape?

if this_years_birthday

message = "Vous avez déjà faité votre anniversaire " & days_to_birthday _

& " Jours Avant"

elseif this_years_birthday = date then

message = "Joyeux Anniversaire!!!"

else

message = days_to_birthday & " jours avant votre anniversaire"

end if

' output Information

msg = "Ceci est un diagnostic de votre date de naissance:" & vbCr

msg = msg + "Vous étiez née le " & birthday & vbCr

msg = msg + "Vous avez  " & age_in_years & " ans. Ce qui fait" & vbCr

msg = msg & age_in_months & " Mois ou bien " & age_in_days _

& " Jours!" & vbCr

msg = msg + "Vous étiez née un " & day_born & vbCr

msg = msg + "Cette année, votre anniversaire est le " & this_years_birthday & vbCr

msg = msg + "Il correspond à un " & day_celebrating & vbCr

msg = msg + message

MsgBox msg

EXEMPLE D’ILLUSTRATION:

*Une fois vous avez entré une date valide, le script vous donne une analyse de votre date de naissance : jour de naissance, jour ou vous fêtez votre anniversaire cette année, combien vous reste en jour :

*Le script vérifie si vous avez bien entré une date et vous demande d’entrer une date valide :

*Si voulez annuler, le script vous informe que vous pouvez faire le diagnostic avec une date erronée :