Msgbox a l'ouverture d'un fichier

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #2

Re : Msgbox a l'ouverture d'un fichier

Bonjour Mmes, M.

Une possibilité

Code:

Private Sub Workbook_Open()
Select Case Sheets(1).[D1]
Case "oui", "OUI"
MsgBox "Message"
Case Else
End
End Select
End Sub

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 22 Septembre 2011

• #3

Re : Msgbox a l'ouverture d'un fichier

Bonsoir le forum
Merci a toi tempusFugit c'est exactement ce qui me fallait

Cordialement

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 26 Septembre 2011

• #4

Re : Msgbox a l'ouverture d'un fichier

Bonjour le forum

J'ai un problème avec le code de tempusFugit, en effet cette macro créer un bug a l'ouverture du fichier lorsque D1 n'est pas renseigné, le code ne doit pas s'activé si D1 n'est pas renseigné
voici le code:
Private Sub Workbook_Open()

Select Case Sheets("REFLEX").[D1]
Case "oui", "OUI"
MsgBox "vous devez faire une MAJ"
Call Miseajour
Case Else
End
End Select
End Sub
Merci de votre aide

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 26 Septembre 2011

• #5

Re : Msgbox a l'ouverture d'un fichier

Bonjour Mesdames, Messieurs


Essaie ceci

Code:

Private Sub Workbook_Open()
If Sheets("REFLEX").[D1]="" Then Exit Sub
Select Case Sheets("REFLEX").[D1]
Case "oui", "OUI"
MsgBox "vous devez faire une MAJ"
Call Miseajour
Case Else
End
End Select
End Sub

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Septembre 2011

• #6

Re : Msgbox a l'ouverture d'un fichier

Salut

la macro appelée ne doit pas être écrite dans le module d'une feuille et ceci devrait suffire:

Code:

Private Sub Workbook_Open()
  If Sheets("REFLEX").[D1] <> "oui" Then Exit Sub
  MsgBox "vous devez faire une MAJ"
  Miseajour
End Sub

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Septembre 2011

• #7

Re : Msgbox a l'ouverture d'un fichier

Bonjour le forum et a vous deux tempusFugit, et Si

Merci les deux codes fonctionnent parfaitement

Cordialement

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 28 Septembre 2011

• #8

Re : Msgbox a l'ouverture d'un fichier

Bonjour,

Un problème, la macro ci-dessus fonctionne bein avec le "oui" en minuscule mais pas lorsqu'il est en majuscule
Merci a vous

Private Sub Workbook_Open()
If ActiveSheet.[f1] <> "oui" Then Exit Sub
MsgBox "vous devez faire une MAJ"

If Range("A2") = "manpower" Then
Call Miseajourmanpower

End If
If Range("A2") = "reflex" Then
'Miseajour
Call Miseajourreflex

End If
If Range("A2") = "randstad" Then

Call Miseajourrandstad

End If
End Sub

 

Vote positif 0 Vote négatif

H

HachemCress

Guest

• 17 Octobre 2011

• #9

Re : Msgbox a l'ouverture d'un fichier

eduraiss à dit:

Bonjour,

Un problème, la macro ci-dessus fonctionne bein avec le "oui" en minuscule mais pas lorsqu'il est en majuscule
Merci a vous

Private Sub Workbook_Open()
If ActiveSheet.[f1] <> "oui" Then Exit Sub
MsgBox "vous devez faire une MAJ"

If Range("A2") = "manpower" Then
Call Miseajourmanpower

End If
If Range("A2") = "reflex" Then
'Miseajour
Call Miseajourreflex

End If
If Range("A2") = "randstad" Then

Call Miseajourrandstad

End If
End Sub

Cliquez pour agrandir...

Bizarre que personne ne se soit manifesté depuis le temps ...
Voici la solution : If lcase(activesheet.[f1]) <> "oui" etc
si c'est "oui", ça reste "oui", mais si c'est "OUI" ou "Oui", lcase transforme en "oui". Cette formule est plus simple que d'envisager tous les cas, par exemple randstat, il faudrait comparer avec Randstat, RANDSTAT, rAndstat, raNdstat, RANDStat etc ... comme nous sommes dans une chaîne de caractères, les majuscules et les minuscules n'ont pas le même code ASCII

 

Vote positif 0 Vote négatif