devNotes

Office 365 : des listes d'adresses en français

2014-09-11T18:25:00.000+02:00

Modifier les noms des listes d'adresses dans Office 365

Lorsque vous déployez Office 365 un certain nombre de listes d'adresses sont créées dans Echange Online. Vous les retrouvez dans votre carnet d'adresse Outlook. Curieusement ces groupes sont créés en anglais, ce qui nous donne une liste panachant français et anglais... problème mineur, mais qui peut constituer un frein à l'adoption pour certains utilisateurs peu à l'aise avec l'anglais.

Pour pouvoir travailler sur les listes d'adresses vous devez posséder le rôle d'administration "Address Lists" dans Exchange Online.

Par défaut ce rôle n'est pas attribué, vous devrez donc commencer par créer un nouveau rôle d'administrateur.

Rendez-vous dans le centre d'administration Exchange. Dans le menu "autorisations" cliquez sur le "+" pour créer un nouveau rôle. Ajoutez-y le rôle "Address Lists" et ajoutez votre administrateur dans les membres.

Ouvrez la console PowerShell et connectez-vous à votre tenant.

Nous allons utiliser la cmdlet Set-AddressList pour renommer les groupes existants. Afin de ne pas interférer avec d'autres scripts j'ai choisi de ne pas changer le nom du groupe, mais uniquement son nom d'affichage :

Set-AddressList -Identity "All Contacts" -DisplayName "Tous les contacts"
Set-AddressList -Identity "All Distribution Lists" -DisplayName "Toutes les listes de distribution"
Set-AddressList -Identity "All Rooms" -DisplayName "Toutes les salles"
Set-AddressList -Identity "All Users" -DisplayName "Tous les utilisateurs"
Set-AddressList -Identity "Offline Global Address List" -DisplayName "Liste d'adresses globale hors ligne"

Redémarrez Outlook et vous obtiendrez une liste un peu plus francophone :

Reste le problème du "All Address Lists"... à priori pour l'instant Exchange Online ne propose pas de CmdLet permettant de toucher à cet objet.

Office 365 et les groupes dynamiques

2014-09-10T19:17:00.000+02:00

Qu’est-ce qu’un groupe dynamique ?

Les groupes dynamiques sont des groupes de distributions auxquels Exchange va assigner des membres en fonctions de critères définis par l’administrateur.

A la différence des groupes basés sur l'Active Directory, ces groupes sont recalculés à chaque utilisation.

Ils vont nous permettre de facilement toucher tous les membres d'un service ou tous les utilisateurs d'un site.

Création d’un groupe dynamique

Les groupes dynamiques peuvent être créés via l'interface d'administration Exchange Online, toutefois lorsque vous aurez la nécessité de créer des filtres plus complexes vous devrez recourir à PowerShell.

Exemple 1 : création d’un groupe basé sur l’appartenance à un service (via Interface)

Dans l’administration Exchange, sélectionnez le menu « destinataire » puis « groupes ».

Cliquez sur le « + » et sélectionnez « Groupe de distribution dynamique ».

Dans le champ « L’appartenance à ce groupe sera déterminée par les règles configurées ci-dessous » sélectionnez « Service » puis tapez le nom du service pour lequel vous souhaitez regrouper les membres (dans l’exemple ci-dessous : « méthodes »).

Exemple 2 : création d’un groupe basé sur l’appartenance à un service (via PowerShell)

Cet exemple produit le même résultat que l’exemple 1, mais avec une création en ligne de commande.

Une fois connecté à votre tenant Office 365 exécutez la commande PowerShell suivante :

New-DynamicDistributionGroup -Name "Nom du groupe" -IncludedRecipients MailboxUsers -ConditionalDepartment "Nom du service"

Par exemple :

New-DynamicDistributionGroup -Name "Groupe Service Informatique" -IncludedRecipients MailboxUsers -ConditionalDepartment Informatique

Exemple 3 : création d’un groupe basé sur le service et la ville

Dans cet exemple nous allons créer un groupe comprenant tous les membres du bureau d’études de Paris.

Pour cela nous allons assumer le fait que notre Active Directory n'a pas été renseignée de manière optimale et que le service "bureau d'études" souffre donc de plusieurs formes d'écritures différentes.

Vous noterez également que l'interface web ne permet pas de réaliser de filtrage sur la ville. PowerShell est donc indispensable dans ce cas.

Vous noterez :

La possibilité d’utiliser un opérateur « like »
La possibilité d’utiliser un opérateur « or »

Une fois connecté au tenant exécutez la commande PowerShell suivante :

New-DynamicDistributionGroup -Name "Groupe BE Paris" -RecipientFilter {(RecipientType -eq "UserMailbox") -and (Department -like "BUREAU? ETUDE*" -or Department -like "BE *" -or Department -like "Bureau? d'études") -and (City -eq "Paris")}

Pour plus d’infos sur les groupes dynamiques : http://help.outlook.com/fr-fr/140/Dd264647.aspx

Voir les membres d’un groupe

Les membres d’un groupe dynamique ne sont pas visibles via l’interface web.

Une fois connecté au tenant exécuter les commandes PowerShell suivantes :

$DDG = Get-DynamicDistributionGroup "Nom du groupe"
Get-Recipient -RecipientPreviewFilter $DDG.RecipientFilter

Connection PowerShell à un tenant Office 365

2014-09-10T18:19:00.000+02:00

Ce billet est le premier d'une série consacrée à l'administration d'Office 365. On commence simple, avec l'ouverture d'une session sous PowerShell.

Ouverture de session

1 ) Ouvrir PowerShell

2) S’authentifier via la commande :

$LiveCred = Get-Credential

Une boite de dialogue s’ouvre : Saisissez un identifiant administrateur Office 365.

3) Ouvrez une session sur le tenant Office 365 via la commande :

$Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri

https://ps.outlook.com/powershell/ -Credential $LiveCred -Authentication Basic –AllowRedirection

4) Importez les commandes relatives à Office 365 via la commande :

Import-PSSession $Session

Vous êtes maintenant connecté au tenant Office 365.

Fin de session

En fin de session il est nécessaire de se déconnecter du tenant via la commande :

Remove-PSSession $Session

Si ce n’est pas fait votre session reste ouverte pendant 15 minutes. Vous ne pourrez pas vous reconnecter pendant ce laps de temps.

Créer un profil PowerShell

Afin d’éviter de retenir et taper ces commandes à chaque fois il est possible de créer un profil PowerShell.

Vous pouvez récupérer le chemin vers votre profil via la commande :

Dir $Profile

Créez un fichier .PS1 et copiez dedant les commandes d'ouverture de session.

Excel : les heures décimales

2014-07-28T19:13:00.000+02:00

Il vous est probablement déjà arrivé d'effectuer un calcul qui vous renvoie un nombre d'heures sous forme décimale.

Par exemple vous souhaitez vider une piscine qui contient 1000 litres d'eau, votre évacuation permet d'évacuer 500 litres/heure. Vous allez réaliser le petit calcul 1000 / 500 = 0,5 heures soit 0h30 minutes.

Le problème est que vous ne savez pas quoi faire avec ce 0.5... tout le monde sait que ça représente 1/2 heure, mais dans Excel ça coince...

Une heure décimale n'est pas un numéro de série

Si vous avez un peu fouillé dans les fonctions Excel vous êtes probablement tombés sur les fonctions Heure() et Minute(), et vous aurez constaté qu'elles prennent en paramètre un numéro de série.

Ce que Microsoft appelle un numéro de série est tout simplement une représentation décimale d'une journée : 24h00 = 1.

La formule pour transformer une heure décimale en numéro de série est donc : heure / 24

Ainsi la fonction Minute() va s'utiliser ainsi :

Cool... sauf que ce n'est pas ce que nous recherchons... refaite l'essai avec 1.75 (soit 1h45)...

Les fonctions Heure() et Minute()

Contrairement à ce que beaucoup d'utilisateurs pensent les fonctions Heure() et Minute() ne vont pas afficher une heure sous la forme hh:mm. Ces fonctions sont prévues pour renvoyer soit l'heure, soit les minutes, d'une heure exprimée sous la forme hh:mm.

Ainsi pour une valeur de 1.75 la fonction Heure() va nous renvoyer 1 :

Et Minute() nous donnera 45.

Bon OK, avec un Concatener() il serait possible d'obtenir un affichage sous la forme 01h45, mais avouez que ça serait un peu lourd :

Le format de cellule "Heure"

Et oui... vous étiez tellement plongé dans vos formules que vous en avez oublié la simplicité.

Pour transformer votre 1.75 en 01:45 il vous suffit de le diviser par 24 pour ramener cette valeur en jours, et de vous rendre dans le menu "Format de cellule". Sélectionnez "Heure" dans la liste... et c'est tout !

Calculs d'angles avec Excel

2014-07-28T18:22:00.000+02:00

Beaucoup d'utilisateurs sont décontenancés par le fait qu'Excel ne gère pas les angles en degrés, mais en radians.

Convertir les degrés en radians avec Excel

Toutes les fonctions relatives aux angles dans Excel prennent en paramètre des angles exprimés en radians :
Cos, Sin, Tan,...

Pour convertir vos angles en degrés vers des radians la formule est : Angle * Pi() / 180

Rassurez-vous Microsoft a pensé à tout et à inclus dans Excel une fonction toute prête : RADIANS()

Ce qui donne dans Excel (pour un angle de 45°) :

Convertir les radians en degrés avec Excel

En toute logique les résultats fournis par Excel sont eux aussi exprimés en radians.

Pour convertir vos angles en radians vers des degrés la formule est : Angle * 180 / Pi()

Là encore Excel vous propose une fonction toute prête : DEGRES()

Son utilisation est la suivante :

Importer des champs Word dans Excel

2010-12-09T18:30:00.002+01:00

Vous avez réalisé un formulaire sous Word ? Parfait... mais en toute logique vous n'avez pas envie de ressaisir tous les résultats dans Excel pour en tirer des statistiques.

Le petit boût de code VBA ci-dessous pourra vous aider. Ajoutez le dans une macro Excel et il vous permettra de copier le contenu de tous les champs de votre formulaire Word vers Excel. Sur la première ligne vous retrouverez le nom de vos champs Word.

Sub ImportWord()

Dim Wd As Word.Application
Dim filename As String
Dim i As Byte
    
    
    'On affiche la boite de dialogue pour sélectionner le fichier
    filename = Application.GetOpenFilename("Fichier Word (*.doc*),*.doc*", 1, "Sélectionnez un document Word", "Ouvrir", False)
    
    'On vérifie qu'un fichier a été sélectionné
    If filename <> "" Then
        filename = LCase(filename)
        'et qu'il s'agit d'un document word
        If Right(filename, 3) = "doc" Or Right(filename, 4) = "docx" Then
    
            'Créer une instance de word
            Set Wd = New Word.Application
            
            With Wd
                'Empêche Word de s'afficher à l'ouverture
                .Visible = False
                
                'Ouverture du document
                .documents.Open (filename)
                
                'Parcours de la collection de champs
                Dim f As Field
                For Each f In .ActiveDocument.Fields
                    'Nom du champs
                    Cells(1, f.Index).Value = .ActiveDocument.FormFields(f.Index).Name
                    
                    'Valeur du champs si case à cocher
                    If f.Type = 71 Then
                        Cells(2, f.Index).Value = .ActiveDocument.FormFields(f.Index).CheckBox.Value
                    Else 'autres champs
                        Cells(2, f.Index).Value = f.Result.Text
                    End If
                Next
                
                'Ferme le document Word
                .Quit False
            End With
            
            'Destruction de l'objet word
            Set Wd = Nothing
        End If
    End If

End Sub

Visual Studio 2010 : La valeur ne peut pas être null.

2010-06-03T20:06:00.008+02:00

Hier sur un projet j'ai eu la désagréable surprise de recevoir un message "La valeur ne peut pas être null. Nom du paramètre : objectType" lors de la tentative d'ouverture d'une winforms. Le designer refuse alors d'ouvrir la forms, si vous passez outre l'avertissement la forms s'affiche bien mais toute action est très lente.

Après avoir perdu pas mal de temps à chercher, j'ai découvert que pour corriger ce problème il faut changer le modificateur d'accès de la classe gérant notre formulaire de "Friend" en "Public".
Ce bug est en cours d'étude par Microsoft.

Restaurer les réglages par défaut de Visual Studio 2010

2010-05-03T17:57:00.003+02:00

En installant la version d'évaluation de Visual Studio 2010 j'ai eu la désagréable surprise de conster que la boîte à outils était vide, et qu'il manquait certaines barres d'icônes (en particulier la barre "Disposition").

Visiblement lors de la récupération des paramètres de VS2008 il y avait eu un petit soucis.

Pour effectuer cette opération vous devez ouvrir la console Visual Studio : allez dans le menu démarrer et dans le dossier Visual Studio 2010 cliquez sur "Visual Studio Tools" puis "Invite de commande Visual Studio".

Saisissez ensuite la ligne de commande suivante : devenv /ResetSettings

Visual Studio va démarrer comme neuf.

Comment déployer une application avec clickonce sur un serveur Apache ?

2010-04-02T18:03:00.003+02:00

Pour le déploiement d'applications au sein d'une entreprise la fonctionnalité de déploiement ClickOnce de Visual Studio se révéle à la fois pratique, rapide, et économique... à condition de disposer d'un serveur IIS.

Si votre intranet fonctionne sous Apache il est malgré tout très facile d'utiliser ClickOnce.

Pour cela ajouter une fichier .htaccess dans votre dossier de déploiement.

Ce fichier doit contenir les 3 lignes suivante :

AddType application/x-ms-application application
AddType application/x-ms-manifest manifest
AddType application/octet-stream deploy

Comment ajouter dynamiquement des contrôles dans un formulaire ?

2010-04-01T18:12:00.002+02:00

Il peut arriver que vous ne connaissiez pas à l'avance le nombre de contrôles dont vos utilisateurs auront besoin dans un formulaire.

C'est par exemple le cas lorsque vous devez présenter des informations tabulaire à vos utilisateurs, comme dans cet exemple :

Certes il existe un contrôle datagrid, mais son utilisation n'est pas toujours possible, ou peut se révéler très lourde.

Une solution consiste à ajouter dynamiquement des contrôles :

'On déclare une liste d'objets "TextBox"
Dim textBoxList As New List(Of TextBox)

Dim x As Integer

For x = 0 To 4
 'On ajoute une nouvelle TextBox dans la liste
 textBoxList.Add(New TextBox)

 'On dimentionne et positionne la TextBox qui vient d'être ajoutée
 With textBoxList.Item(textBoxList.Count - 1)
  .Height = 100
  .Width = 30
  .Location = New System.Drawing.Point(10, textBoxList.Count * 30)
 End With

 'Et on ajoute cette TextBox dans notre formulaire
 Controls.AddRange(New System.Windows.Forms.Control() {textBoxList(textBoxList.Count - 1)})
Next

Naturellement si comme dans l'image ci-dessus chaque ligne est composée de plusieurs contrôles, vous prendrez au préalable le soin de créer une classe chargée de gérer ces groupes de contrôles.

Comment utiliser Automation avec Excel et VB.NET ?

2010-03-29T17:52:00.000+02:00

Préparatifs

Pour pouvoir piloter Excel, vous devez ajouter à votre projet une référence à Microsoft Excel Object Library (dans les composants COM) ou référencer directement les Primary Interop Assemblies (PIA) : Microsoft.Office.Interop.Excel.dll, Microsoft.VBE.Interop.dll, et Office.dll

Dans cet exemple j’utiliserai la seconde solution.

A propos des Primary Interop Assemblies

Bien que Microsoft recommande d’utiliser une version des PIA correspondant à la version d’Office installée conjointement avec votre application, j’ai constaté qu’il existe une bonne compatibilité ascendante entre ces assemblies. J’ai donc pris pour habitude d’utiliser une vieille version de ces PIA, celles de Office XP. Elles ont l’avantage de permettre à mes applicatifs de fonctionner sur toutes les versions d’Office de XP à 2007.

Vous pouvez télécharger ces assemblies sur le site de Microsoft :
http://www.microsoft.com/downloads/details.aspx?FamilyId=C41BD61E-3060-4F71-A6B4-01FEBA508E52&displaylang=en

Si vous préférez utiliser les PIA installées avec Office sur votre poste, souvenez vous simplement qu’elles ne fonctionneront pas si vos utilisateurs utilisent une version plus ancienne.

Les bases de l’automation Excel

Création et assignation de l’objet Excel

Dim XlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()

Création d’un classeur

Dim XLDestBook As Microsoft.Office.Interop.Excel.Workbook
XLDestBook = XlApp.Workbooks.Add

Ouverture d’un classeur existant

XLDestBook = XlApp.Workbooks.Open("c:\monfichier.xls")

Ajouter une feuille

Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
xlSheet = XLDestBook.Worksheets.Add

Ajouter du texte dans une cellule

xlSheet.Cells(1, 2).value = "Test écriture dans cellule B1"

Ajouter une formule dans une cellule

xlSheet.Cells(1, 3).formula = "=1+5"

Les formules doivent être écrites dans la langue d’Excel. Si vos utilisateurs sont susceptibles d’utiliser des versions d’Excel dans différentes langues vous devrez donc traduire vos formules. Pour cela vous pouvez utiliser cette référence http://cherbe.free.fr/fonctions_XL.ZIP

Recommandations

Prenez l’habitude avant tout traitement d’automation de désactiver le rafraichissement d’écran d’Excel, et d’empêcher les saisies utilisateur. Les performances en seront largement améliorées, et cela évitera que vos utilisateurs ne viennent perturber le traitement.

Pour cela utilisez les lignes suivantes avant tout traitement :

XlApp.ScreenUpdating = False
XlApp.Interactive = False

Repassez ces paramètres à True lorsque vos traitements sont achevés, sinon Excel sera inutilisable.

Pour plus d’infos vous pouvez vous référer à la base de connaissance Microsoft : http://support.microsoft.com/kb/301982/fr

Attention à la langue

Si vous avez des utilisateurs utilisant une version anglaise de Windows, il y a de fortes chances pour que votre application plante avec un message : Error: 0x80028018 (-2147647512) - Description: Old Format or Invalid Type Library

Ce cas de figure se produit lorsque l’utilisateur a personnalisé les paramètres régionaux de Windows. C’est un cas que j’ai régulièrement rencontré avec les expatriés. Ils sélectionnent dans les paramètres régionaux leur pays de résidence, et modifient le séparateur décimal et l’unité monétaire pour les faire correspondre à ceux de leur pays d’origine.

La base de connaissance Microsoft vous donnera plus de détails sur ce problème : http://support.microsoft.com/?scid=kb%3Ben-us%3B320369&x=19&y=18

Pour le contourner, 2 solutions :
• Demander à vos utilisateurs de ne pas personnaliser les paramètres régionaux. Pas toujours possible.
• Avant toute opération d’automation Excel modifier la culture du système en « en-US », et surtout restaurer les paramètres utilisateurs lorsque vos traitements sont terminés.

La base de connaissance peut une nouvelle fois vous aider : http://support.microsoft.com/kb/914356/fr

Personnellement j’utilise le code suivant (dérivé des exemples MS) :

'Sauvegarde le réglage de culture
Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture

''' 
''' Modifie la culture en "en-US".
''' 
''' 
Sub ChangeCulture()
Dim LangueExcel As Integer 'code correspondant à la langue Excel
Dim RegionalString As String 'Equivalence entre la langue Excel et la culture système

LangueExcel = XlApp.LanguageSettings.LanguageID(Microsoft.Office.Core.MsoAppLanguageID.msoLanguageIDInstall) 'Récupére le code correspondant à la langue d'Excel
Select Case LangueExcel
Case 1033 : RegionalString = "en-US" 'Anglais USA
Case 1036 : RegionalString = "fr-FR" 'Français FRANCE
Case Else : RegionalString = "en-US" 'Anglais USA
End Select
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(RegionalString)
End Sub


''' 
''' Rétablit la culture d'origine du système
''' 
''' 
Sub RestoreCulture()
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
End Sub

Comment utiliser la colorisation syntaxique de code sur Blogger ?

2010-03-24T17:37:00.001+01:00

Si vous avez déjà tentés de publier du code source sur un blog, vous avez pu constater que les moteurs de blogs grand public ne proposent tout simplement pas cette option.

Alors vous me direz, avec un petit hébergement, et un CMS type Joomla l'ajout de cette fonction est très facile. Certes.

Si vous persistez à vouloir utiliser une plateforme de blog type Blogger, la solution est d'utiliser SyntaxHighlighter, le site Code 18 vous offre le mode d'emploi d'une parfaite intégration sur cette plateforme.

Avec ça plus de raisons pour ne pas partager un peu de code !

Utiliser Gallery 3 derrière un proxy

2010-03-24T17:19:00.001+01:00

Gallery 3 est probablement une des meilleures solutions pour ajouter des photos sur un site PHP/MySQL.

Encore en phase de développement, ce projet comporte une petite limitation en cas d'utilisation professionnelle : il nécessite un accès web pour télécharger les mises à jour et traductions.

Si votre serveur se trouve derrière un proxy nécessitant une authentification, vous êtes coinçé !

La solution est d'éditer le fichier My_remote.php (dans le dossier "Helpers")

Dans la fonction _encode_post_data, ajoutez la ligne :

$extra_headersProxy-Authorization? = 'Basic ' . base64_encode("$ProxyUsername:$ProxyPassword?");

Dans _parse_url_for_fsockopen, ajoutez :

$url_componentsfsockhost? = $ProxyAddress?;

Dans cette même fonction, modifiez la variable $default_port pour y indiquer le numéro de port de votre proxy.

Cette modification devrait être intégrée nativement dans Gallery 3.1

Comment parcourir du XML en Visual Basic 2005 ?

2010-03-24T17:18:00.010+01:00

Jagadish Chaterjee propose un excellent tutorial (en anglais) sur l'utilisation et la transformation du XML en VB 2005.
Toujours utile si vos projets doivent être déployés sous le Framework.Net 2.0.

Et si au lieu de récupérer votre XML à partir d'un fichier, vous souhaitez utiliser le contenu d'une variable :

Dim rd As System.Xml.XmlReader = System.Xml.XmlReader.Create(New  System.IO.StringReader(maString))