Dans l'Egypte Antique, les personnes de petite taille (atteintes de nanismes) jouissaient d'un statut privilégié : on considérait que ces personnes avaient des dons célestes. Leur statut leur garantissait un rang social élevé, et certains furent enterrés près des tombes royales.

Par ailleurs, la grande proportion de personnes atteintes de nanisme dans l'Égypte antique semble indiquer que l'on en faisait venir depuis les contrées voisines.

Le Collège national des gynécologues et obstétriciens français a publié [...] une "Charte de la consultation en gynécologie ou en obstétrique".

La cour d'appel de Bruxelles a rendu un arrêt intéressant. Un client s'est plaint que sa banque orthographiait mal son nom. La banque n'avait pas de support pour les signes diacritiques. Des signes comme á, è, ô, ü, ç, etc. Ces accents sont courants dans de nombreuses langues. Il était donc un peu surprenant que la banque ne les prenne pas en charge. La banque ayant refusé d'orthographier correctement le nom de son client, ce dernier a déposé une plainte au titre du RGPD en vertu de la loi sur la protection des données.

Une nébuleuse ayant des airs de chauve-souris.

Dans la mythologie grecque, Pandore est la première femme humaine créée par Zeus [...] Pandore est loin d’être une femme comme les autres : tout d’abord parce que c’est la première, mais aussi parce qu’elle a été mise sur terre afin que Zeus puisse se venger de Prométhée, Titan qui avait volé le feu aux dieux pour le donner aux hommes. C’est peu flatteur pour le genre féminin, mais c’est un fait : Pandore sera celle qui apportera le malheur aux hommes.
Le plan de Zeus est bien rodé : il offre la main de Pandore au frère de Prométhée, Epithémée et donne à Pandore elle-même la fameuse boîte – qui, en réalité, est une jarre – et lui interdit de l’ouvrir. Pour cause, cette jarre contient la totalité des maux terrestres : la vieillesse, la famine, la guerre, la misère, la maladie, les épidémies (oui, oui), les vices, entre autres, mais aussi l’espérance (aussi étonnant que cela puisse paraître).

La fin de l’histoire est moins joyeuse puisque Pandore, cédant à la curiosité (dont Hermès, le dieu messager, lui avait fait don à sa « naissance »), ouvrit la boîte et libéra tous les maux qui s'abattirent alors sur la race humaine – sauf l’espérance, qui, plus lente que le reste de la troupe, resta au fond de la boîte (manque de chance…).

:-D

Le cincle plongeur est le seul oiseau au monde capable de voler et de marcher… sous l'eau ! Quand il repère une proie, il glisse sous la surface de l'eau, et marche littéralement dans l'eau ou vole sous l'eau. Son plumage dense lui offre une bonne isolation dans l'eau où il trouve ses proies.

Véritable bijou de l'évolution, on peut l'observer dans tout le sud et l'est de la France. C'est également l'oiseau national de la Norvège.

Ainsi en va-t-il pour New York et la Nouvelle Orleans :
New York fait référence au duc de York, et remplace l'ancien nom de la ville… New Amsterdam !
Nouvelle Orleans fait référence au duc d'Orléans.
Dans ces deux cas, la ville de référence existe toujours, et on peut donc parler de nouvelle Orléans (USA) et d'Orléans (France).
Mais… où sont l'ancienne Zélande, l'ancienne Calédonie, et l'ancienne Guinée ?
La ville de Zeeland se trouve aux Pays-Bas. Elle existe toujours dans un relatif anonymat : avec ses 300 000 habitants, on peut dire que la nouvelle a largement dépassé l'ancienne.
La Calédonie désignait autrefois l'Angleterre. Quand Astérix parle de Calédoniens, il parle bien de nos voisins d'Outre Manche ! Le nom étant tombé en désuétude, il devient maintenant courant de nommer La Nouvelle Calédonie… Calédonie tout court, pour gagner du temps !
Quant à l'ancienne Guinée… il s'agit bien de l'actuelle Guinée, en Afrique. Pour une fois, ce n'est pas un titre ou un lieu de naissance : l'explorateur Yñigo Ortiz de Retez trouvait simplement que les habitants de cette île australe ressemblait aux Guinéens, l'expression est restée.

    Dim DebutExecutionMacro As Date

    DebutExecutionMacro = Now
    MsgBox "L'onglet Synthèse du fichier " + NomFichierCible + " est (re)créé." + vbLf + vbLf + _
            "Temps d'exécution : " & Format(Now - DebutExecutionMacro, "hh:mm:ss")

Pour un répertoire /

    Dim RepertoireExiste As Boolean
    If Len(Dir(Repertoire, vbDirectory)) > 0 Then
        RepertoireExiste = True
    Else
        RepertoireExiste = False
        MsgBox "Le répertoire n'existe pas pour ce RUN." & vbLf & Repertoire, vbExclamation + vbOKOnly
        Exit Function
    End If

Ne pas oublier l'attribut vbDirectory. C'est grâce à lui que la fonction Dir() sait qu'on est sur un répertoire.

Pour un fichier :

    Dim FichierExiste As Boolean
    If Len(Dir(Repertoire & ModeleNomFichier)) > 0 Then
        FichierExiste = True
    End If

Alternatives, en utilisant la référence Microsoft Scripting Runtime sous Excel

    Dim FS As Scripting.FileSystemObject

    Set FS = New Scripting.FileSystemObject

    If Not FS.FolderExists(Repertoire) Then
        MsgBox "Le répertoire n'existe pas" + vbCrLf + Repertoire, vbCritical, "Répertoire inexistant"
        Exit Function
    End If

Pour un fichier, utiliser FS.FileExists(Repertoire + "\" + Fichier).

Worksheets("Synthèse").Range("A1", Cells.SpecialCells(xlCellTypeLastCell)).EntireColumn.AutoFit

Ca permet d'accélérer le temps de traitement des macros, sans faire clignoter l'écran, ni avoir besoin d'interagir avec l'utilisateur pour confirmer manuellement les actions du code VBA (ex. : demande de confirmation pour la fermeture d'un classeur sans enregistrement ; demande de confirmation pour écraser un fichier à l'enregistrement ; demande confirmation pour supprimer des données ; etc.).

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Ne pas oublier de repasser les valeur à True en fin de traitement, sinon l'affichage restera figé.

Workbooks.OpenText Repertoire & "\" & FichierCSV, xlWindows, 1, xlDelimited, , , , True, , , , , , , , , , True

Le 2nd True signifie que le séparateur utilisé est un point-virgule.

Alternative :

    Workbooks.Open Filename:=CheminFichierSource & NomFichierSource
    Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Copy
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, semicolon:=True

Windows est perclus de logiciels espions. Comment bien régler les paramètres de télémétrie et de confidentialité avant de le déployer.

Une vidéo sur le paracétamol et comment éviter son surdosage.