Option Explicit Sub LoadFrenchLanguage() 'Dim LocaleLangList() 'Dim LocaleCountryList() sProductname = GetProductname sOK = "~OK" sCancel = "Annuler" sColumnHeader = "En-tête de colonne" sInsertStockName = "Saisissez quelques actions dans votre portefeuille !" sTitle = "<PRODUCTNAME><PRODUCTNAME> : Gestion d'actions" sTitle = ReplaceString(sTitle, sProductName, "<PRODUCTNAME>") sMsgError = "Erreur de saisie" sMsgNoName = sInsertStockname sMsgNoQuantity = "Saisissez une quantité supérieure à 0 !" sMsgNoDividend = "Vous devez saisir le montant des dividendes perçus (soit les dividendes par action, soit la somme totale perçue)." sMsgNoExchangeRate = "Saisissez un taux correct de conversion (anciennes actions -> nouvelles actions)." sMsgNoValidExchangeDate = "Saisissez une date correcte pour le split d'action." sMsgWrongExchangeDate = "Split impossible car il y a déjà eu des transactions après la date du split !" sMsgSellTooMuch = "Impossible de vendre autant d'actions ! Maximum : " sMsgConfirm = "Confirmation requise" sMsgFreeStock = "S'agit-il d'actions gratuites ?" sMsgTotalLoss = "Prévoyez-vous une perte totale ?" sMsgAuthorization = "Requête de sécurité" sMsgDeleteAll = "Voulez-vous supprimer tous les mouvements et remettre le portefeuille d'actions à zéro ?" cSplit = "Split d'action le " sHistory = "Historique" TransactTitle(1) = "Vente d'actions" TransactTitle(2) = "Achat d'actions" StockRatesTitle(1) = "Versement des dividendes" StockRatesTitle(2) = "Split d'action" StockRatesTitle(3) = sHistory sDepotCurrency = "Monnaie du portefeuille" sStockName = "Nom de l'action" TransactMode = LIFO ' Possible values: "FIFO" and "LIFO" DateCellStyle = "Résultat date" CurrCellStyle = "1" sStartDate = "Date de début :" sEndDate = "Date de fin :" sStartUpWelcome = "Utilisez ce modèle pour une gestion efficiente de votre portefeuille d'actions !" sStartUpChooseMarket = "Commencez par choisir une monnaie de référence et ainsi la place boursière pour la mise à jour Internet !" sStartUpHint = "La fonction <History> n'est cependant disponible que pour le marché américain." sStartupHint = ReplaceString(sStartUpHint, sHistory, "<History>") sNoInternetUpdate = "Sans mise à jour Internet" sMarketPlace = "Place boursière :" sNoInternetDataAvailable = "Réception des cours Internet impossible !" sCheckInternetSettings = "Causes possibles : <BR>Problème de paramétrage Internet : vérifiez les paramètres ! <BR>Vous avez saisi le mauvais <SYMBOL> pour l'action." sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), "<BR>") sMsgEndDatebeforeNow = "La date spécifiée pour la fin doit précéder celle de ce jour !" sMsgStartDatebeforeEndDate = "La date spécifiée pour le début doit succéder à celle de ce jour !" sMarket(0,0) = "Dollar Américain" sMarket(0,1) = "$" sMarket(0,2) = "New York" sMarket(0,3) = "http://quote.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv" sMarket(0,4) = "http://chart.yahoo.com/table.csv?s=<StockID>&" &_ "a=<StartMonth>&b=<StartDay>&c=<Startyear>&d=<EndMonth>&e=<EndDay>&f=<Endyear>&" &_ "g=<interval>&q=q&y=0&z=<StockID>&x=.csv" sMarket(0,5) = "Symbole" sMarket(0,6) = "en" sMarket(0,7) = "US" sMarket(0,8) = "409" sMarket(0,9) = "44" sMarket(1,0) = "Euro" sMarket(1,1) = chr(8364) sMarket(1,2) = "Francfort" sMarket(1,3) = "http://de.finance.yahoo.com/d/quotes.csv?s=<StockID>.F&f=sl1t1c1ghpv&e=.csv" sMarket(1,5) = "Code" sMarket(1,6) = "de;nl;pt;el" sMarket(1,7) = "DE;NL;PT;GR" sMarket(1,8) = "407;413;816;408" sMarket(1,9) = "59/9" sMarket(2,0) = "Livre Sterling" sMarket(2,1) = "£" sMarket(2,2) = "Londres" sMarket(2,3) = "http://uk.finance.yahoo.com/d/quotes.csv?s=<StockID>.L&m=*&f=sl1t1c1ghov&e=.csv" sMarket(2,5) = "Symbole" sMarket(2,6) = "en" sMarket(2,7) = "GB" sMarket(2,8) = "809" sMarket(2,9) = "44" sMarket(3,0) = "Yen Japonais" sMarket(3,1) = "¥" sMarket(3,2) = "Tokyo" sMarket(3,3) = "" sMarket(3,5) = "Code" sMarket(3,6) = "ja" sMarket(3,7) = "JP" sMarket(3,8) = "411" sMarket(3,9) = "" sMarket(4,0) = "Dollar de Hong Kong" sMarket(4,1) = "HK$" sMarket(4,2) = "Hong Kong" sMarket(4,3) = "http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv" sMarket(4,5) = "Numéro" sMarket(4,6) = "zh" sMarket(4,7) = "HK" sMarket(4,8) = "C04" sMarket(4,9) = "44" sMarket(5,0) = "Dollar Australien" sMarket(5,1) = "$" sMarket(5,2) = "Sydney" sMarket(5,3) = "http://au.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv" sMarket(5,5) = "Symbole" sMarket(5,6) = "en" sMarket(5,7) = "AU" sMarket(5,8) = "C09" sMarket(5,9) = "44" ' ****************************End of the default subset********************************* CompleteMarketList() LocalizedCurrencies() With TransactModel .lblStockNames.Label = sStockname .lblQuantity.Label = "Quantité" .lblRate.Label = "Cours" .lblDate.Label = "Date de transaction" .hlnCommission.Label = "Dépenses diverses" .lblCommission.Label = "Commission" .lblMinimum.Label = "Commission minimale" .lblFix.Label = "Montant fixe/frais" .cmdGoOn.Label = sOK .cmdCancel.Label = sCancel End With With StockRatesModel .optPerShare.Label = "Dividende/action" .optTotal.Label = "Dividende total" .lblDividend.Label = "Montant" .lblExchangeRate.Label = "Taux de conversion (ancien->nouveau)" .lblColon.Label = ":" .lblDate.Label = "Date de la conversion:" .lblStockNames.Label = sStockname .lblStartDate.Label = sStartDate .lblEndDate.Label = sEndDate .optDaily.Label = "~Quotidien" .optWeekly.Label = "~Hebdomadaire" .hlnInterval.Label = "Période" .cmdGoOn.Label = sOk .cmdCancel.Label = sCancel End With End Sub