Recherche:

Qui peut croire que tout le monde aura sa chance, et que ce sera l'objectif de l'IA.. d'être l'instrument et non la finalité ?

Sub createTable()
Dim oDb As DAO.Database: Set oDb = CurrentDb
Dim tblClients As DAO.TableDef: Set tbl = oDb.CreateTableDef("tblClients")
Dim fNum As DAO.Field, fName As DAO.Field
...

Soluce trouvée sur Stackoverflow :


Sub createTable()
Dim oDb As DAO.Database: Set oDb = CurrentDb
Dim tblClients As DAO.TableDef: Set tbl = oDb.CreateTableDef("tblClients")
Dim...

Bonjour Domi !

Merci beaucoup pour ce tutoriel très utile !
Pour implémentation dans Excel, on utilise la fonction AddShape.



Sub TraceCodeBarres(strChaine As String)

'voici les...