Créer pilote ODBC en VBA pour Gestion commerciale 100

Bonjour à tous,

J'ai un petit probleme pour créer un pilote ODBC en VBA pour les programmes SAGE ayant en entré 2 fichiers.

Par ex, pour Gestion commerciale 100 : un fichier .mae et un fichier .gcm
Pareil pour Moyen de paiement 100 et Immobilisations 100 donc.

Pour un fichier (avec Comptabilite 100 par ex) aucun problème, voici mon code (trouvé sur Internet) :

Code: Tout sélectionner

Public Function AddDSNA(FileName As String, Nom_du_DSN As String, Nom_du_Logiciel As String) As Boolean

Dim intRet As Long

Dim strDriver As String
Dim strAttributes As String

'Indique le driver SAGE.
strDriver = Nom_du_Logiciel

'Indique les attributs delimités par le caractère null.
'Indique le nom du DSN ainsi que son chemin d'accès.

strAttributes = strAttributes & "DSN=" & Nom_du_DSN & Chr$(0)
strAttributes = strAttributes & "DBQ=" & FileName & Chr$(0)

intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
strDriver, strAttributes)

AddDSNA = CBool(intRet)

If AddDSNA = True Then
' MsgBox "ok pour dsn access"
Else
MsgBox "Une erreur s'est produite lors de la connexion à la base de données Access. " _
& "Veuillez vérifier si le chemin est correct et retenter une connexion. Si le " _
& "problème persiste, veuillez contacter votre administrateur"
 cheminaccess.Show
End If
End Function


Donc ça sa marche pour un fichier, mais avec 2 fichiers, je ne trouve pas comment prendre en compte le 2eme fichier.

Si quelqu'un pouvait m'aider, sa serait vraiment sympa.

Merci d'avance, bye...

Allez, une petite aide svp, j'en ai vraiment besoin.

En fait c'est dans le DSN que l'on définit les 2 fichiers à utiliser.
Il faut aller dans Panneau de Config / Outils d'Administration / Sources de données ODBC et créer une source de donnée qui utilise le driver Sage.
Bien entendu, il faut avoir le driver Sage ODBC...

Oui, ca je suis d'accord, en le faisant en manuelle c'est simple, mais moi je veux le faire en VBA, je veux savoir les paramètres en VBA, d'ou mon problème.

Dans l'attente (désespéré lol) d'une réponse...

Bye.

Bobdu69 a écrit:Oui, ca je suis d'accord, en le faisant en manuelle c'est simple, mais moi je veux le faire en VBA, je veux savoir les paramètres en VBA, d'ou mon problème.

Dans l'attente (désespéré lol) d'une réponse...

Bye.

Je pense que tu as un bout de réponse dans la doc "kitodbc.pdf" dans l'annexe 6 qui reprend le principe d'une création d'une source de données sous visual basic.
Il s'agit d'une connection par des ADO.

Merci, mais ce n'est pas ce dont j'ai besoin. Dans le document que tu me parle, ils disent comment se connecter/déconnecter de la source ODBC, mais pas comment la créer.

En gros, ce qu'on me demande, c'est de pouvoir créer la source ODBC en VB pour ne pas aller dans panneau de config > source de données (ODBC) > ....

Donc avec un fichier en paramètre, comme pour la Comptabilité 100, j'arrive, le paramètre c'est DBQ=Fichier.mae. C'est avec 2 fichiers que je n'arrive pas, donc pour Gestion commerciale 100, Immobilisations 100 et Moyen de paiement 100, tous ceux avec 2 fichiers en paramètres.

Si quelqu'un sait, qu'il n'hésite pas...

Bye.

Allez une ultime tentative.... svp

Bah, tu peux toujours aller travailler dans la Base de registre !

Il suffit de mettre à jour la(les) clé(s) ODBC de la Base de registre qui contient(nnent) le chemin vers les Fichier de Compta, Gescom, etc.

C'est le principe même des DSN ODBC !

Non mais personne ne comprend ma question lol, je veux juste les paramètres pour créer un DSN Gestion commerciale 100 en VB/VBA, c'est inutile d'aller dans la base de registre pour ça.

Inutile pas tant que ça puisque si tu avais été regarder dans la Base de registre comment fonctione une DSN de gestion commerciale, tu te serais rendu compte qu'il te manque un paramètre dans ta fonction SQLConfigDataSource ! (j'insiste, je te conseille vivement d'aller jeter un coup d'oeil )

En gros tu oublies de préciser à la fois le fichier de Gestion Co et de Compta.

Ca doit donner ceci (ou un truc du genre, essayer avec une virgule juste avant le "FILE2" si ça marche pas comme ça, je connais pas du tout la syntaxe de ce genre de fonction, comme je dis, je travaille directement dans la Regitry pour mes applis):

strAttributes = strAttributes & "DSN=" & Nom_du_DSN & Chr$(0)
strAttributes = strAttributes & "DBQ=" & FileNameGescom & Chr$(0)
strAttributes = strAttributes & "FILE2=" & FileNameCompta & Chr$(0)


A plus

Je te remercie grandement mec !! vraiment, c'est exacement ce que je voulais, enfin du moins ca en a l'apparence, je testerai ca et je viendrai dire si ca marche ou pas, ca pourra peut-être servir à quelqu'un d'autre.

Encore merci...

Bye

C'est bon, ca marche nikel !! Merci Merci

De rien !