'déclaration des variables Dim derniereLigne As Long Dim derniereColonne As Integer Dim myRange As Range Range("A" & Rows.Count).End(xlUp).Select 'sélection de la dernière cellule non vide de la colonne A derniereLigne…
Qu'est-ce que WinSCP ? WinSCP est un client SFTP graphique pour Windows. Il utilise SSH et est open source. Le protocole SCP est également supporté. Le but de ce programme…
EXEMPLE Dans beaucoup de programmes (SAGE, WAVESOFT …) le stock qui est affiché est souvent la somme de tous les dépôts confondus, l’utilisateur est obligé d’ouvrir la fiche de l’article…
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_access-mso_win10-mso_2016/fresh-installed-access-2016-reports-error/9476fe3c-03d2-4d0c-ad62-b706200dbd34
Update [elementdef] set [libelletec] = replace([libellestd],chr(13),'|') where [libellestd] like '*' & chr(13) & '*'
SQL SERVEUR Remplacer : Update [dbo].[ARTICLES] set [ARTDESIGNATION] = replace([ARTDESIGNATION],';',',') where [ARTDESIGNATION] like '%;%' Rechercher : select [ARTCODE] from [dbo].[ARTICLES] where [ARTDESIGNATION] like '%;%' ACCESS Remplacer : UPDATE ElementDef…
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),…