GESTION DU RTF
Utiliser l'ocx suivant richtx32.ocx Function RtfToTxt(Texte) Set objRTF = CreateObject("RichText.RichTextCtrl") objRTF() = Texte n = objRTF.Text m = 1 Do Until m = 0 n = Replace(n, Chr(13) & Chr(10),…
Utiliser l'ocx suivant richtx32.ocx Function RtfToTxt(Texte) Set objRTF = CreateObject("RichText.RichTextCtrl") objRTF() = Texte n = objRTF.Text m = 1 Do Until m = 0 n = Replace(n, Chr(13) & Chr(10),…
La fonction : /// ALTER FUNCTION dbo.EXT_SelonTVA ( @pincode varchar(10), @pcvid int, @CodeTVA int, @Champ varchar(10) ) RETURNS real AS BEGIN DECLARE @Resultat real DECLARE @TypeDoc int if left(@pincode,3) =…
Exemple /// ALTER FUNCTION dbo.EXT_TEST ( @pcvid int, @CODETVA int ) RETURNS @PCV TABLE (CODETAXE int, PTVBASETVA real,PTVMNTTVA real,PTVTAUXtVA real) AS BEGIN insert into @PCV Select CODETAXE, PTVBASETVA, PTVMNTTVA, PTVTAUXtVA…
Exemple : /// select * from ( SELECT P.PINCODE AS TYPEDOC, P.PCVNUM AS NUMDOC, P.PCVDATEEFFET AS DATEDOC, T.TIRCODE AS CODECLIENT, A.ADRSOCIETE AS NOMCLIENT, A.ADRVILLE AS VILLE, P.PCVNUMEXT AS NUMEXT, P.PCVMNTHT…
[Private | Public] [Static] Function nom [(liste de paramètres)] [AS type] [instructions] [nom= expression] [Exit Function] [instructions] [nom= expression]End Function Où: Public Indique que la procédure Function est accessible à toutes les autres procédures dans l'ensemble des modules. Private Indique que…
[Private | Public] [Static] Sub nom [(liste de paramètres)] [instructions] [Exit Sub] [instructions] End Sub Où: Public Indique que la procédure Sub est accessible à toutes les autres procédures dans l'ensemble des modules. Valeur par défaut.…
Comment installer et activer cet objet ? Récupérer les fichiers sur le blog : [mscomct2.inf|/psblog/public/Exes/mscomct2.inf] [mscomct2.ocx|/psblog/public/Exes/mscomct2.ocx] Lancer l'installation par clic droit -> installer sur fichier mscomct2.inf La copie du fichier…
Split Une explication sur l'utilisation de Split(FL1.UsedRange.Address, "$")(4) : Worksheets("Feuil1").UsedRange.address donne l'adresse de la plage de données sous la forme "A1:" & DernièreColonne & dernièreLigne" Par exemple "$A$1:$H$75" En réalité…
Pour utiliser l'Éditeur du Registre pour activer la connexion automatique, procédez comme suit : Cliquez sur Démarrer, puis cliquez sur exécuter. Dans la zone Ouvrir , tapez Regedt32.exe, puis appuyez…
/// CLIENT-CODIAL-KS] LancementAUTO=0 Log=0 Trace=0 TypeAction=1 TypeBase=HFSQL Serveur=srv-gestion Utilisateur=admin MotDePasse=Codial BaseServeur=data_MAS NomFic=CLIENT.FIC;FA4_TIERS_CONTACT.FIC;FP_CLIENT_A.FIC;FA4_CONTRAT_CLIENT.FIC;MATERIEL.FIC;FA4_PARC_CLIENT.FIC;FP_SERIE_LOG_A.FIC Req=SELECT CO.CIVILITE_CONTACT AS [Civilité_interlocuteur], CO.NOM_CONTACT AS [Nom_interlocuteur], CO.FONCTION_CONTACT AS [Fonction], CO.TEL_CONTACT AS [Tel_contact], CO.PORT_CONTACT AS [Port_contact], CO.EMAIL_CONTACT AS…