Je copie des fichiers sur un disque USB pas très rapide comme ceci :
Dim fso As Variant
...
Set fso = CreateObject("Scripting.FileSystemObject")
...
fso.CopyFile TableauFichiers(i).Nom, "F:\"
Cela fonctionne très bien mais pendant la copie Access ne répond plus, quand
on revient à la fenêtre Access on obtient une blancheur assez inquiétante.
Dois-je avertir mes utilisateurs de ne pas paniquer et d'être patients ou y
a-t-il mieux ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
HervéR wrote:
Bonjour,
Bonjour,
Je copie des fichiers sur un disque USB pas très rapide comme ceci : Dim fso As Variant ... Set fso = CreateObject("Scripting.FileSystemObject") ... fso.CopyFile TableauFichiers(i).Nom, "F:"
Cela fonctionne très bien mais pendant la copie Access ne répond plus, quand on revient à la fenêtre Access on obtient une blancheur assez inquiétante. Dois-je avertir mes utilisateurs de ne pas paniquer et d'être patients ou y a-t-il mieux ?
Merci d'avance pour vos suggestions.
S'il s'agit juste d'une copie, passe peut-être plutôt par FileCopy, expression access, tu gagneras peut-être en perf déja : FileCopy "CheminFichierSource", "CheminFichierDestination" Sinon je ne vois pas de solution à ton problème, j'ai le même souci, Access se met même en "pas de réponse" dans la liste des tâches sur les longs traitements. Mets un msgbox à la limite avant, spécifiant que le traitement sera long, qu'ils ne s'inquietent pas et qu'ils ne coupent pas le process.
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
HervéR wrote:
Bonjour,
Bonjour,
Je copie des fichiers sur un disque USB pas très rapide comme ceci :
Dim fso As Variant
...
Set fso = CreateObject("Scripting.FileSystemObject")
...
fso.CopyFile TableauFichiers(i).Nom, "F:"
Cela fonctionne très bien mais pendant la copie Access ne répond
plus, quand on revient à la fenêtre Access on obtient une blancheur
assez inquiétante. Dois-je avertir mes utilisateurs de ne pas
paniquer et d'être patients ou y a-t-il mieux ?
Merci d'avance pour vos suggestions.
S'il s'agit juste d'une copie, passe peut-être plutôt par FileCopy,
expression access, tu gagneras peut-être en perf déja :
FileCopy "CheminFichierSource", "CheminFichierDestination"
Sinon je ne vois pas de solution à ton problème, j'ai le même souci, Access
se met même en "pas de réponse" dans la liste des tâches sur les longs
traitements.
Mets un msgbox à la limite avant, spécifiant que le traitement sera long,
qu'ils ne s'inquietent pas et qu'ils ne coupent pas le process.
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je copie des fichiers sur un disque USB pas très rapide comme ceci : Dim fso As Variant ... Set fso = CreateObject("Scripting.FileSystemObject") ... fso.CopyFile TableauFichiers(i).Nom, "F:"
Cela fonctionne très bien mais pendant la copie Access ne répond plus, quand on revient à la fenêtre Access on obtient une blancheur assez inquiétante. Dois-je avertir mes utilisateurs de ne pas paniquer et d'être patients ou y a-t-il mieux ?
Merci d'avance pour vos suggestions.
S'il s'agit juste d'une copie, passe peut-être plutôt par FileCopy, expression access, tu gagneras peut-être en perf déja : FileCopy "CheminFichierSource", "CheminFichierDestination" Sinon je ne vois pas de solution à ton problème, j'ai le même souci, Access se met même en "pas de réponse" dans la liste des tâches sur les longs traitements. Mets un msgbox à la limite avant, spécifiant que le traitement sera long, qu'ils ne s'inquietent pas et qu'ils ne coupent pas le process.
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
