Problème de fonctionnement de la référence filesystemobject sous excel 2007
Bonjour à tous,
Je rencontre un problème depuis peu car je n'arrive plus à copier des fichiers Excel avec la méthode CreateObject("Scripting.FileSystemObject"). J'ai vérifié que la référence Microsoft Scripting Runtime était bien cochée dans les références de bibliothèques à utiliser, mais rien à faire !! J'utilise Excel 2007. La ligne de code où j'indique la copie est inactive et ceci depuis peu car le programme tournait bien il y a encore quelques jours. Je n'arrive pas à savoir quel paramètre a changé...Peut-être s'agit-t-il d'un programme de surveillance en arrière-plan (type inspecteur de document ou autre) qui a bloqué cette fonctionnalité.
Code:
1
2
3
4
| Dim GestionFichier As Object
Set GestionFichier = CreateObject("Scripting.FileSystemObject")
newFichier(ct2) = cheminCible & NomFichier & extent 'chaine créant le chemin complet de la copie
GestionFichier.CopyFile fichMasque, newFichier(ct2) |
ou fichMasque est le chemin complet du fichier à copier et newFichier() est le chemin complet de la copie (enregistré sous forme de tableau)
Si je mets une valeur espion pour GestionFichier, voici ce que j'ai :
Available Space : <Erreur définie par l'application ou par l'objet>
Drive lettre : A
Drivetype : removable
.../...
Si vous avez des idées sur la question, je vous remercie de bien vouloir m'aider à comprendre ce qui ne fonctionne plus.
