Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Legende automatique insertion image Word 2010

 

LOGICIELS : michel69 LOISIRS : bileg et 89 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Legende automatique insertion image Word 2010

RÉSOLU
Prévenir les modérateurs en cas d'abus 
Mefisto46
mefisto46
  1. Posté le 16/12/2012 à 17:23:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
Est-il possible, lors de l'insertion d'une image dans word, que soit créé automatiquement une légende avec le nom du fichier *.jpg ?

Vous remerciant par avance,

Mefisto
Message édité par Tintin10 le 07/10/2015 à 17:56:36
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 17/12/2012 à 13:54:00  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Il est possible d'insérer des légendes sous Microsoft Word 2010, mais leur automatisation ne concerne que les objets extérieurs. Par ailleurs, aucun moyen n'est offert pour la reprise d'un nom de fichier.
 Je pense néanmoins pouvoir faire une macro qui pourrait régler tout ou partie du problème : je n'ai pas le temps cette semaine de m'en occuper, mais je le ferai dès que je serai en vacances. Patiente donc un peu, je prends note qu'il faut le faire.


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
(Publicité)
mefisto46
  1. Posté le 19/12/2012 à 13:13:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Ca me serait d'une grande utilité et je vous en remercie par avance.

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 22/12/2012 à 16:02:03  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
J'ai certainement réalisé quelque chose qui va te plaire. Mais commençons par le commencement.
D'abord, activons les macros. Clique sur Fichier puis sur Options : dans l'onglet Personnaliser le ruban, coche la case Développeur, et clique sur OK.
Clique alors sur l'onglet Développeur. Clique sur Macros, et tape InsertionImageLégende dans la zone de texte Nom de la macro :. Clique sur Créer.
Une nouvelle fenêtre s'ouvre, avec du code V.B.A. à l'intérieur : remplace ce code par le suivant :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub InsertionImageLégende()
  2.  
  3. 'InsertionImageLégende Macro
  4. 'Permet l'insertion d'une image avec une légende automatique et groupée
  5.  
  6. 'On cherche d'abord les marges du document
  7.  Application.ActiveDocument.Select
  8.  Dim leftM As Integer 'Marge gauche
  9.  Dim topM As Integer 'Marge haute
  10.  With Selection.PageSetup
  11.    leftM = .LeftMargin
  12.    topM = .TopMargin
  13.  End With
  14. 'Sélectionnons notre image
  15.  Dim pict As Shape
  16.  Dim path As String
  17.  With Application.FileDialog(msoFileDialogOpen)
  18.    .AllowMultiSelect = False
  19.    .Filters.Clear
  20.    .Filters.Add "Toutes les images (*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.dib;*.rle;*.gif;*.emz;*.wmz;*.pcz;*.tif;*.tiff;*.cgm;*.eps;*.pct;*.pict;*.wpg)", "*.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.emz; *.wmz; *.pcz; *.tif; *.tiff; *.cgm; *.eps; *.pct; *.pict; *.wpg", 1
  21.    .Show
  22.    path = .SelectedItems(1)
  23.  End With
  24. 'Insérons notre image
  25.  Set pict = ActiveDocument.Shapes.AddPicture(path)
  26.  pict.ZOrder msoBringInFrontOfText 'Mise devant le texte
  27. 'Alignement par rapport au paragraphe dans lequel le curseur clignote
  28.  pict.Top = 0
  29.  pict.Left = 0
  30. 'Recherche des dimensions de l'image, pour la construction de la zone de texte
  31.  Dim LastShape As Integer
  32.  LastShape = ActiveDocument.Shapes.Count
  33.  Dim w As Double
  34.  Dim h As Double
  35.  h = ActiveDocument.Shapes(LastShape).Height
  36.  w = ActiveDocument.Shapes(LastShape).Width
  37. 'Ajout de la zone de texte qui contiendra la légende
  38.  Dim s As Shape
  39.  Set s = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, leftM, topM + h, w, 30)
  40. 'Recherche du nom de l'image : on prend la chaîne de caractères située après le dernier "\"
  41.  Dim name As String
  42.  Dim i As Integer
  43.  i = Len(path)
  44.  Do While Not (Mid(path, i, 1) = "\") And i > 0
  45.    i = i - 1
  46.  Loop
  47.  path = Mid(path, i + 1, Len(path) - i)
  48. 'Le nom trouvé est mis dans la zone de texte
  49.  s.TextFrame.TextRange = path
  50. 'Texte centré
  51.  s.TextFrame.TextRange.ParagraphFormat.Alignment = 1
  52. 'Sans contour
  53.  s.Line.Visible = msoFalse
  54. 'Groupage de l'image et de la zone de texte
  55.  pict.name = "picture"
  56.  s.name = "caption"
  57.  ActiveDocument.Shapes.Range(Array("picture", "caption")).Group
  58. End Sub

Ferme cette fenêtre, et clique à nouveau sur Macros, sélection InsertionImageLégende et clique sur Exécuter.

Tu pourras constater qu'une fenêtre s'ouvre, te demandant de choisir une image. Une fois celle-ci choisir, clique sur Ouvrir. L'image s'insère avec une légende.
Je peux améliorer selon tes besoins de présentation, le principal est fait. A toi de voir.
Message édité par Tintin10 le 10/10/2015 à 11:20:26

---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 27/12/2012 à 13:24:14  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
 Je vous remercie pour le travail accompli, cette macro en l'état va déjà me faire gagner énormément de temps :-) .
 Un point cependant, l’élément créé n'étant pas reconnu comme une légende, la table des illustrations ne parvient pas à l'appeler.
 Simple modification à effectuer ?
 Peut-on également importer plusieurs images en même temps ?

 Merci et bravo !

(Publicité)
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 27/12/2012 à 20:26:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Le code suivant permet de donner le nom de l'image insérée (le nom affiché dans la légende) à l'image dans Microsoft Word 2010 (pas à la zone de texte qui sert de légende, mais je peux changer cela très simplement). Il résout également l'insertion multiple, mais les images s'insèrent toutes les unes sur les autres, sinon, avec des grosses images, elles sortiraient de la page courante et ne seraient plus visibles.
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub InsertionImageLégende()
  2. '
  3. 'InsertionImageLégende Macro
  4. 'Permet l'insertion d'une image avec une légende automatique et groupée
  5. '
  6.  
  7. 'On cherche d'abord les marges du document
  8.  Dim leftM As Integer 'Marge gauche de la zone de texte
  9.  Dim topM As Integer 'Marge haute de la zone de texte
  10.  With Selection.PageSetup
  11.    leftM = .LeftMargin
  12.    topM = .TopMargin
  13.  End With
  14. 'Sélectionnons notre image
  15.  Dim pict As Shape
  16.  Dim path As Variant
  17.  With Application.FileDialog(msoFileDialogOpen)
  18.    .AllowMultiSelect = True
  19.    .Filters.Clear
  20.    .Filters.Add "Toutes les images (*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.dib;*.rle;*.gif;*.emz;*.wmz;*.pcz;*.tif;*.tiff;*.cgm;*.eps;*.pct;*.pict;*.wpg)", "*.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.emz; *.wmz; *.pcz; *.tif; *.tiff; *.cgm; *.eps; *.pct; *.pict; *.wpg", 1
  21.    .Show
  22.    For Each path In .SelectedItems
  23. 'Insérons notre image
  24.      Set pict = ActiveDocument.Shapes.AddPicture(path)
  25.      pict.ZOrder msoBringInFrontOfText 'Mise devant le texte
  26. 'Alignement par rapport au paragraphe dans lequel le curseur clignote
  27.      pict.Top = 0
  28.      pict.Left = 0
  29. 'Recherche des dimensions de l'image, pour la construction de la zone de texte
  30.      Dim LastShape As Integer
  31.      LastShape = ActiveDocument.Shapes.Count
  32.      Dim w As Double
  33.      Dim h As Double
  34.      h = ActiveDocument.Shapes(LastShape).Height
  35.      w = ActiveDocument.Shapes(LastShape).Width
  36. 'Ajout de la zone de texte qui contiendra la légende
  37.      Dim s As Shape
  38.      Set s = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, leftM, topM + h, w, 30)
  39. 'Recherche du nom de l'image : on prend la chaîne de caractères située après le dernier "\"
  40.      Dim name As String
  41.      Dim i As Integer
  42.      i = Len(path)
  43.      Do While Not (Mid(path, i, 1) = "\") And i > 0
  44.        i = i - 1
  45.      Loop
  46.      path = Mid(path, i + 1, Len(path) - i)
  47. 'Le nom trouvé est mis dans la zone de texte
  48.      s.TextFrame.TextRange = path
  49. 'Texte centré
  50.      s.TextFrame.TextRange.ParagraphFormat.Alignment = 1
  51. 'Sans contour
  52.      s.Line.Visible = msoFalse
  53. 'Groupage de l'image et de la zone de texte
  54.      pict.name = path
  55.      s.name = "caption"
  56.      ActiveDocument.Shapes.Range(Array(path, "caption")).Group
  57.    Next
  58.  End With
  59. End Sub
Message édité par Tintin10 le 29/12/2017 à 16:09:35

---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 28/12/2012 à 13:55:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

 Ne serait-il pas possible lors de l'insertion de plusieurs images d’insérer une dizaine d'"entrée" afin de les décoller et s'y retrouver plus facilement?

 Je n'ai pas bien compris l’intérêt de donner le nom à l'image, cela permet-il de l'appeler dans la table des illustrations ?

 Vous remerciant grandement pour le temps passé à m'aider.
 

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 28/12/2012 à 17:45:06  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Qu'est-ce que tu appelles "table des illustrations" ? Je ne vois que le Volet Sélection pour cela.
 Concernant l'insertion d'entrées, je vois difficilement ce que tu veux : à la place de l'image, tu souhaites quoi ?


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
(Publicité)
mefisto46
  1. Posté le 01/01/2013 à 22:41:57  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Une légende se créer en faisant clic droit sur une image  "insérer une légende".
 Une fois le document finalisé, on peut créer le sommaire ainsi que la table des illustrations. Cette dernière permettant tout comme un sommaire de répertorier les images avec le numéro de la page.

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 02/01/2013 à 10:14:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
D'accord, je vais voir ce que je peux faire, je te tiens au courant.
 Meilleurs vœux au passage !


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 02/01/2013 à 16:38:42  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci, meilleurs voeux également.

En cherchant un petit peu (enregistrement automatique de la macro), je suis tombé sur cette commande qui je pense devrait avec un peu de bidouillage convenir parfaitement à mes besoins.

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Selection.InsertCaption Label:="Figure", TitleAutoText:= _
  2.  "InsertionLégende1", Title:="",Position:=wdCaptionPositionBelow, _
  3.  ExcludeLabel:=0

(( Title : nom du fichier ))


Grace à cette manip je pense qu'il est doit être possible de lier une legende (reconnue comme telle selon Word) sans avoir à passer par la création d'une zone de texte.

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 07/10/2015 à 17:48:26
(Publicité)
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 02/01/2013 à 20:25:29  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
En effet, et je pense que c'est ce que je vais utiliser. Je cherche ça demain matin.


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 04/01/2013 à 11:20:29  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Le code suivant prend en compte la légende correctement. Je passe toujours par l'insertion d'une zone de texte, mais je parviens à mettre la légende dedans et celle-ci est effectivement appelée par la table des illustrations.
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub InsertionImageLégende()
  2. '
  3. 'InsertionImageLégende Macro
  4. 'Permet l'insertion d'une image avec une légende automatique et groupée
  5. '
  6.  
  7. 'On cherche d'abord les marges du document
  8.  Dim leftM As Integer 'Marge gauche de la zone de texte
  9.  Dim topM As Integer 'Marge haute de la zone de texte
  10.  With Selection.PageSetup
  11.    leftM = .LeftMargin
  12.    topM = .TopMargin
  13.  End With
  14. 'Sélectionnons notre image
  15.  Dim pict As Shape
  16.  Dim path As Variant
  17.  With Application.FileDialog(msoFileDialogOpen)
  18.    .AllowMultiSelect = True
  19.    .Filters.Clear
  20.    .Filters.Add "Toutes les images (*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.dib;*.rle;*.gif;*.emz;*.wmz;*.pcz;*.tif;*.tiff;*.cgm;*.eps;*.pct;*.pict;*.wpg)", "*.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.emz; *.wmz; *.pcz; *.tif; *.tiff; *.cgm; *.eps; *.pct; *.pict; *.wpg", 1
  21.    .Show
  22.    For Each path In .SelectedItems
  23. 'Insérons notre image
  24.      Set pict = ActiveDocument.Shapes.AddPicture(path)
  25.      pict.ZOrder msoBringInFrontOfText 'Mise devant le texte
  26. 'Alignement par rapport au paragraphe dans lequel le curseur clignote
  27.      pict.Top = 0
  28.      pict.Left = 0
  29. 'Recherche des dimensions de l'image, pour la construction de la zone de texte
  30.      Dim LastShape As Integer
  31.      LastShape = ActiveDocument.Shapes.Count
  32.      Dim w As Double
  33.      Dim h As Double
  34.      h = ActiveDocument.Shapes(LastShape).Height
  35.      w = ActiveDocument.Shapes(LastShape).Width
  36. 'Ajout de la zone de texte qui contiendra la légende
  37.      Dim s As Shape
  38.      Set s = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, leftM, topM + h, w, 30)
  39.      s.Select
  40. 'Recherche du nom de l'image : on prend la chaîne de caractères située après le dernier "\"
  41.      Dim name As String
  42.      Dim i As Integer
  43.      i = Len(path)
  44.      Do While Not (Mid(path, i, 1) = "\") And i > 0
  45.        i = i - 1
  46.      Loop
  47.      path = Mid(path, i + 1, Len(path) - i)
  48. 'Le nom trouvé est mis dans la zone de texte en tant que légende
  49.      Selection.InsertCaption Label:="Figure", Title:=" : " + path
  50. 'Sans contour
  51.      s.Line.Visible = msoFalse
  52. 'Texte centré
  53.      s.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
  54. 'Groupage de l'image et de la zone de texte
  55.      pict.name = path
  56.      s.name = "caption"
  57.      ActiveDocument.Shapes.Range(Array(path, "caption")).Group
  58.    Next
  59.  End With
  60. End Sub
Message édité par Tintin10 le 29/12/2017 à 16:14:26

---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 07/01/2013 à 15:35:37  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Yes !
 c'est excatement ce que je souhaitai ;-)
 Dommage cependant que lors de l'importation de plusieurs images, la legende ne se positionne que sous la premiere image.
 Est-il possible que la fonction d'insertion de legende soit en dehors de la boucle ?

 Vous remerciant grandement :-) :-)

(Publicité)
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 08/01/2013 à 09:48:57  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Tiens, c'est curieux, chez moi, les légendes se placent juste en-dessous des images. Pour deux images, j'ai ça : http://dl.free.fr/rbuYWD4Yd.
 Je ne vois pas l'intérêt de faire en sorte que l'insertion de la légende soit en dehors de la boucle : une seule légende sera insérée, je ne pense pas que c'est ce que tu souhaites.


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 08/01/2013 à 21:11:52  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Ok, en fait tout était superposé chez moi (image + légende).

 Ne serait-il pas possible de configurer le groupement "images + zone de texte" pour qu'il soit "aligné sur le texte" ce qui permettrait de ne pas mélanger les images et légendes lors de l'insertion de dizaine d'images et ainsi les avoir les uns à la suite des autres ?

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 09/01/2013 à 09:19:38  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Si, c'est possible mais le placement de la légende risque de moins bien se faire.
 Je vais regarder cela, néanmoins.


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 19/01/2013 à 11:29:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Me revoilà, désolé pour le retard dû à ma période de concours partiels.
Le code suivant fonctionne :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub InsertionImageLégende()
  2. 'InsertionImageLégende Macro
  3. 'Permet l'insertion d'une image avec une légende automatique et groupée
  4.  
  5. 'Sélectionnons notre image
  6.  Dim pict As Shape
  7.  Dim path As Variant
  8.  With Application.FileDialog(msoFileDialogOpen)
  9.    .AllowMultiSelect = True
  10.    .Filters.Clear
  11.    .Filters.Add "Toutes les images (*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.dib;*.rle;*.gif;*.emz;*.wmz;*.pcz;*.tif;*.tiff;*.cgm;*.eps;*.pct;*.pict;*.wpg)", "*.emf; *.wmf; *.jpg; *.jpeg; *.jfif; *.jpe; *.png; *.bmp; *.dib; *.rle; *.gif; *.emz; *.wmz; *.pcz; *.tif; *.tiff; *.cgm; *.eps; *.pct; *.pict; *.wpg", 1
  12.    .Show
  13.    For Each path In .SelectedItems
  14. 'Insérons notre image
  15.      Set pict = ActiveDocument.Shapes.AddPicture(path)
  16.      pict.Select
  17.      pict.ZOrder msoBringInFrontOfText 'Mise en forme devant le texte pour le groupage
  18. 'Alignement par rapport au paragraphe dans lequel le curseur clignote
  19. 'pict.Top = 0
  20. 'pict.Left = 0
  21. 'Recherche du nom de l'image : on prend la chaîne de caractères située après le dernier "\"
  22.      Dim name As String
  23.      Dim i As Integer
  24.      i = Len(path)
  25.      Do While Not (Mid(path, i, 1) = "\") And i > 0
  26.        i = i - 1
  27.      Loop
  28.      path = Mid(path, i + 1, Len(path) - i)
  29. 'Le nom trouvé est mis dans la zone de texte en tant que légende
  30.      Selection.InsertCaption Label:="Figure", Title:=" : " + path
  31.      Dim LastShape As Integer
  32.      LastShape = ActiveDocument.Shapes.Count
  33.      ActiveDocument.Shapes(LastShape).Select
  34. 'Texte centré
  35.      Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  36. 'Groupage de l'image et de la zone de texte
  37.      pict.name = path
  38.      ActiveDocument.Shapes(LastShape).name = "caption : " + path
  39.      Dim gr As Shape
  40.      Set gr = ActiveDocument.Shapes.Range(Array(path, "caption : " + path)).Group
  41.      gr.ConvertToInlineShape
  42.    Next
  43.  End With
  44. End Sub

J'attends tes avis.
Message édité par Tintin10 le 10/10/2015 à 11:23:38

---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
mefisto46
  1. Posté le 21/01/2013 à 10:37:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
C'est parfait !!!!
 Merci de tous tes efforts  :wahoo:  :wahoo:

  1. config
tintin10
Habitué (de 5 000 à 9 999 messages postés) Développeur
  1. Posté le 22/01/2013 à 13:29:44  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
De rien, avec plaisir !


---------------
Configuration matérielle : voir ce lien
Merci de respecter les règles du forum
 Page :
1

Aller à :
 

Sujets relatifs
Problème utilisation acronis 2010 true image home Affichage particulier de la légende dans Excel ?
organiseur photoshop elements : légende photo Transformer un texte word en image
Word Insertion d'un objet représentant un ciseau OFFICE : DIFFERENCE DE COULEUR DE LEGENDE DES DOCUMENTS
EXCEL et numérotation automatique Comment mettre une légende aux photos dans Picasa 2
Plus de sujets relatifs à : Legende automatique insertion image Word 2010

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Excel 2010 listes personnalisées abrégées 4
Pb de filtre ds Word publipostage [résolu] 2
Elaboration d'un planning de congés RESOLU 6
Transfert données de Nokia N8/SYMBIAN vers Samsung NOTE 2/ANDROÏD 0
Office 2007 Pro+ et Office 2010 Familial 6