Discussion :

[Invité]

bonsoir à tous,
j'utilise pour importer des tables cette commande qui fonctionne bien :

Code :

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

DoCmd.TransferDatabase acImport, "Microsoft Access", "h:\MaBase.mdb", acTable, "MaTable", "MaTable"

à un détail près, c'est que si la base est un fichier caché pour eviter une suppression accidentelle, la commande ne trouve pas la base... quelqu'un saurait-il comment remedier à ce probleme ?
merci d'avance.

[ClaudeLELOUP]

Je n'ai peut-être pas compris le problème.
Je viens de tester. Chez moi, l'import fonctionne que la Source.mdb soit cachée ou non.
Toutefois, si le problème provient de l'attribut "caché" du fichier, on pourrait résoudre comme ceci:
-d'abord rendre le fichier visible
-les instructions souhaitées
-rétablir l'attribut original du fichier.
Par exemple, comme ceci :

Code :

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

1
2
3
4
5
6
7
Dim AttributOriginal, ObjFSO, objFile
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = ObjFSO.GetFile(CheminFichier)
AttributOriginal = objFile.Attributes 'mémoriser l'attribut actuel (sans doute 34)
objFile.Attributes = 32 '= visible
DoCmd.TransferDatabase acImport, "Microsoft Access", CheminFichier, acTable, "table1", "table1"
objFile.Attributes = AttributOriginal 'rétablir en l'état original

NB : si ce n'est déjà fait, il faut ajouter la référence
Microsoft Scripting Runtime
(Module/outils/Références... et cocher cette référence)

[Invité]

merci m'sieur,
mille excuses, le probleme ne venait pas de l'attribut "caché"....
j'ai donc résolu moi même.
Néanmoins ton bout de code m'interresse et le garde sous le coude pour l'étudier et l'utiliser plus tard... j'ai deja une idee derriere la tete.