Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

[Résolu] Automatisation script VBS


9project
 Share

Messages recommandés

Bonjour à tous,

 

J'ai actuellement un script qui me permet de générer trois signatures mail au format html en fonction de l'appartenance de l'utilisateur. Le soucis c'est que ce script attend une validation manuelle des informations récupérées dans l'AD et que j'aimerai que, lorsque je lance mon vbs, tout ce fasse automatiquement sans que j'ai à cliquer où que ce soit.

 

Je ne suis pas développeur du tout et là je sèche... Le but étant d'intégrer ce script dans une GPO.

 

Autrement le script fonctionne parfaitement sauf ce soucis.

 

Voici le début du code en question:

 

'---------------------------------------------------------------------------------------------------------
'Définition de la signature Outlook  via paramètres utilisateur Active Directory
'
'   ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ###
'---------------------------------------------------------------------------------------------------------
'
'
' Test l'existence d'un fichier
Set FSO = CreateObject("Scripting.FileSystemObject" )
Set oshell = createobject("wscript.shell")
If FSO.FileExists (oshell.expandenvironmentstrings("%userprofile%") &"\Application Data\Microsoft\Signatures\Signature.htm" ) Then
   Wscript.Echo "Le fichier existe."
Else
'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures
set netw=createobject("wscript.network")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
set oshell = createobject("wscript.shell")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
 FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Signature.htm", True)

'Send START Message
WScript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
'Définition des OU Active Directory
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
'
'
Set oContainer=GetObject("LDAP:// ou=Users, dc=domaine, dc=com")
EnumerateUsers oContainer
'
'
'Message de fin de procédure sur Erreur
WScript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..."
WScript.Quit
'Sub Programme de recherche "EnumerateUsers"
Sub EnumerateUsers(oCont)
Dim oUser
strCOMPANY ="Company A"
strCOMPANY2 = "Company B"
strCOMPANY3 = "Company C"
For Each oUser In oCont
 Select Case LCase(oUser.Class)
  Case "user"
  If oUser.sAMAccountName=netw.username Then
'Affichage des paramètres de l'utilisateur
  BtnCode = oshell.Popup("Prénom: " & oUser.givenname & chr(13) & "Nom: " & oUser.sn & chr(13) & "Adresse: " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Société :" & oUser.company & chr (13) & "Tél : " & oUser.telephoneNumber & chr(13) & "Port : " & oUser.mobile & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64)
   If BtnCode=6 then

 

Merci pour votre aide.

 

Cordialement.

 

9project

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Il te faut supprimer tous les lignes commencant par "WScript.Echo" ainsi que les lignes:

BtnCode = oshell.Popup("Prénom: " & oUser.givenname & chr(13) & "Nom: " & oUser.sn & chr(13) & "Adresse: " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Société :" & oUser.company & chr (13) & "Tél : " & oUser.telephoneNumber & chr(13) & "Port : " & oUser.mobile & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64)
   If BtnCode=6 then

et le "End If" qui va avec ce If...

 

 

Lien vers le commentaire
Partager sur d’autres sites

Salut!

 

Merci pour ta réponse.

 

J'ai commenté les lignes commencant par "WScript.Echo" et je n'ai plus de boîtes de dialogue.

Pour ce qui est de la ligne BtnCode si je l'enlève mon html n'est plus alimenté en données...

Lien vers le commentaire
Partager sur d’autres sites

Hum, difficile à dire car ton code n'est pas complet...

 

Essai en remplacant:

 

Ceci:

  BtnCode = oshell.Popup("Prénom: " & oUser.givenname & chr(13) & "Nom: " & oUser.sn & chr(13) & "Adresse: " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Société :" & oUser.company & chr (13) & "Tél : " & oUser.telephoneNumber & chr(13) & "Port : " & oUser.mobile & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64) 
   If BtnCode=6 then

Par ceci:

  BtnCode = 6    
 If BtnCode=6 then

 

 

 

Lien vers le commentaire
Partager sur d’autres sites

Malgré le fait qu'il ne soit pas complet tu as résolu ma question et je t'en remercie!

 

Pour ce qui est du code complet le voici dans son intégralité si jamais cela peut dépanner :

 

'---------------------------------------------------------------------------------------------------------
'Définition de la signature Outlook  via paramètres utilisateur Active Directory
'
'   ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ###
'---------------------------------------------------------------------------------------------------------
'
'

' Test l'existence d'un fichier
Set FSO = CreateObject("Scripting.FileSystemObject" )
Set oshell = createobject("wscript.shell")
If FSO.FileExists (oshell.expandenvironmentstrings("%userprofile%") &"\Application Data\Microsoft\Signatures\Signature.htm" ) Then
   wscript.Quit
Else
'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures
set netw=createobject("wscript.network")
Set FileSystem = wscript.CreateObject("Scripting.FileSystemObject")
set oshell = createobject("wscript.shell")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
 FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Signature.htm", True)

'Send START Message
'wscript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
'Définition des OU Active Directory
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
'
'
Set oContainer=GetObject("LDAP:// ou=Users, dc=domaine, dc=com")
EnumerateUsers oContainer
'
'
'Message de fin de procédure sur Erreur
' wscript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..."
wscript.Quit
'Sub Programme de recherche "EnumerateUsers"
Sub EnumerateUsers(oCont)
Dim oUser
strCOMPANY ="COMPANY A"
strCOMPANY2 = "COMPANY B"
strCOMPANY3 = "COMPANY C"
For Each oUser In oCont
 Select Case LCase(oUser.Class)
  Case "user"
   If oUser.sAMAccountName=netw.username Then
'Affichage des paramètres de l'utilisateur
  BtnCode = 6
   If BtnCode=6 then

'Création du fichier au format HTML
    OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
    OutPutFileHtml.WriteLine "<HTML><HEAD>"
 OutPutFileHtml.WriteLine "<meta http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
 OutPutFileHtml.WriteLine "<meta name=ProgId content=Word.Document>"
 OutPutFileHtml.WriteLine "<meta name=Generator content=""Microsoft Word 10"">"
 OutPutFileHtml.WriteLine "<meta name=Originator content=""Microsoft Word 10"">"
 OutPutFileHtml.WriteLine "<link href=""David_fichiers/filelist.xml"" rel=""File-List"">"
 OutPutFileHtml.WriteLine "<link href=""David_fichiers/editdata.mso"" rel=""Edit-Time-Data"">"
 OutPutFileHtml.WriteLine "<!--[if !mso]>"
 OutPutFileHtml.WriteLine "<style>"
 OutPutFileHtml.WriteLine "<!--"
 OutPutFileHtml.WriteLine "/* Style Definitions */"
 OutPutFileHtml.WriteLine "p.MsoNormal, li.MsoNormal, div.MsoNormal"
 OutPutFileHtml.WriteLine "{mso-style-parent:"";"
 OutPutFileHtml.WriteLine "margin:0cm;"
 OutPutFileHtml.WriteLine "margin-bottom:.0001pt;"
 OutPutFileHtml.WriteLine "mso-pagination:widow-orphan;"
 OutPutFileHtml.WriteLine "font-size:12.0pt;"
 OutPutFileHtml.WriteLine "font-family:""Times New Roman"";"
 OutPutFileHtml.WriteLine "mso-fareast-font-family:""Times New Roman"";}"
 OutPutFileHtml.WriteLine "a:link, span.MsoHyperlink"
 OutPutFileHtml.WriteLine "{color:blue;"
 OutPutFileHtml.WriteLine "text-decoration:underline;"
 OutPutFileHtml.WriteLine "text-underline:single;}"
 OutPutFileHtml.WriteLine "a:visited, span.MsoHyperlinkFollowed"
 OutPutFileHtml.WriteLine "{color:blue;"
 OutPutFileHtml.WriteLine "text-decoration:underline;"
 OutPutFileHtml.WriteLine "text-underline:single;}"
 OutPutFileHtml.WriteLine "p"
 OutPutFileHtml.WriteLine "{mso-margin-top-alt:auto;"
 OutPutFileHtml.WriteLine "margin-right:0cm;"
 OutPutFileHtml.WriteLine "mso-margin-bottom-alt:auto;"
 OutPutFileHtml.WriteLine "margin-left:0cm;"
 OutPutFileHtml.WriteLine "mso-pagination:widow-orphan;"
 OutPutFileHtml.WriteLine "font-size:12.0pt;"
 OutPutFileHtml.WriteLine "font-family:""Times New Roman"";"
 OutPutFileHtml.WriteLine "mso-fareast-font-family:""Times New Roman"";}"
 OutPutFileHtml.WriteLine "@page Section1"
 OutPutFileHtml.WriteLine "{size:595.3pt 841.9pt;"
 OutPutFileHtml.WriteLine "margin:70.85pt 70.85pt 70.85pt 70.85pt;"
 OutPutFileHtml.WriteLine "mso-header-margin:35.4pt;"
 OutPutFileHtml.WriteLine "mso-footer-margin:35.4pt;"
 OutPutFileHtml.WriteLine "mso-paper-source:0;}"
 OutPutFileHtml.WriteLine "div.Section1"
 OutPutFileHtml.WriteLine "{page:Section1;}"
 OutPutFileHtml.WriteLine "-->"
 OutPutFileHtml.WriteLine "</style>"
 OutPutFileHtml.WriteLine "</head>"
    OutPutFileHtml.WriteLine "<body lang=FR link=blue vlink=blue style='tab-interval:35.4pt'>"
    OutPutFileHtml.WriteLine "<div class=Section1>"
 OutPutFileHtml.WriteLine "<p> </p>"
 OutPutFileHtml.WriteLine "<BR>"
 OutPutFileHtml.WriteLine "<SPAN lang=fr>"
 OutPutFileHtml.WriteLine "<span style='font-family:Arial; font-size: 10pt;'>Cordialement</SPAN></SPAN><BR><BR>"

'Si l'utilisateur fait partit de COMPANY A
 If oUser.company <> strCOMPANY And oUser.company <> strCOMPANY3 Then
    OutPutFileHtml.WriteLine "<table class=""MsoNormalTable"" width=""400"" cellspacing=""0"" cellpadding=""0"" border=""0"" style=""width:300.0pt;mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm"">"
    OutPutFileHtml.WriteLine "<tbody>"
 	 OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:0;mso-yfti-lastrow:yes'>"
    OutPutFileHtml.WriteLine "<td width=400 style='width:300.0pt;padding:0cm 0cm 0cm 0cm'>"
    OutPutFileHtml.WriteLine "<table class=""MsoNormalTable"" width=""400"" cellspacing=""0"" cellpadding=""0"" border=""0"" style=""width:300.0pt;mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm"">"
    OutPutFileHtml.WriteLine "<tbody>"
 OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:0'>"
    OutPutFileHtml.WriteLine "<td width=127 style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>"
    OutPutFileHtml.WriteLine "<img id=""_x0000_i1025"" width=""133"" height=""51"" src=""http://www.mondomaine.fr/logomail.jpg"">"
    OutPutFileHtml.WriteLine "</td>"
    OutPutFileHtml.WriteLine "<td width=273 style='width:204.75pt;padding:0cm 0cm 0cm 0cm'>"
    OutPutFileHtml.WriteLine "<strong><span style='font-family:Arial; font-size: 10pt;'>" & oUser.givenname & " " & oUser.sn &"</span></strong><br>"
    OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial; color:black'>" & oUser.title & "</span><br>"
    OutPutFileHtml.WriteLine "<a href=""mailto:"
 OutPutFileHtml.WriteLine oUser.mail
 OutPutFileHtml.WriteLine """ span><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "<br>"
    OutPutFileHtml.WriteLine "</span></a><span style='font-size:9.0pt;font-family:Arial;color:black'>Tél."
    OutPutFileHtml.WriteLine "" & oUser.telephoneNumber & "</span>"
    OutPutFileHtml.WriteLine "</td>"
    OutPutFileHtml.WriteLine "</tr>"
    OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes;height:67.5pt'>"
    OutPutFileHtml.WriteLine "<td colspan=2 valign=bottom style='padding:0cm 0cm 0cm 0cm;height:67.5pt'>"
    OutPutFileHtml.WriteLine "<b><span style='font-size:9.0pt;font-family:Arial;"
    OutPutFileHtml.WriteLine "color:#FF6600'>" & oUser.company & "</span><span style='font-size:"
    OutPutFileHtml.WriteLine "9.0pt;font-family:Arial;color:#009EE0'> </span></b><br>"
    OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & " - " & oUser.postalCode & " "& oUser.l & "<br>"
    OutPutFileHtml.WriteLine "Tél : " & oUser.ipPhone & " - Fax : " & oUser.facsimileTelephoneNumber & "</span><o:p></o:p><br>"
    OutPutFileHtml.WriteLine "<a href=""http://www.mondomaine.com%20"" span><span"
    OutPutFileHtml.WriteLine " style='font-size:9.0pt;font-family:Arial;color:black'>www.mondomaine.com"
    OutPutFileHtml.WriteLine "</span></a>"
    OutPutFileHtml.WriteLine "</td>"
    OutPutFileHtml.WriteLine "</tr>"
    OutPutFileHtml.WriteLine "</tbody>"
 OutPutFileHtml.WriteLine "</table>"
    OutPutFileHtml.WriteLine "<p class=MsoNormal><o:p></o:p></p>"
 OutPutFileHtml.WriteLine "</td>"
    OutPutFileHtml.WriteLine "</tr>"
 OutPutFileHtml.WriteLine "</tbody>"
 OutPutFileHtml.WriteLine "</table>"
 OutPutFileHtml.WriteLine "<p class=MsoNormal></p>"
 End If

'Si l'utilisateur fait partit de COMPANY B
 If oUser.company <> strCOMPANY2 And oUser.company <> strCOMPANY3 Then 
 OutPutFileHtml.WriteLine "<table width=""440"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
    OutPutFileHtml.WriteLine "<tr>"
    OutPutFileHtml.WriteLine "<td width=""40""> </td>"
    OutPutFileHtml.WriteLine "<td width=""400""><table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
    OutPutFileHtml.WriteLine "<tr>"
    OutPutFileHtml.WriteLine "<td width=""127""><img src=""http://www.mondomaine.fr/logomail.jpg"" width=""120"" height=""80""></td>"
    OutPutFileHtml.WriteLine "<td width=""273"" valign=""left""><span Style=""Font: bold 12px Arial; color:black;"">" & oUser.givenname & " " & oUser.sn &"</span><br>"
    OutPutFileHtml.WriteLine "<span style=""Font: 12px Arial; color:black;"">" & oUser.title & "</span><br>"
    OutPutFileHtml.WriteLine "<a href=""mailto:"
 OutPutFileHtml.WriteLine oUser.mail
 OutPutFileHtml.WriteLine """ span><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "</a><br>"
    OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>Tél : " & oUser.telephoneNumber & "</SPAN>"
    OutPutFileHtml.WriteLine "</td>"
    OutPutFileHtml.WriteLine "</tr>"
    OutPutFileHtml.WriteLine "<tr valign=""bottom"">"
    OutPutFileHtml.WriteLine "<td height=""90"" colspan=""2""><span Style=""Font: bold 12px Arial; color:#009EE0;"">Texte </span><br>"
    OutPutFileHtml.WriteLine "<span Style=""Font: 12px Arial; color:black;"">" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & " - " & oUser.postalCode & " "& oUser.l & "<br>"
    OutPutFileHtml.WriteLine "Tél : " & oUser.ipPhone & " - Fax : " & oUser.facsimileTelephoneNumber & "</span><br>"
    OutPutFileHtml.WriteLine "<a href=""http://www.mondomaine.com"" span Style=""Font: 12px Arial; color:black; text-decoration:underline;"">www.mondomaine.com </a> </p></td>"
    OutPutFileHtml.WriteLine "</tr>"
    OutPutFileHtml.WriteLine "</table></td>"
    OutPutFileHtml.WriteLine "</tr>"
    OutPutFileHtml.WriteLine "</table>"
 End If

'Si l'utilisateur fait partit de COMPANY C
 If oUser.company <> strCOMPANY And oUser.company <> strCOMPANY2 Then
 OutPutFileHtml.WriteLine "<b><span style='font-size:11.0pt; font-family:Arial; color:#009ad8'>" & oUser.givenname & " " & oUser.sn &"</span></b></span><BR>"
    OutPutFileHtml.WriteLine "<span style='font-size:9.0pt; font-family:Arial;color:black'>" & oUser.title & "</SPAN><BR>"
 OutPutFileHtml.WriteLine "<span style='font-size:9.0pt; font-family:Arial;color:black'>COMPANY C</SPAN><BR>"
    OutPutFileHtml.WriteLine "<A href=""mailto:"
    OutPutFileHtml.WriteLine oUser.mail
    OutPutFileHtml.WriteLine """><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "</A></SPAN></SPAN><BR>"
 OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>Tél : " & oUser.telephoneNumber & "</SPAN><BR>"
 OutPutFileHtml.WriteLine "<BR>"
 OutPutFileHtml.WriteLine "<IMG SRC=""http://www.mondomaine.fr/logomail.jpg""></a>"
 OutPutFileHtml.WriteLine "<BR>"
 OutPutFileHtml.WriteLine "<BR>"
 OutPutFileHtml.WriteLine "<b><span style='font-size:9.0pt; font-family:Arial; color:#000'>" & oUser.company & "</SPAN></b><BR>"
    OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & "</SPAN><BR>"
 OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.postalCode & " " & oUser.l & "</SPAN><BR>"
    OutPutFileHtml.WriteLine "      <A href=""http://www.mondomaine.com""><SPAN"
    OutPutFileHtml.WriteLine "      lang=fr><U><span style='font-size:9.0pt; font-family:Arial; color:black; text-decoration:" 
    OutPutFileHtml.WriteLine "      none;'>www.mondomaine.com</SPAN></U></SPAN></A><BR>"
 OutPutFileHtml.WriteLine "      <A href=""http://www.mondomaine.com""><SPAN"
    OutPutFileHtml.WriteLine "      lang=fr><U><span style='font-size:9.0pt; font-family:Arial; color:black; text-decoration:" 
    OutPutFileHtml.WriteLine "      none;'>www.mondomaine.com</SPAN></U></SPAN></A>"
 End If
    OutPutFileHtml.WriteLine "      </DIV></BODY></HTML>"
    OutPutFileHtml.Close
'Message de FIN normale de la procédure
'     wscript.Echo "Définition signature terminée"
    wscript.Quit
   else
'Message de d'ABANDON de la procédure
'     wscript.Echo "Procédure annulée"
    wscript.Quit
   End If
  End If
  Case "organizationalunit", "container"
   EnumerateUsers oUser
 End Select
Next
End Sub
End If
wscript.Quit

 

Encore Merci pour ton aide!

 

Cordialement.

 

9project

Lien vers le commentaire
Partager sur d’autres sites

Le problème semble avoir trouvé sa solution.

Ainsi, afin de signaler clairement à ceux qui ont un problème similaire qu'ils ont peut-être une solution toute trouvée (s'ils pensent à utiliser la fonction Recherche en indiquant le mot-clé "résolu" auparavant), et afin de signaler aux autres contributeurs qu'il est inutile de continuer à se creuser la tête sur le problème (à moins d'avoir des suppléments d'informations à apporter pour mieux comprendre ce qui posait problème), un modérateur a préfixé le titre du topic avec la mention [Résolu].

Merci, à l'avenir, de bien vouloir prendre à votre charge cette mise à jour quand vous estimez que votre problème a été résolu de manière satisfaisante (et parallèlement, si le problème a disparu "mystérieusement", inutile d'induire les gens en erreur ;-)) Pour cela, modifier.gif votre premier message :-)

Lien vers le commentaire
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

 Share

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×
×
  • Créer...