Qualité d'image THE GIMP qui se dégrade lors de l'intégration web sujet

Bonjour,

J'ai créé la charte d'un site avec The Gimp. Je suis maintenant à la phase d'intégration web, mais mon problème c'est que la qualité de l'image une fois intégrée se dégrade. J'ai utilisé le plugin "save for web" mais le résultat n'est pas encore satisfaisant. Je l'avais enregistré en PNG-24 sur Gimp.

Si quelqu'un a une solution pour garder la qualité de l'image svp ? Merci

[TortoiseSVN] Fichier pas mis à jour lors d'un commit. sujet

Bonjour,

Nous avons installé Subversion et TortoiseSVN, tous fonctionnais durant mes tests, mais j'ai dû refaire la structure du SVN.
La personne qui l'avait installé, n'avait mis que le trunck et mon patron n'aimait pas le terme.

Alors je suis aller dans Tortoise et j'ai renommé trunck pour Dev et créé la branche Prod.
Puis, je me suis rendu compte que les fichiers n'était au bon endroit sur le serveur.

Je suis retournée dans tortoise et j'ai supprimer les fichier puis j'ai ré-importé les fichier à versionner dans la bonne structure.
Mais depuis, les fichier ne se mette plus à jour dans le répertoire du serveur alors que si je regarde dans le repos browser de tortoise ou que je fait un update sur un autre poste le commit est bel et bien dans le SVN.

SVN avant :
svn://Serveur
Le repository est sur le D:svn_repos
Je crois que le source à l'origine était dans le D:\nomLogilel

Moi j'ai changé via Tortoise pour
svn://Serveur/nomLogiciel/Dev
Le répository est le même ... j'ai touché à rien.
Et j'ai réimporté le source qui est dans D:\Logiciel\Dev\nomLogiciel.

Donc, les fichiers qui ne se modifie pas après un commit sont ceux qui sont dans le D:\Logiciel\Dev\nomLogiciel.
Mais si je regarde dans le répositpry via Tortoise, les modification sont bien là.

Quelqu'un peu m'aider ? ou m'expliquer se que j'ai fait de mal ?? :?

Merci.

[OL-2010] Repérer des caractères dans le nom du fichier lors du classement d'un courriel sujet

Bonjour,

Dans des discussions antérieures, je mentionnais que j'avais une macro qui permet de classer des courriels dans des dossiers et qui avait été écrite par un ancien employé.
Avec votre aide, j'ai réussi à la modifier afin qu'elle affiche les raccourcis dans un dossier et qu'elle affiche le bureau.

Ma question est la suivante:

Pour nommer mon courriel de la façon que notre entreprise le demande, je dois repérer certain caractères. Entre autres, je dois indiquer ce qu'on appelle un no de service suivi du no de projet. Donc, si j'ai choisi le projet P012345 dans service 081, dans le nom du fichier du courriel, je retrouverai 081P012345.

Mon problème est que si la personne veut classer le courriel dans un dossier autre qu'un projet ou service, exemple dans le dossier "Mes documents", je fait en sorte que la macro écrit "MesDocs". Là où est le problème, c'est au numéro de service. Je ne dois rien mettre. mais comme le numéro de service est une valeur numérique à 3 chiffres (entre 000 et 999), comment puis-je l'intercepter ?
Voici la partie du code que j'ai trouvé dans la macro pour les numéros de projets et de services:

Code:

---

    If BrowseForFolder = "" Then Exit Function
    FolderName = BrowseForFolder & "\"
 
    'Recherche le nom du dossier afin de repérer le no de service et de projet
  ' Modifications pour nouveaux projets 2012-02-29 LP
    If Mid(FolderName, (InStr(FolderName, "\P0") + 1), 3) = "P00" Then
          NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\P0") + 1), 7))
    ElseIf UCase(Mid(FolderName, (InStr(FolderName, "\B-0") + 1), 4)) = "B-00" Then
              NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\B-0") + 1), 9))
    ElseIf UCase(Mid(FolderName, (InStr(FolderName, "\P-0") + 1), 4)) = "P-00" Then
          NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\P-0") + 1), 9))
    ElseIf UCase(Mid(FolderName, (InStr(FolderName, "\GC-0") + 1), 4)) = "GC-0" Then
          NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\GC-0") + 1), 10))
    ElseIf UCase(Mid(FolderName, (InStr(FolderName, "\RG-0") + 1), 4)) = "RG-0" Then
          NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\RG-0") + 1), 10))
    Else
          NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\P0") + 1), 7))
    End If
    NUM_PROJ = InputBox("Veuillez valider le numéro de projet.", "Numéro de projet", NUM_PROJ)
    If NUM_PROJ = "" Then
        Exit Function
    Else
        '**** ajout du no de service - MAJ 2014-01-19 LP
        NUM_PROJ = UCase(Mid(FolderName, (InStr(FolderName, "\P0") + 1) - 4, 3)) & NUM_PROJ
    End If

---

Je crois qu'à la ligne 25, je dois mettre une condition. Est-ce qu'il existe fonction ou condition qui pourrait comparer la valeur?

Merci