Discussion :

[niko8181]

Bonjour,
je souhaite importer ou lier dans ma base des fichiers d'extension .cos, .med ou .dat, ces derniers étant en fait toujours du format CSV.
Je ne peux pas renommer les fichiers.
J'ai testé la manipulation de la base de registre qui fonctionnait sur ACCESS 2000 :

Code :

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

1
2
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text]
"DisabledExtensions"="!txt,csv,tab,asc,tmp,htm,html,cos,med,dat"

Mais en vain.
J'ai toujours le message " Mise à jour impossible la base de données ou l'objet est en lecture seule" sur une attache existante ou bien "Vous ne pouvez importer un fichier texte que si il a une des extensions suivantes : txt, csv etc ..." si je veux en créer une nouvelle.

je m'adresse donc à vous en dernier recours, merci pour votre aide !

PS : je suis sur windows 7

[chrtophe]

J'ai 1 idée pour ton prob.

Tu ne peux pas renommer ton fichier, par contre tu peux en faire une copie avec la bonne extension.

Sous acces tu peux faire 1 truc genre Call Shell("filecopy.bat fichier",1)

dans le fichier . bat tu fait la commande de copie avec .csv en extension ( exemple si t'es pas à l'aise avec cmd : copy %1.* %1.csv )

De là tu importe tes données à partir du fichier csv puis il te reste à supprimer le fichier ayant servi à l'import. Si tu peux pas copier le fichier au même endroit que le fichier source,tu peux le copier dans le dossier tmp par exemple.

Il y a peut être mieux et ça doit être améliorable. C'est déjà mieux que de modifier la base de registre.

En espérant t'avoir aidé.

[Invité]

Bonjour

La solution est de modifier l'extension.

Voici une petite routine que j'utilise dans un de mes programmes, qui me permet de modifier l'extension .dat en .txt pour ensuite incorporer mes fichiers.

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
18
19
20
21
22
23
24
25
26
27
 
Public Sub ModifExtension()
    ' modification des extensions
    ' on parcours la liste des fichiers pour modifier les .DAT en .txt
 
    Forms("frm_Main").Controls("txtProcessus").Value = Forms("frm_Main").Controls("txtProcessus").Value & vbCrLf & "Modification de l'extension des fichiers en cours .."
    DoEvents
 
    ' déclaration
    Dim objFso As FileSystemObject
    Dim objFolder As Folder
    Dim objFile As File
    Dim tabFichier() As String
 
    ' affectation
    Set objFso = New FileSystemObject
    Set objFolder = objFso.GetFolder(strPath)
 
    ' parcours des fichiers
    For Each objFile In objFolder.Files
        tabFichier = Split(objFile.Name, ".")
        If tabFichier(1) = "DAT" Then
            objFile.Name = tabFichier(0) & ".txt"
        End If
    Next objFile
 
End Sub

Ce programme est utilisé tous les jours.

Philippe

[niko8181]

Bonjour,
Dans mon cas je ne peux pas renommer les fichiers.
Je vais donc devoir faire une copie de fichiers, puis renommer cette copie...
C'est bien la seule solution ?
Pas d'autre manip de contournement comme sur Access 2000 ?