Microsoft Japan’s 4-day work week boosted productivity by 40 percent

Microsoft Japon vient de publier les résultats de l’expérience qu’il a conduite en août : accorder tous leurs vendredis aux 2 300 salariés de l’entreprise (sans réduction de salaire et sans diminution de crédit vacances) : + 40% de productivité des équipes !

Microsoft a mesuré en outre qu’une semaine plus courte conduisait ses employés 1) à réduire la durée de leurs meetings et 2) à imprimer 59% moins de pages. Des réunions plus courtes, un geste pour l’environnement

Source : Microsoft Japan’s 4-day work week boosted productivity by 40 percent

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

Planificateur de trajets mulitmodaux : Moovit et TomTom s’associent

Paris, 14 février 2019 – Plusieurs leaders mondiaux de la mobilité urbaine ont dévoilé aujourd’hui la première et la plus complète plateforme de planification de trajets multimodaux au monde. Une solution permettant de réduire les embouteillages des villes à travers le monde et permettant ainsi aux développeurs de créer des applications plus riches afin d’améliorer les déplacements des consommateurs au sein de leurs villes. Les dirigeants de Moovit, leader des plateformes MaaS (“Mobility as a Service”) et première application de transport au monde ; TomTom, spécialiste des technologies de localisation ; ainsi qu’Azure Maps de Microsoft ont présenté une solution identifiant toutes les options de conduite, de stationnement et de transport en commun ; et les ont regroupé dans un seul et même produit pour les utilisateurs de carte. Cela sera particulièrement utile pour les utilisateurs de banlieues qui ne savent pas où stationner leur voiture ou bien quelle ligne de transport emprunter quand ils se rendent en ville.

Aux côtés de Nir Erez – cofondateur et PDG de Moovit – et Anders Truelsen – Directeur Général de TomTom – ; Chris Pendleton – Responsable de Azure Maps, a dévoilé la solution lors de son discours à la conférence MOVE à l’ExCeL London. Cette solution, qui s’appuie sur les API de transport de Moovit ainsi que sur les informations de la conduite et le stationnement provenant des API de TomTom, affiche les options permettant de connaître le trajet en voiture depuis une banlieue à un parking proche d’une station de transport, d’effectuer un trajet en transport public vers la ville et d’effectuer le reste du trajet à pied, en covoiturage, en scooter ou en vélo. Aucune autre solution de mobilité urbaine offre des informations en temps réel à la fois sur les déplacements en voiture, en transport en commun et sur les stationnements, dans un seul et unique planificateur de trajet. Grâce à l’intégration à Azure Maps, la plateforme de géolocalisation intelligente de Microsoft pour le cloud Azure, les développeurs pourront intégrer la planification de trajets multimodaux à leurs solutions IoT, de mobilité, de smart city et de logistique. Ces nouvelles API s’ajoutent à l’intégration des API de transport annoncée par Microsoft et Moovit en Novembre dernier.

« Durant les dernières années, les villes ont connu un important essor urbain, au cours duquel les habitants des zones métropolitaines ont dû se rediriger vers les banlieues, et très souvent au-delà des limites des lignes de transport en commun», déclare Chris Pendleton, Responsable de Azure Maps.     « La plupart des emplois se trouvant encore dans les grandes villes, les déplacements quotidiens sont maintenant devenus multimodaux. Cela oblige les habitants des banlieues à conduire d’abord jusqu’à une station de transport en commun, puis à poursuivre leur trajet en train, bus, scooter ou à vélo. Le nombre d’options offertes aux usagers n’a également jamais été aussi important : choisir parmi les options de transport en commun, estimer la disponibilité des places de parkings. Cette solution leur simplifie donc la tâche en optimisant leurs itinéraires depuis leur point de départ jusqu’à leur destination. » poursuit-il.

« La mission de Moovit est de simplifier la mobilité urbaine à travers le monde et nous avons longtemps fourni aux usagers le meilleur moyen d’obtenir des itinéraires en transport en commun et d’autres options de mobilité urbaine », annonce Erez, confondateur et PDG de Moovi. « En Novembre dernier, nous nous sommes associés à Microsoft afin d’intégrer nos API de transport à Azure pour aider les développeurs à créer des applications plus riches pour des milliards de voyageurs. Je ne pouvais pas être plus heureux que par le fait que notre relation avec Microsoft ait évolué au point d’ajouter de nouvelles API de transport, combinées aux API de route et de trafic de TomTom. Le tout pour créer des fonctionnalités de cartographie multimodales complètes pour les développeurs sur Azure Maps avec des heures précises d’arrivée prévues. Cela permettra aux voyageurs d’avoir la meilleure option pour planifier un voyage combinant les étapes de transport en commun, de covoiturage, de vélo ou de scooter, et d’autres déplacements en voiture, y compris trouver des espaces de stationnement disponibles en temps réel. » déclare-t-il

Le leadership de Moovit dans la planification de trajets multimodaux provient de plus de six ans d’optimisation de trajets des usagers urbains utilisant les services de plus de 7 000 agences de transport à travers le monde. Chaque jour, Moovit gère plus de 5 millions de demandes de planification de trajets et génère plus de 40 millions d’options d’itinéraires pour ses 350 millions d’utilisateurs à travers 2 700 villes de 88 pays. L’outil de planification de trajets multimodaux de la compagnie repose sur des données statiques, des données en temps réel sur les transports en commun, vélos, scooters et voitures en libreservice.

« Les données de localisation sont devenues plus pertinentes et importantes et personne ne sait cela mieux que TomTom. Nous avons révolutionné la façon dont les cartes sont mises à jour en inventant une plateforme de création de carte unique, capable de fournir une carte continuellement à jour », annonce Nir Truelsen, Directeur Général de TomTom. « Nos technologies de localisation incitent les particuliers, les entreprises et les villes à être plus durables, à se déplacer efficacement et en toute sécurité, créant ainsi un meilleur monde. » poursuit Nir Truelsen.

« En associant les données spécifiques de TomTom sur l’automobile et les parcs de stationnement, au planificateur de trajets multimodaux de Moovit; cela offre à Azure Maps une vue sans précédent de tous les aspects de la mobilité urbaine » ajoute Chris Pendleton. « Personne d’autre n’a jamais fourni un tel niveau de service dans une solution unique. » conclut-il 

À propos de Moovit

Moovit (www.moovit.com) est le leader des plateformes MaaS (“Mobility as a Service”) et la première application de mobilité urbaine au monde. Moovit simplifie la mobilité urbaine à travers le monde, facilitant les déplacements en transport en commun. En regroupant les données fournies par les opérateurs de transport en commun et gouvernements, avec les données provenant directement des utilisateurs de l’application ; Moovit offre à ses usagers une image en temps réel, ainsi que le meilleur itinéraire pour leur trajet. Elue meilleure application locale par Google en 2016, finaliste de la catégorie “Build for Billions” en 2018 et l’une des meilleures applications d’Apple en 2017; lancée en 2012, Moovit a déjà dépassé les 350 millions d’utilisateurs.

Moovit ajoute tous les jours plus de quatre milliards de points de données anonymes à la plus grande base de données de transports au monde. Cette collecte de données est facilitée par le réseau de Moovit qui se compose de plus de 550 000 éditeurs locaux appelés « Mooviters ». Ces utilisateurs passionnés aident à cartographier et à maintenir les informations sur les transports en commun locaux dans des villes qui ne seraient pas desservies autrement. Les Mooviters sont à l’origine de près de 65% des centaines de villes que Moovit lance chaque année et font de Moovit le véritable « Wikipédia des Transports Publics ».

Moovit est un pionnier des services MaaS (“Mobility as a Service”). Cette entreprise aide les personnes à changer leur façon de voir la mobilité en intégrant d’autres formes de transports dans son application, telles que les nouveaux systèmes de vélos en libre-service. En 2017, Moovit a lancé sa gamme de produits MaaS (“Mobility as a Service”) afin d’aider les municipalités, gouvernements et opérateurs de transport à améliorer la mobilité urbaine dans leurs villes.

L’application Moovit est disponible gratuitement sur iOS , Android et Web dans plus de 2700 villes, à travers 88 pays, et peut être utilisée dans 44 langues. Plus de 100 villeset événements mondiaux, y compris les Jeux Olympiques de Rio de Janeiro en 2016, ont fait de Moovit leur application officielle de transports.

À propos TomTom

TomTom est le principal spécialiste indépendant des technologies de localisation, redéfinissant la mobilité grâce à ses cartes, logiciel de navigation, information-trafic et services en temps réel d’une extrême précision.

Pour réaliser notre vision d’un monde plus sûr, exempt de toutes congestions et émissions, nous créons des technologies innovantes qui font avancer le monde. En apportant notre vaste expérience aux principaux partenaires commerciaux et technologiques du secteur, nous alimentons les véhicules connectés, la mobilité intelligente et la conduite autonome.

Basée à Amsterdam avec des bureaux dans 30 pays, TomTom accompagne chaque jour des centaines de millions de personnes à travers le monde qui font confiance à ses technologies.  Plus d’informations sur : www.tomtom.com

Source : Planificateur de trajets mulitmodaux : Moovit et TomTom s’associent