recherche date du jour

[judoka0209]

Bonjour, dans ma macro je voudrais qu'a la fin il me selectionne la date de jour que se trouve dans la ligne c
merci

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open Filename:= _
        "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
   Windows("Planning equipe 3x8 2019.xlsm").Activate
     Range("C13:NR13").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.ScrollColumn = 365
    ActiveWindow.ScrollColumn = 350
    ActiveWindow.ScrollColumn = 317
    ActiveWindow.ScrollColumn = 287
    ActiveWindow.ScrollColumn = 270
    ActiveWindow.ScrollColumn = 268
    ActiveWindow.ScrollColumn = 267
    ActiveWindow.ScrollColumn = 266
    ActiveWindow.ScrollColumn = 261
    ActiveWindow.ScrollColumn = 239
    ActiveWindow.ScrollColumn = 231
    ActiveWindow.ScrollColumn = 228
    ActiveWindow.ScrollColumn = 208
    ActiveWindow.ScrollColumn = 194
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 150
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 121
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 3
    Selection.Copy
    Range("C23").Select
    ActiveSheet.Paste
    Range("C33").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("C43").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=15
    Range("C53").Select
    ActiveSheet.Paste
    Range("C63").Select
    ActiveSheet.Paste
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"
 
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False

End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@judoka0209
Comme cela ne coûte rien de signaler que tu as posé ta question ici et là, je t'épargne un effort...
(même question mais ailleurs)

J'en profite pour t'offrir une petit cure d'amaigrissement à ta macro

Spoiler: REGIME VBA

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Workbooks.Open Filename:= _
"\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
Windows("Planning equipe 3x8 2019.xlsm").Activate
Range("C13:NR13").ClearContents
Range("C13:NR13").Interior.Pattern = xlNone
Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"
Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False
End Sub

NB: Pour ta question actuelle, une simple recherche dans les archives (ou sur le net) t'aurai déjà aiguiller vers la réponse

Spoiler: Indice: Find et Date

Sub FindDate()
'vieux code issu de mes archives poussiéreuses ;-)
Dim strdate$, rCell As Range
strdate = Format(Date, "Short Date")
On Error Resume Next
Set rCell = Cells.Find(What:=CDate(strdate), _
  After:=Range("A1"), _
  LookIn:=xlFormulas, _
  LookAt:=xlWhole, _
  SearchOrder:=xlByRows, _
  SearchDirection:=xlNext)
rCell.Select: MsgBox "La date du jour ce trouve en: " & rCell.Address(0, 0), vbInformation, "Résultat"
On Error GoTo 0
If rCell Is Nothing Then
MsgBox "Date introuvable!", vbCritical, "Erreur"
End If
End Sub

Je te laisse faire les ajustements nécessaires.

•By the web, j'attends toujours tes commentaires dans ton autre fil
https://www.excel-downloads.com/threads/probleme-ouverture-fichier.20025409/

 

[judoka0209]

merci

 

[Staple1600]

Re,

Même pas un petit bonjour ?

Et qu'en est-il de l'autre discussion ?
Chris45 tu peux demander à judoka0209 si il daignera répondre ou pas ?


PS: Merci pour quoi au fait ?
1) pour le multipostage (l'ajout du lien)
2) pour le régime de ta macro
3) pour la macro FindDate que j'ai posté
ou pour ces 3 points ?

 

[Staple1600]

Re, suite

En attendant que mon thé infuse, un peu de temps pour une version "light".

Spoiler: Un chouia plus court

Sub FindDate_Light()
Dim r As Range
On Error Resume Next
Set r = ActiveSheet.Columns(1).Find(Date): r.Select
On Error GoTo 0
If r Is Nothing Then MsgBox "Pas de date du jour dans cette colonne!", vbCritical, "Erreur"
End Sub

 

[judoka0209]

merci j'ai essayer ta formule mais j'ai enorment de difficulté programmer
je veux qu'il se mette sur la date du jour pas que ca m'ouvre une msgbox pour me dire qu'il y a pas de date

 

[Staple1600]

Bonjour le fil, le forum, judoka0209

@judoka0209

mais j'ai enorment de difficulté programmer
je veux qu'il se mette sur la date du jour pas que ca m'ouvre une msgbox pour me dire qu'il y a pas de date

Et moi j'aimerais bien avoir une réponse...

Bonsoir le fil, le forum
•By the web, j'attends toujours tes commentaires dans ton autre fil
https://www.excel-downloads.com/threads/probleme-ouverture-fichier.20025409/

Si la MsgBox s'affiche, cela veut qu'il y a absence de la date du jour, donc le code ne pas aller se mettre sur une cellule avec la date du jour si aucune cellule ne contient la date du jour

PS: Tu as aussi énormément de mal à dire Bonjour...

 

[judoka0209]

hihi bonjour,
si j'ai toutes les date de c3:ag3
et merci

 

[Staple1600]

Re

Avant de mettre des copies d'écran, prendre le temps de lire attentivement les messages qu'on te poste.

J'avais bien préciser dans le message#2

Je te laisse faire les ajustements nécessaires.

En effet mon exemple de code (qui n'est donc qu'un exemple) a été écrit pour chercher les dates dans la colonne 1
(ou colonne A)

D'où le besoin de faire des ajustements dans le code

EDITION: En attendant que tu ajustes toi-même

Spoiler: version modifiée

Sub FindDate_Light_Bis()
Dim r As Range
On Error Resume Next
Set r = ActiveSheet.Rows(3).Find(Date): r.Select
On Error GoTo 0
If r Is Nothing Then MsgBox "Pas de date du jour dans cette colonne!", vbCritical, "Erreur"
End Sub

 

[judoka0209]

merci ca marche
ca ne marchait pas car on est en 2018 et que le planning etait pour 2019
merci