informer

...
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 ...

Bonjour à tous,

La syntaxe proposée par l'aide en ligne MS est :

Switch(expr-1, value-1, [ expr-2, value-2..., [ expr-n, value-n ]])

Switch renvoie une valeur Null dans le cas suivants :

• Aucune expression n’a la valeur True.
• La première expression ayant une valeur True a une valeur correspondante Null

Mais rien d'explicite sur comment avoir l'équivalent de ELSE

Très simple

Code :

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

SELECT Switch(..., True, 'ValueByDefault'

...

Tout a commencé par une banale connexion à une base SQL SERVER pour faire des requêtes. J'avais donc déclaré une chaîne de connexion comme suit :

Code :

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

Public Const ADODB_STRINGCNX = "Driver={SQL Server};SERVER=LeServer;DATABASE=LaBDD;Trusted_Connection=Yes;"

Ensuite j'ai créé une fonction pour lier les tables SQL Server avec bien sûr la commande DoCmd.TransferDatabase et toujours la même chaîne de connexion ADODB_STRINGCNX. Et c'est là que mon désarroi ...

Je partage

Pré-requis:

• Le répertoire source (vRepSource) contenant les fichiers Zip est sélectionné via une boite de dialogue (Application.FileDialog(msoFileDialogFolderPicker)
• Le répertoire cible dans lequel sont décompressés les fichiers Zip (vRepCible) écrit en dur
• Le niveau d'arborescence provoque un décalage de colonne
• Les données sont ensuite copiées dans un autre fichier pour les afficher dans un treeView
• Le traitement est lancé sur l'événement click

...