Convertir un chiffre en lettres avec Excel 365

Formule pour un chiffre dans la cellule A1 :

=LET(
Denom; {” million “;” mille “;” Euro “;” Centimes”};
Nums; {“”.”Un”.”Deux”.”Trois”.”Quatre”.”Cinq”.”Six”.”Sept”.”Huit”.”Neuf”};
Teens; {“Dix”.”Onze”.”Douze”.”Treize”.”Quatorze”.”Quinze”.”Seize”.”Dix-sept”.”Dix-huit”.”Dix-neuf”};
Tens; {“”.”Dix”.”Vingt”.” Trente”.” Quarante”.”Cinquante”.”Soixante”.” Soixante”.”Quatre-vingt”.”Quatre-vingt”};
grp; {0;1;2;3};
LET(
N; SUBSTITUE( TEXTE( A1; REPT(0;9)&”,00″ );”,”;”0″);
H; CNUM( STXT( N; 3*grp+1; 1) ); T; CNUM( STXT( N; 3*grp+2; 1) );
U; CNUM( STXT( N; 3*grp+3; 1) );
Htxt; SI( H; SI(H>1; INDEX( Nums; H+1 ) & ” cent “; “cent ” ); “”);
Ttxt; SI( T>1; INDEX( Tens; T+1 ) & SI( U>0; ” “; “” ); ” ” );
Utxt; SI((T+U); SI((T=1)+(T=7)+(T=9); INDEX(Teens;U+1 );INDEX(Nums;U+1)));
SUPPRESPACE(SUBSTITUE(NOMPROPRE(CONCAT( SI( H+T+U; Htxt & Ttxt & Utxt & Denom; “” )));”Un Mille”;”Mille”))
))

Source : Convertir un chiffre en lettres avec Excel 365

MS Outlook : modifier les séries de réunions récurrentes sans annuler les exceptions (annuler les prochaines occurrences)

  • Sur la version web d’outlook 365 : https://outlook.office.com/calendar/view/week
  • Select the meeting in your calendar and select Cancel > This and all following events: Choose this option to cancel the event you’ve selected in the calendar and all subsequent events in the series.

Source : Create, modify, or delete a meeting request or appointment in Outlook.com

Affichage “léger” des modifications dans un fichier Word – suivi des révisions

  1. Accepter toutes les modifications précédentes et supprimer tous les commentaires de la version initiale
  2. Dans l’onglet révision, développer le suivi pour faire apparaitre la fenêtre A, et reprendre tous les paramétrages indiqués.
  3. Dans cette fenêtre, cliquer sur « options avancées » pour faire apparaitre la fenêtre B, et reprendre tous les paramétrages indiqués.
  4. Amender le document !

NB : cela peut aussi être fait a posteriori avec une comparaison des 2 versions des fichiers.

Modifier la langue des commentaires dans Word

  • Affiche le volet des styles
  • Clique dans un commentaire
  • En bas du volet des styles, clique sur le 3e bouton (Gérer les styles)
  • Sous l’onglet Modifier, le style Commentaire doit être automatiquement sélectionné
  • Clique sur le bouton Modifier
  • Dans la boîte de dialogue Modifier le style, en bas à gauche, clique sur le bouton Format, puis sur Langue
  • Choisis la langue pertinente
  • OK, OK, OK

Source : Modifier la langue des commentaires dans Word [Résolu] – Comment Ça Marche

A quoi sert PowerQuery : 5 mns pour comprendre l’extraordinaire potentiel en gains de productivité

Vidéo de présentation : A quoi sert PowerQuery : 5 mns pour comprendre l’extraordinaire potentiel en gains de productivité – XLérateur

et aussi : https://powerquery.microsoft.com/en-us/

Facebook Container pour Firefox

Malgré l’avènement du mouvement #supprimerfacebook tout le monde ne semble pas encore tout à fait prêt à couper les ponts avec les relations qu’ils ont établies sur la plateforme sociale. Facebook est après tout – avec sa filiale Instagram – un passage obligé, là où les clubs de VTT organisent leurs promenades, les gens publient leurs photos d’animaux de compagnie, les mouvements de danse fourmillent et les moments de la vie sont partagés. Depuis le scandale de Cambridge Analytica, Facebook est néanmoins considéré avec beaucoup plus de scepticisme, les gens se méfiant de plus en plus de sa manière de recueillir, utiliser et donner accès à nos données personnelles pour une publicité et une manipulation ciblées, sur et hors des plateformes Facebook.

Source : Facebook Container pour Firefox | Firefox et au-delà

Excel : convertir des notes en commentaires

Souvent le passage d’un fichier d’une ancienne version d’Excel à celle récente implique que les commentaires sont sous forme de “notes” et non pas de commentaires, ne facilitant pas leur traitement.

Sous une version de MS Excel récente, il suffit de “convertir” ces notes en commentaires pour fluidifier leur lecture et traitement.

Sept bonnes raisons de ne pas répondre (tout de suite) aux e-mails

281 milliards d’e-mails sont échangés chaque jour dans le monde, un flux qui ne tarit jamais. Les participants de mes études en reçoivent une trentaine par jour en moyenne, et certains plus de 200. À longueur de journée, les e-mails inondent vos messageries, et la crainte de la noyade peut provoquer stress et burn-out. Un phénomène de renforcement positif, proche du plaisir addictif de la loterie, vous pousse cependant à ne vouloir en rater aucune goutte.

Dans ces e-mails, les expéditeurs réclament bien entendu des réponses « d’ici vendredi », « d’ici demain » ou encore « CE MATIN ! » (sic). Plus de la moitié attend même une réponse dans l’heure. Dans ces conditions, la tentation est grande de se laisser porter par le courant plutôt que de chercher à le remonter. S’il vous a déjà été reproché un temps de réponse aux e-mails trop long, voici quelques arguments, étayés par la recherche, pour justifier le naufrage.

1. « Aux dernières nouvelles, l’e-mail est asynchrone »

Nous ne recevons du courrier postal qu’une fois par jour. L’e-mail, lui, arrive par défaut en flux continu. Un e-mail est consulté en moyenne en moins de deux minutes suivant sa réception, et 70 % des e-mails le sont en six secondes. Il faut plus d’une minute pour retrouver la productivité perdue par cette interruption. Votre destinataire ne peut qu’être impressionné par le sang-froid dont vous avez dû faire preuve pour ne pas répondre de suite à sa requête. N’allez pas pour autant régler la fréquence de réception de votre messagerie à une fois par mois. La fréquence optimale est plutôt de deux à quatre réceptions par jour.

2. « Je ne réponds jamais à chaud »

Vous n’avez sans doute pas saisi toutes les nuances de l’e-mail que vous avez reçu. Ce n’est pas de votre faute, mais plutôt de celle des expéditeurs, qui ne parviennent souvent pas à transmettre les messages tels qu’ils le souhaitent. Une étude demanda à des participants de rédiger des e-mails sarcastiques ou humoristiques. Bien entendu, les destinataires ne les perçurent jamais comme tels. Il est cependant convenu que les e-mails sont parfaitement appropriés pour transmettre et escalader les conflits. Si l’e-mail vous irrite, laissez-le donc reposer quelque temps.

N’oubliez pas que l’humour et l’ironie passent beaucoup plus difficilement à l’écrit ! ESB Professional/Shutterstock

3. « Je protège votre droit à la déconnexion »

N’hésitez pas à brandir le droit à la déconnexion comme excuse pour ne pas répondre aux e-mails reçus en dehors des heures de travail habituelles. Bien qu’elle soit glorifiée par une certaine culture de l’hyperconnexion et plébiscitée par les employés, cette pratique fait entrer en conflit vie personnelle et vie professionnelle, ce qui est source de stress dont l’accumulation peut conduire au burn-out. Par ailleurs, votre destinataire prendra sans doute connaissance de votre réponse en dehors de ses heures de travail également, lui causant les mêmes problèmes. Vous lui rendrez donc service en retardant votre réponse.

4. « J’ai trop de travail »

Les études s’accordent à dire que la réception, la lecture et la rédaction d’e-mails rallongent les journées de travail. La lecture, à elle seule, équivaut à une demi-heure par jour. A cela s’ajoute le temps passé sur les e-mails en dehors du bureau, que l’Organisation internationale du travail équivaut à des heures supplémentaires ou à du télétravail. Bien que les e-mails soient généralement utiles à notre travail, votre interlocuteur peut comprendre que vous ayez d’autres choses à faire…

5. « Votre e-mail s’est perdu (par votre faute) »

Si vous ne vous rappelez plus avoir supprimé ou ignoré l’e-mail, c’est peut-être qu’il ne vous appelait pas clairement à l’action. Un message efficace est bref, exploitable, son titre est explicite. Les employés formés à rédiger des e-mails de cette manière ressentent non seulement moins de stress, mais génèrent également moins de stress chez leurs destinataires. Cette excuse est encore plus plausible si votre mantra est l’inbox zero et que votre passion est le nettoyage compulsif de messagerie. Un employé n’autorisant pas sa boîte de réception à dépasser 20 e-mails a même été aperçu dans une étude. Avec une telle réputation, vos interlocuteurs craindront le sort qui risque d’être réservé à leurs e-mails inefficaces.

6. « Votre e-mail m’était-il destiné ? »

Personne n’est nostalgique de la copie carbone, qui consistait à dupliquer des manuscrits à l’aide d’une feuille de papier carbone. Personne ne le sera non plus de la fonctionnalité e-mail homonyme. Contrairement à son ancêtre, elle permet à ceux qui l’emploient d’envoyer des messages à des milliers de destinataires, pour exactement le même effort qu’à un seul. Un article est même allé jusqu’à suggérer un « timbre virtuel » facturant les employés « sur la base de leur quantité de destinataires ». L’effet spectateur étudié en psychologie sociale explique que plus il y a de personnes susceptibles d’aider autour de nous, moins nous nous sentons le devoir d’intervenir. Une bonne excuse pour ne pas répondre aux e-mails dont vous n’êtes pas l’unique destinaire.

La copie carbone, le copier-coller du XXᵉ siècle. Holger.Ellgaard/Wikimedia, CC BY

7. « Je n’aime pas les e-mails »

Peut-être êtes-vous plus téléphone qu’e-mail. Mes recherches montrent qu’il est préférable d’interagir avec les outils de communication que nous préférons. Quand un de mes participants déclarait « je déteste le téléphone », un autre avouait appeler systématiquement ses collègues. Si vous n’aimez pas l’e-mail, avez-vous alors déjà partagé vos préférences à vos interlocuteurs ?

Présentation et explication de l’article « Stress au travail issu de la communication virtuelle effective et désirée », par Jean-François Stich (mai 2018).

Veillez tout de même à ne pas abuser de ces excuses

Une de mes études a mis en lumière le phénomène de sous-charge d’e-mails chez celles et ceux qui ne reçoivent pas autant d’e-mails qu’ils ne l’espèrent, sans cesse en attente de réponses. Ce phénomène est source de stress au même titre que la surcharge d’e-mails.

Alors quand vous userez de ces excuses, gardez à l’esprit que, demain, ce sera peut-être vous qui rafraîchiriez votre messagerie chaque minute, dans l’attente fébrile de réponses à vos e-mails.

Source : Sept bonnes raisons de ne pas répondre (tout de suite) aux e-mails

Enregistrer rapidement un email en pdf

Sous Microsoft Outlook (sous Windows), possibilité de créer une macro VBA simple et l’associer à un bouton de la barre d’outils “Accès rapide”.

Création de la Macro :

  • Ouvrir l’éditeur Microsoft Visual Basic pour Applications depuis votre fenêtre Outlook : Alt + F11
  • Créer un module
    null
  • Coller ce bout de code
Sub SaveAsPDFfile()
'====================================================
' Description: Outlook macro to save a selected item in the pdf-format
' Requires Word 2007 SP2 or Word 2010
' Requires a reference to "Microsoft Word Object Library"
' (version is 12.0 or 14.0)
' In VBA Editor; Tools-> References…
'
' author: Robert Sparnaaij
' website: http://www.howto-outlook.com/howto/saveaspdf.htm
'
' Complété et modifié le 24/08/2017 par HGD :
' + ajout du numéro de page en pied de page
' + modification du nom de fichier proposé par défaut pour un format "AAAAMMJJ-HHhmm-Email_Expéditeur"
' + modification du dossier de sauvegarde par défaut (Bureau)
' + ouverture du pdf et de l'explorateur Windows en fin de processsus
'
'====================================================
'Get all selected items Dim MyOlNamespace As Outlook.NameSpace Set MyOlNamespace = Application.GetNamespace("MAPI") Set MyOlSelection = Application.ActiveExplorer.Selection 'Make sure at least one item is selected If MyOlSelection.Count <> 1 Then Response = MsgBox("Please select a single item", vbExclamation, "Save as PDF") Exit Sub End If 'Retrieve the selected item Set MySelectedItem = MyOlSelection.Item(1) 'Get the user's TempFolder to store the item in Dim FSO As Object, TmpFolder As Object Set FSO = CreateObject("scripting.filesystemobject") Set tmpFileName = FSO.GetSpecialFolder(2) 'construct the filename for the temp mht-file strName = "testPDFOutlook03" tmpFileName = tmpFileName & "\" & strName & ".mht" 'Save the mht-file MySelectedItem.SaveAs tmpFileName, olMHTML 'Create a Word object Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") 'Open the mht-file in Word without Word visible Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False) ' HGD le 24/08/2017 : Ajout des numéros de page en pied de page central wrdDoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberCenter ' et pas testé complètement, mais à tester et affiner si on souhaite les numéros de page aussi (issu d'un enregistrement de macro sous Word)
' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
' ActiveWindow.Panes(2).Close
' End If
' If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
' ActivePane.View.Type = wdOutlineView Then
' ActiveWindow.ActivePane.View.Type = wdPrintView
' End If
' ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
' Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
' Selection.TypeText Text:="Page "
' Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
' "PAGE ", PreserveFormatting:=True
' Selection.TypeText Text:=" / "
' Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
' "NUMPAGES ", PreserveFormatting:=True
' Selection.Font.Bold = wdToggle
' Selection.Font.Size = 10
' Selection.Font.Name = "Arial"
' Selection.Font.Name = "Calibri"
' ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
'Define the SaveAs dialog Dim dlgSaveAs As FileDialog Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs) 'Determine the FilterIndex for saving as a pdf-file 'Get all the filters Dim fdfs As FileDialogFilters Dim fdf As FileDialogFilter Set fdfs = dlgSaveAs.Filters 'Loop through the Filters and exit when "pdf" is found Dim i As Integer i = 0 For Each fdf In fdfs i = i + 1 If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then Exit For End If Next fdf 'Set the FilterIndex to pdf-files dlgSaveAs.FilterIndex = i 'Get location of My Documents folder Dim WshShell As Object Dim SpecialPath As String Set WshShell = CreateObject("WScript.Shell") SpecialPath = WshShell.SpecialFolders("Desktop") ' HGD le 24/08/2017 : voir <http://excel-malin.com/codes-sources-vba/trouver-chemin-de-bureau/> ' Formule initiale vers "Mes Documents" avec SpecialPath = WshShell.SpecialFolders(16) 'Construct a safe file name from the message subject Dim msgFileName As String msgFileName = MySelectedItem.ReceivedTime ' HGD le 24/08/2017 : rend quelque chose du genre "24/08/2017 15:07:30" ' Formule initiale avec comme nom de fichier le Sujet du mail : msgFileName = MySelectedItem.Subject ' HGD le 24/08/2017 : Construction d'un nom de type "AAAAMMJJ-HHhmm-Email_Expéditeur" Dim AAAA, MM, JJ, HH, min, ss As String JJ = Left(msgFileName, 2) MM = Right(Left(msgFileName, 5), 2) AAAA = Right(Left(msgFileName, 10), 4) HH = Right(Left(msgFileName, 13), 2) min = Right(Left(msgFileName, 16), 2) ss = Right(Left(msgFileName, 19), 2) msgFileName = AAAA & MM & JJ & "-" & HH & "h" & min ' & "-" & ss ' (pas besoin des secondes) msgFileName = msgFileName & "-Email_" & MySelectedItem.SenderName Set oRegEx = CreateObject("vbscript.regexp") oRegEx.Global = True oRegEx.Pattern = "[\\/:*?""<>|]" msgFileName = Trim(oRegEx.Replace(msgFileName, "")) 'Set the initial location and file name for SaveAs dialog Dim strCurrentFile As String dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName 'Show the SaveAs dialog and save the message as pdf If dlgSaveAs.Show = -1 Then strCurrentFile = dlgSaveAs.SelectedItems(1) 'Verify if pdf is selected If Right(strCurrentFile, 4) <> ".pdf" Then Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _ vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel) If Response = vbCancel Then wrdDoc.Close wrdApp.Quit Exit Sub ElseIf Response = vbOK Then intPos = InStrRev(strCurrentFile, ".") If intPos > 0 Then strCurrentFile = Left(strCurrentFile, intPos - 1) End If strCurrentFile = strCurrentFile & ".pdf" End If End If 'Save as pdf wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _ strCurrentFile, ExportFormat:= _ wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=0, To:=0, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False End If Set dlgSaveAs = Nothing ' close the document and Word wrdDoc.Close wrdApp.Quit ' HGD le 24/08/2017 : Ouverture de l'explorateur Windows en fin de processus ' voir https://excel.developpez.com/faq/index.php?page=FichiersDir#OuvreExploWindows Dim MonFichier As String MonFichier = SpecialPath Shell "C:\windows\explorer.exe " & MonFichier, vbMaximizedFocus ' HGD le 24/08/2017 : Ouverture du fichier pdf en fin de processus (pour visu et vérification) ' voir http://excel-malin.com/codes-sources-vba/vba-ouvrir-un-fichier-de-tout-type/ Dim MonApplication As Object Set MonApplication = CreateObject("Shell.Application") MonFichier = SpecialPath & "\" & msgFileName & ".pdf" MonApplication.Open (MonFichier) Set MonApplication = Nothing 'Cleanup Set MyOlNamespace = Nothing Set MyOlSelection = Nothing Set MySelectedItem = Nothing Set wrdDoc = Nothing Set wrdApp = Nothing Set oRegEx = Nothing
End Sub
  • Adapter les éléments en gras à ce que vous souhaitez et fermer l’éditeur en sauvegardant.

Création du bouton et affectation de la macro

  • Ouvrir la fenêtre des Options Outlook : voir image ci-dessous.
  • Sélectionner “Macros” dans les catégories de commandes à afficher
  • Puis la Macro à ajouter et enfin “Ajouter” (bouton au milieu).
  • Vous pouvez ensuite modifier le “Nom” du bouton, et son symbole.
  • Accéder rapidement à l’action via le bouton qui s’affiche dans la barre tout en haut

Ajouter rapidement un préfixe à l’objet d’un email

Sous Microsoft Outlook (sous Windows), possibilité de créer une macro VBA simple et l’associer à un bouton de la barre d’outils “Accès rapide”.

Création de la Macro :

  • Ouvrir l’éditeur Microsoft Visual Basic pour Applications depuis votre fenêtre Outlook : Alt + F11
  • Créer un module
  • Coller ce bout de code
Sub CreerEmail_AMO_Funiflaine()
'Voir https://docs.microsoft.com/fr-fr/office/vba/api/outlook.mailitem

Dim myItem As Object
Set myItem = Application.CreateItem(olMailItem)

myItem.Subject = "[AMO Funiflaine] "
myItem.Display

End Sub
  • Adapter les éléments en gras à ce que vous souhaitez et fermer l’éditeur en sauvegardant.

NB : prévoir un espace à la fin de l’objet pour faciliter la rédaction ensuite.

Création du bouton et affectation de la macro

  • Ouvrir la fenêtre des Options Outlook : voir image ci-dessous.
  • Sélectionner “Macros” dans les catégories de commandes à afficher
  • Puis la Macro à ajouter et enfin “Ajouter” (bouton au milieu).
  • Vous pouvez ensuite modifier le “Nom” du bouton, et son symbole.

Gare de Moissac, locaux disponibles, 93 m², déposer un projet…

En lançant l’opération 1001 gares, Gares & Connexions espère revitaliser de très nombreuses gares qui passent un peu sous le radar. Certes, on est dans un registre plus soutenu que les quelque 1 500 haltes équipées d’abris de quai. On est dans le dur, avec des « bâtiments voyageurs », « BV » pour les intimes. Mais ce millier de gares n’ont pas de commerces et leurs 300 voyageurs par jour en moyenne ne suffisent pas pour en attirer. On est très loin du modèle City Booster dont raffole Gares & Connexions.

Source : Gare de Moissac, locaux disponibles, 93 m², déposer un projet… – Ville, Rail et Transports

Visualizing Geographic Statistical Data with Google Maps

This tutorial will teach you how to create a custom Google Maps based map for visualizing geographic statistical data. Such maps can be a useful tool when developing machine learning models. As a specific example case, we will create a map for visualizing the population density and median household income of postal code areas in Finland.

Source : Visualizing Geographic Statistical Data with Google Maps

MS Project : fonction « report » pour reporter plusieurs tâches sur une même ligne

  1. Ajouter le champ « Report » dans les colonnes du planning
  2. Mettre sur Oui le champ « Report » des tâches subordonnées qui doivent être reportées sur la barre de la tâche récapitulative
  3. Mettre sur Oui le champ « Report » des tâches récapitulatives sur lesquelles les tâches subordonnées doivent être reportées

/!\ Les tâches à reporter doivent obligatoirement être des tâches subordonnées !

  1. Créer une barre de style qui représentera ces « tâches reportées », avec la notion de “Répétées”