bonjour , pour les besoin d une application je dois a un moment exporter un fichier exel sur le réseau lorsque celui-ci est disponiblesi non il ne fais pas l'export..(possibilité de travailler a la maison)
j'ai réaliser l application en utilisant un chemin local. aucun probleme
mais lorsque je met le chemin distant (réseau)
il me donne une erreur . l' erreur est due au fait que pour accéder au réseau il faut se connecter avec un alias bien précis et un mot de passe
voici le code que j'utilise:
ce que je souhaiterait c' est que au lieu de me dire qu' il y a une erreur (= réseau indisponible ou accès réseau interdit ) ne pas effectuer le code et passer direct a la suite.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 chemin = "C:\BASE ACCESS\update\" 'chemin = "\\nbelea88\PROJECTS\TEI_Suivi_Projets_LTH_PERMANENT\update\" fichierxls = "Projets.xls" Update = chemin & fichierxls If Dir(chemin, vbDirectory) <> "" Then 'On test si le chemin necessaire a la mise a jour existe 'si oui '# Export du fichier de mise à jour # DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9, "PROJETS",Update, True End If
Partager