informer

Envoyé par informer

QueryTables très bien expliqué dans une vidéo de WISE OWL et très pédagogique

Lien supplémentaire vers la page Microsoft Microsoft excel.querytable

Un code pour ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function mfForm_AddControls()

    Dim oFrm As Form, _
        oText As Control, _
        oLabel As Control, _
        sFormName As String, _
        oRset As Recordset, _
        oField As Field, _
        lLeft As Long, _
        lTop As Long, _
        lWidth As Long, _
        lHight As Long, _
        i As Integer
    
    
    
    lLeft = 343

...

Envoyé par informer

Bonjour à tous,

En vba, il existe une fonction native REPLACE(expression, find, replace, [ start, [ count, [ compare ]]]) Voir ici pour plus d'information

Toutefois, cette fonction ne peut remplacer qu'un seul caractère à la fois. donc dans l'éventualité d'un remplacement de différents caractères par un même caractère, rien de mieux que l'utilisation du RegEx. Le code suivant permet cette action!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function fRegExReplace(psValue As String, psPattern

...

...
Ce post fait suite au post vba erreur 91 variable objet non définie

Si ma méthode permet de sortir proprement, j'ai été confronté au problème de la permanence de l'ouverture d'une instance EXCEL même après la commande QUIT (Reste dans le Task Manager -> Detail)

J'ai donc lu de très nombreux posts sur le WEB, certains proposant des solutions de contournement très lourde. Puis je suis tombé sur le post How to kill an excel process in vb6 application/ dans ...

Généralement une erreur arrête l'exécution du code et j'ai donc ce modèle

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
public function myFunction ()
 
 On Error GoTo Err_
     ... Code
 
Exit_:
 
Exit function
 
Err_:
 
    sMsg = Err.Number & char(13) & Err.Description
    Goto Exit_
 
End function

Quand je clos/quite/ libére des objets après Exit_: naïf que je suis, je pensais que la ...