veriti site des amis d'excel

effectivement après essai sur un autre micro pas possible d'ouvrir le fichier.
mon fichier doit être corrompu.

Bonjour
en attendant mieux la macro
Sub MiseEnGrasDesSamediEtDimancheEtFérié()
Dim Cell As Range
With Sheets("Feuil1")
MsgBox .Range(Cells(4, 5), Cells(4, Range("IV4").End(xlToLeft).Column)).Address
For Each Cell In .Range(Cells(4, 5), Cells(4, Range("IV4").End(xlToLeft).Column))


If Weekday(CDate(Cell)) = 1 Or Weekday(CDate(Cell)) = 7 Then
Cell.Interior.ColorIndex = 15
Else
Cell.Interior.ColorIndex = xlNone
End If
'Jour de l'an
If Cell = CDate("1/1/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Paques
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) Then
Cell.Interior.ColorIndex = 15
'Lundi de paques
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 1 Then
Cell.Interior.ColorIndex = 15
'1 er mai
ElseIf Cell = CDate("1/5/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Fète De La Victoire
ElseIf Cell = CDate("8/5/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Ascension
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 39 Then
Cell.Interior.ColorIndex = 15
'Pentecote
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 49 Then
Cell.Interior.ColorIndex = 15
'Lundi de Pentecote
ElseIf Cell = CDate(Round(CDate((Day(Minute(Year(Cell) / 38) / 2 + 55) & "/4/" & Year(Cell))) / 7, 0) * 7 - 6) + 50 Then
Cell.Interior.ColorIndex = 15
'Fète nationnale
ElseIf Cell = CDate("14/7/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Assomption
ElseIf Cell = CDate("15/8/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Toussaint
ElseIf Cell = CDate("01/11/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Armistice
ElseIf Cell = CDate("11/11/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
'Noel
ElseIf Cell = CDate("25/12/" & Year(Cell)) Then
Cell.Interior.ColorIndex = 15
End If
Next
End With

End Sub

Bonjour tout le monde,

J'ai reçu comme Salim un avertissement pour un souci sur ce fil... visiblement un pb de fichier joint.
Je vois que si ce n'est réglé, il s'en est occupé et que ce n'était pas trop grave (puisque venant de JEAN MARCEL qui est qqun de fiable et intervenant connu et de qualité)...

Je doute que Vincent ait le temps de voir et traiter ce souci... il est trop pris (enfin j'espère que c'est cela la raison).

Sinon j'en profite pour dire que chez moi (et au boulot) sur trois navigateurs différents (chrome à la maison, firefox et internet explorer ici), la présentation a changé, la police d'écriture est bcp plus grosse, bref, c'est bcp moins "joli" si je puis dire et comme je le constate sur plusieurs cas de figure, je pense que c'est dû au site.

Le constatez vous vous aussi ?
Est ce lié (une mise à jour qui aurait changé tout cela) ?

Toujours est il que le calme qui règne ici (mieux que des bastons vous me direz) est un peu "démotivant" ce qui explique mon peu de connexions...

Bisous à tous pour compenser la tristesse ambiante (manque de posts et temps).

Bonjour
Brigitte .
je constata aussi que la présentation à changé,et que certains caractères sont transformés par des hiéroglyphes ce qui me fais dire que cela peut provenir du site.

bonjour

Par exemple j'ai le texte :
Modérateur

pour modérateur
est ce que tout cela est lié ?

Bonjour,

Après vérification en ligne avec Jean Marcel, le fichier marche bien.

Le souci provient donc bien, comme je le pensai, certainement du site.

Vincent, si tu nous entends.

Merci JM... Bisous

PS : peut être pourriez vous vous arranger par mail !!!

Bonjour Brigitte (spéciale Biz), Jean-Marcel le fil et toi le forum,

Problème de fichier résolu, il est à nouveau accessible, la panne provenait bien du site, une erreur dans la programmation PHP, mise à jour effectuée.

Tout devrait rentrer dans l'ordre, je vous remercie pour votre implication et de votre patience ; je suis (vous l'aurez sans doute remarqué) très absent sur VériTi ces derniers temps, j'ai mon activité professionnelle qui me prend énormément de temps, mais bon, ce n'est pas une excuse.

Je suis d'autant plus désolé que je n'ai pas encore pu mettre en place le projet Matricielle avec Monique Brigitte et compagnie qui me tient vraiment à cœur. J'attends un moment d’accalmie et le seul que je puisse trouver pour le moment c'est pendant la farniente ! mais y'en a pas beaucoup je pense déjà au travail de fin d'année c'est vous dire !

Je l'aurai un jour, je l'aurai !!

Bon vé préparer mes valises car demain c'est bouchon et plage



Bonnes vacances à Toutti

A+ Vériland

Quel plaisir de te voir, tu peux pas savoir.

Une bouffée d'oxygène en cette fin de semaine.

J'aime tes posts, et ta gentillesse, empreints d'humour, en pluss, ce qui ne gâche rien.

Bisous et bonnes vacances.

On t'a choppé à temps, ouf !!

Bonsoir
me voila rassuré.
je me posai beaucoup de questions.
bonnes vacances
biz à Brigitte