XL 2021 Calendrier des marées info

[Nicolas JACQUIN]

Bonjour à tous,

A ceux qui ont le pied marin,

je voulais savoir s'il était possible de créer un calendrier des marées avec :
-les heures de marée Haute
-les heures de marée Basse

et éventuellement les coefs.

Je ne sais pas du tout si c'est possible, mais si certains ont déjà étudiés sur la chose je suis preneur.

Je sais qu'il y a plein de site en ligne qui donne ce que je veux, mais se serait pour compléter un calendrier
avec les phases lunaires, éphémérides ..........

Si ça peut aider je suis de la région Lorientaise (Bretagne)

En vous remerciant d'avance.

Nicolas

 

[Staple1600]

Re,

@Nicolas JACQUIN
Quelle est ta version d'Excel ?

PS: Hier, j'ai fait cette MAJ Windows
23 juillet 2024-KB5041355 Préversion de la mise à jour cumulative pour .NET Framework 3.5, 4.8 et 4.8.1 pour Windows 10 version 22H2

Et comme PQ utilise .NET, il y a peut-être un lien cause à effet.

Je vais faire un autre test en changeant de port pour voir

 

[Staple1600]

Re

@Nicolas JACQUIN
Je viens de faire le test avec ce port
https://www.horaire-maree.fr/maree/BARFLEUR/
J'ai fait la modification dans les 3 requêtes présentes dans le classeur
Aucun problème (ni quand je fais Actualiser tout)

PS: Lors de la modification, PQ demande juste de modifier les données d'identification
(par défaut Anonyme)

Voir ici pour plus d'explications

 

[Nicolas JACQUIN]

Re, dans mes mises à jour, il me là propose aussi, j'installe et reviens après avoir testé.
La version excel:

 

[Nicolas JACQUIN]

Toujours pareil après mise à jour et redémarrage
dès que je fait modifier j'ai ça

et après les même message d'erreur.
je vais essayer avec le lien de départ et voir si j'y arrive

Merci de prendre du temps pour ça

Nico

 

[Nicolas JACQUIN]

Je suis reparti de zéro comme prévu, l'actualisation fonctionne bien, par contre le seul problème que j'ai c'est que je ne sait pas comment séparer les heure de marrées des hauteurs d'eaux.
Si tu saurai m'aiguiller

edit: voir même supprimer les hauteurs d'eaux

 

[Staple1600]

Re

@Nicolas JACQUIN
J'ai ajouté des étapes supplémentaires

let
    Source = Web.Page(Web.Contents("https://horaire-maree.fr/maree/LORIENT/")),
    Data1 = Source{1}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data1,{{"Date", type text}, {"Matin Coeff.", type text}, {"Matin Basse mer", type text}, {"Matin Pleine mer", type text}, {"Après-midi Coeff.", type text}, {"Après-midi Basse mer", type text}, {"Après-midi Pleine mer", type text}}),
    #"Premières lignes supprimées" = Table.Skip(#"Type modifié",1),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(#"Premières lignes supprimées", "Matin Basse mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Matin Basse mer.1", "Matin Basse mer.2"}),
    #"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Fractionner la colonne par délimiteur", "Matin Pleine mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Matin Pleine mer.1", "Matin Pleine mer.2"}),
    #"Fractionner la colonne par délimiteur2" = Table.SplitColumn(#"Fractionner la colonne par délimiteur1", "Après-midi Basse mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Après-midi Basse mer.1", "Après-midi Basse mer.2"}),
    #"Fractionner la colonne par délimiteur3" = Table.SplitColumn(#"Fractionner la colonne par délimiteur2", "Après-midi Pleine mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Après-midi Pleine mer.1", "Après-midi Pleine mer.2"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Fractionner la colonne par délimiteur3",{"Matin Basse mer.2", "Matin Pleine mer.2", "Après-midi Basse mer.2", "Après-midi Pleine mer.2"})
in
    #"Colonnes supprimées"

C'est le résultat escompté ?

 

[Nicolas JACQUIN]

C'est parfait et là ça fonctionne, je ne sais pas pourquoi ça ne voulait pas avant

Maintenant je n'ai plus cas l'intégrer à mon calendrier.

Juste dernière pitite question, via l'enregistreur de macro je peux faire l'actualisation au démarrage du fichier ?

VRAIMENT UN GRAND MERCI

Nico

 

[Staple1600]

Re

@Nicolas JACQUIN
La réponse est oui
Laisse tourner l'enregistreur de macros en faisant Actualiser tout
et tu auras la syntaxe vba idoine, non ?

 

[Nicolas JACQUIN]

Je posais la question juste comme ça, j'ai pas essayé encore.
Merci à toi
Nico

 

[Staple1600]

Re

@Nicolas JACQUIN
Je viens de le faire sur mon PC
Ce qui donne

Sub Macro1()
ActiveWorkbook.RefreshAll
End Sub

Donc en adaptant pour que cela se fasse à l'ouverture

Private Sub Workbook_Open()
ThisWorkbook.RefreshAll
End Sub

 

[Staple1600]

Bonjour @Jeannette (et bienvenu sur XLD)

Effectivement, c'est plus simple.

Comme le demandeur parlait de VBA, j'ai bêtement lancé mon enregistreur de macros.

En guise de pénitence, je ne prendrais pas d'apéro ce soir.

 

[dysorthographie]

Bonjour,
juste pour m'amuser

notes que je ne gère pas le jour actuel mais les 10 prochain avec un actualisation si évolution!
tu n'as pas au jourd'hui mais est-ce grave?

édite j'ai recharger le fichier

 

[Nicolas JACQUIN]

Bonjour Jeannette , dysorthographie,
Merci de votre participation aussi

A Robert,
tu avais déjà mi ta grosse participation il y a pas mal de temps sur la lunaison du projet

XL 2021 - Calendrier des marées info

Bonjour à tous, A ceux qui ont le pied marin, je voulais savoir s'il était possible de créer un calendrier des marées avec : -les heures de marée Haute -les heures de marée Basse et éventuellement les coefs. Je ne sais pas du tout si c'est possible, mais si certains ont déjà étudiés sur...

excel-downloads.com

Merci à tous.

 

[Staple1600]

Re

@Nicolas JACQUIN
C'est normal que ton dernier lien pointe sur cette discussion ?
Tu ne voulais pas plutôt mettre un lien vers la discussion relative à : la lunaison du projet ?

 

[Nicolas JACQUIN]

non c'était pour qu'il sens rappel, l'apparence était presque pareil