Discussion :

[Trystan441]

Bonjour,

Je cherche à faire apparaître un Msgbox, à l'ouverture d'un fichier Excel, lorsque le premier jour ouvré du mois intervient.

Contexte :

J'ai besoin de demander à l'utilisateur du fichier d'aller sur un site internet pour qu'il aille chercher une donnée en particulier, et ceci, à chaque début de mois.

Je pense que c'est surtout une écriture logique mais que je ne maîtrise pas.

Est-ce que vous auriez un code peut être tout fait ou une solution ?

Merci,

Trystan

[Igloobel]

Bonjour,

tu as trois problématiques à résoudre

1) Le Msgbox ... lequel ?

https://fring.developpez.com/vba/excel/msgbox/

2) le premier jour ouvré du mois
consulte ce fil

https://www.developpez.net/forums/d1...ur-ouvre-mois/

3)le déclenchement automatique peut se faire de différente façon Laquelle te serais la plus pratique ?

tu dis à plus

[Trystan441]

Merci pour ta réponse,

Problématique n°1 :

Un simple Msgbox simple :
Msgbox "Veuillez aller sur le site xxx récupérer la donnée xxx"

Problématique n°2 :

J'ai testé la solution proposée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Workbook_Open()
 
 
    If Month([Feuil1!A1]) <> Month(Date) Then
        [Feuil1!A1] = Date
 
MsgBox "c'est bon"
 
    End If
 
End Sub

Cependant j'ai l'erreur suivante :
Erreur d'exécution 13 : Incompatibilité de type
Je commence tout juste vba donc même après avoir essayé de comprendre l'erreur, impossible de trouver la solution
J'ai essayé de déclarer la variable Date mais sans succès.

Problématique n°3 :
Un déclenchement lui aussi très simple à l'ouverture du fichier Excel. Le but est donc ici de vérifier si nous sommes le premier jour ouvré du mois ou non.
Dans le cas où c'est oui, le Msgbox apparaît, sinon, rien ne se passe.

Pour le déclenchement, ça c'est bon, j'ai la solution avec le workbook_open


Je bloque donc sur la problématique n°2.

Merci,

[halaster08]

Cependant j'ai l'erreur suivante :
Erreur d'exécution 13 : Incompatibilité de type
Je commence tout juste vba donc même après avoir essayé de comprendre l'erreur, impossible de trouver la solution
J'ai essayé de déclarer la variable Date mais sans succès.

Date n'est pas une variable mais une fonction vba qui renvoie la date du jour, il n'y a pas a la déclarée

Concernant l'erreur, il est fort probable que ta cellule A1 de la feuille "Feuil1" contienne autre chose qu'une date

[Trystan441]

Tout marche pour le mieux !

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
 
Private Sub Workbook_Open()
 
    If Month([Renseignement!A1]) <> Month(Date) Then
        [Renseignement!A1] = Date
 
        MsgBox "Vous allez être redirigé vers le site du CNR pour récupérer l'indice gasoil"
 
navigate = "http://www.cnr.fr/"
 
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & navigate)
 
    End If
 
End Sub

Merci beaucoup !

Bonne journée,