CONVERTISSEUR DE FICHIERS ACCESS/EXCEL/TEXTE
asem67
Messages postés
145
Date d'inscription
mardi 3 septembre 2002
Statut
Membre
Dernière intervention
24 février 2008
-
16 juin 2005 à 21:08
cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015 - 4 nov. 2009 à 14:41
cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015 - 4 nov. 2009 à 14:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32114-convertisseur-de-fichiers-access-excel-texte
https://codes-sources.commentcamarche.net/source/32114-convertisseur-de-fichiers-access-excel-texte
4 nov. 2009 à 14:41
j'ai utilisé ton code. mais dans la phase ou je veux faire sortir la table de access vers excel j'ai un probleme dans les colonnes nombre et le text dans excel les nombre c du texte alors impossible de faire des sommation par exemple et pour le texte si j'ai dans la base '01' dans excel '1' alors ce n'est pas ce que je veux.
ma question est ce qu'il ya un moyen rapide dans cette partie (CLSFileConvert)ou je pourais modifie tous ça.
merci d'avance.
1 mai 2009 à 13:21
13 sept. 2008 à 14:27
11 août 2008 à 09:21
11 août 2008 à 09:19
Super ton code je l'ai utilisé selon mes besoin, ça marche impeccable merci.
Bon courage.
12 avril 2008 à 22:17
27 mars 2008 à 10:26
Je vais me documenter un peu plus.
Bonne journée
@+
27 mars 2008 à 01:28
non non ce n'est pas du VBA
enfin le code est trés semblable mais les fichiers .frm tu ne pourra pas les ouvrir
je te le répète c'est du visual basic(6)
===>>
"Quelles sont les différences entre VB et VBA ?
Du point de vue du langage lui-même, de sa syntaxe, de sa structure et de ses principes de fonctionnement, on peut dire sans exagérer : il n'y a aucune différence ! Ces deux langages sont la copie conforme l'un de l'autre.
Simplement, VBA est en quelque sorte "interne" aux applications bureautiques de chez Microsoft : donc, un programme VBA pour Access ne tournera que si Access est installé sur la machine. Et on ne pourra exécuter le programme en question qu'en ayant ouvert Access.
Conséquence de cela, en VBA, on manipule, en plus des objets et contrôles vu en VB, les objets particuliers que sont les applications Microsoft en question. Par exemple, un programme VBA sous Excel manipulera des objets WorkSheet (feuille de calcul), des propriétés Cells (les cellules de ces feuilles), etc. Pour programmer convenablement en VBA, il faudra donc apprendre le nom, les propriétés et les méthodes de ces différents objets.
Mais, ce qui est important, je le répète, c'est que la structure du langage est rigoureusement celle du VB. On peut donc dire sans se tromper que passer de VB à VBA, lorsqu'on on maîtrise les principes logiques du langage, ne demande qu'une phase d'apprentissage pas bien méchante."
=>soure:http://www.pise.info/vb/faq.htm
25 mars 2008 à 10:44
Est-ce que tu pourrais m'expliquer la démarche pour compiler car lorsque j'importe mes fichiers dans VBA certains ne peuvent être chargés (.frm par exemple) et je n'arrive donc pas à compiler pour avoir le code source.
Merci encore
Bonne journée
21 mars 2008 à 22:34
il s'ouvre avec visual basic
pour avoir l'EXE il fat compiler
21 mars 2008 à 10:43
est-ce que je suis le seul à ne pas avoir accès au .exe dans le zip?
merci.
25 juin 2007 à 16:38
par contre je viens de decouvrir un petit bug !
apparement tu n'as pas fait le test de l'ajout d'un texte contenant un '
cela pose un probleme a la commande sql ! logique !
j'ai vu que tu avais fais un test sur certains caracteres sur le nom des champs mais pas sur les données que tu vas y incruster !
Bone journée
15 mai 2007 à 13:20
Merci d'avance.
Réponse Pour TechnoMaxi.............
Pour importer un fichier texte en base de donnée c'est assez simple, tu n'a pas necessairement besoin du convertisseur de Yoyo2B.
Je m'explique:
Pour récupérer un fichier texte dans Excel il faut aller dans l'onglet "Données" puis "Données externes --> importer le fichier texte". Tu tombe sur un petit Assistant, y a plus qu'a cocher quelques cases pour indiquer le format de ton fichier txt et le tour est joué!
Sous Access t'as exactement la même fonction dans l'onglet "Fichier" puis "Données externes --> importer". Une fenêtre "Importer" s'ouvre. Sélectionne fichier txt dans la case type de fichier, clique sur ton fichier texte et tu retrouvera le fameux assistant!
Voli, voilou !
Bonne continuation
13 mars 2007 à 17:59
je suis un débutant et je veux convertir un fichier texte en base de donnée, peut me donner une idée sur ce que je doit extraire de ton code pour faire cette fonction.(seulent la fonction de conversion du texte en base access).
Merci.
4 août 2005 à 09:40
si le problème se situe là, ça ne peut venir que du MDAC (Ms Data Access Component). Il est possibl de le télécharger indépendament sur le site de microsoft (tape MDAC en téléchargement).
Est-ce que dans les références de ton projet il y en a une définie sur "manquante" ?
3 août 2005 à 16:18
Private Function EcritBaseAccess() As Boolean
'------------------------------------------'
'--- ECRITURE DE LA BASE DE DONNEES ---'
'------------------------------------------'
On Error GoTo Err_EcritBaseAccess
Dim MyConnection As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim connCat As ADOX.Catalog
à la derniere ligne bloque.
21 juin 2005 à 11:56
mais ça marche aussi avec les version précédente, vu que j'utilise ça que pr créer la base de données.
je vais bientôt rajouter 2-3 nouvelle fonctiopnnalités (essentiellement pouvoir choisir les champs à exporter et pouvoir enregistrer ça dans un fichier de config...)
voilà :)
20 juin 2005 à 21:23
et il faut rajouter MS activX data obj. 2.7
a+
merci et bon dev
20 juin 2005 à 10:30
:)
20 juin 2005 à 09:25
Mais je fais des modifs actuiellement pourt plus avoir à utiliser ces duex références. C trop lourd ...
Je poste et préviens dés que c bon :)
20 juin 2005 à 00:47
MS exel 11.0 obj. par le 9.0
mais probleme pour MS activX data obj. 2.8
le dernier que j'ai c'est 2.7 marche pas avec
voila ou ça deconne:
*************
Private Function EcritBaseAccess() As Boolean
'------------------------------------------'
'--- ECRITURE DE LA BASE DE DONNEES ---'
'------------------------------------------'
On Error GoTo Err_EcritBaseAccess
Dim MyConnection As ADODB.Connection
Dim Rst As ADODB.Recordset
>>>>>>>>>>>>>> ici >>>>>>>>>>>>>>< Dim connCat As ADOX.Catalog
Dim strTmpSQL As String
Dim Fso
Dim NumTable As Integer, NumChamp As Integer
Dim TabRec As Variant, NumRec As Integer
Dim TabValeurs As Variant
Dim NumVal As Integer
Dim stringConnection As String
Set MyConnection = New ADODB.Connection
>>>>>>>> ici >>>>>>>> Set connCat = New ADOX.Catalog
Set Rst = New ADODB.Recordset
'--- si on a demandé à écraser, on crée la base
*****************************
je ne trouve pas ce que c'est ce ADOX.catalog ?????????????????
19 juin 2005 à 14:07
Regarde dans tes références, et la référence vers excel doit être manquante ,g utilisé la raférence vers excel 2003 sur mon ordi de dév, mais sur un autre pc, g eu la même erreur que toi, et g été obligé de changer la référence d'excel...
tu dois quand même mettre la référence vers excel, mais met celle de ta bécane :)
faites toujours gaffe avant de compiler un projet que vous avez téléchargé (ici ou ailleurs), il y a toujours de petits malins qui mettront des petits trucs cachés. Faites toujours un rapide survol du code et des références associées au projet avant de faire F5 :))
voilà ...
happy coding :)
19 juin 2005 à 01:06
et je pense que le MDAC doit etre bon
la plupart de mes dev sont avec les BD
la premiere err on repond OK vb s'ouvre
lors que je lance le prog (F5)j'ai la dexieme err
a la fonction suivant :
**********
'------------------------------------------------------------------------------
'Cette fonction lit dans les fichiers ini
'------------------------------------------------------------------------------
Public Function LectFile(ByVal Key As String, ByVal Section As eSection) As String
Dim retour As Long 'retour de la fonction API : gere ces erreurs
Dim sDefault As String 'Phrase de retour par default
Dim strRetour As String 'la réponse de l'API
Dim sSection As String 'La section du fichier à lire
Dim sFile As String 'Le fichier à lire
sDefault = "Erreur"
' strRetour = String$(gSize, 0) 'SUPER IMPORTANT sinon plante l'API et VB
*********** >>>> ICI >>>> strRetour = Space(gSize)
'Select qui transforme l'enum en string
sSection = TransformeSection(Section)
'Utilisation de l'API
retour = GetPrivateProfileString(sSection, Key, sDefault, strRetour, gSize, App.Path & PathFile)
LectFile = Left(Trim$(strRetour), Len(Trim$(strRetour)) - 1)
End Function
********************
16 juin 2005 à 22:21
t sur xp ?
16 juin 2005 à 21:08
err lors de l'ouverture du projet
" Impossible de créer cette reference : C:\prog file ......\msADOX.dll "
alors qu'il est bien present
et ensuite lors de l'execution err suivante :
" err de compilation: projet ou biblioteque introuvable "
a+