Discussion :

[_developpeur_]

bonjour , actuellement dans ma macro vba excel j'ouvre des fichiers csv que je copie dans mon classeur excel avec :

Code :

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

1
2
3
Workbooks.OpenText Filename:=nom_complet, Origin:=xlWindows, _
            StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=True, Comma:=True, Space:=False, Other:=False

pour l'instant ça marche. mais on me demande d'étudier la faisabilité technique d'ouvrir ces fichiers qui sont dans un repertoire protégé. Est-ce réalisable avec ce que j'ai fait ou dois-procéder autrement?J'ai parcouru toutes les options de

Code :

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

OpenText

et j'en ai trouvé aucune du genre mot de passe donc je doute que ce soit possible. qu'en dites-vous ?

[_developpeur_]

a priori il y a

Code :

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

worbooks.open

qui contient une option password mais est-ce que je peux ouvrir un fichier csv ou ca permet juste l'ouverture d'un fichier xls.
Et le password c'est pour un password du fichier ou du repertoire ?

merci beaucoup

[EDIT]
désolé j'ai confondu repertoire et fichier je suis confus. bien sûr on n'a pas de mot de passe sur un répertoire juste un accès ou pas.

Donc je reformule ma question, est-ce possible avec ce code d'ouvrir un fichier csv sur un répertoire partagé ?

[_developpeur_]

bon j'ai réussi a ouvrir un fichier sur un répertoire partagé sur lequel j'ai les droits en lecture.

et ça tombe en erreur sur un répertoire dont je n'ai pas les droits >> normal.

Maintenant, j'ai une autre question, comment gérer cette erreur ?

En fait dans ce cas, je voudrais afficher à l'utilisateur un message précis "Vous n'avez pas les droits sur ce répertoire".

Est-ce que je peux tester le numéro de l'erreur ?

Merci

[CODYCO]

Bonjour

Perso je ne peux pas t'aider sur ce poins mais je serais par contre preneur de qq info sur ton code qui ouvre fichier csv... ouvre t il vraiment le fichier ou fait il une copie sans l'ouvrir, si il l'ouvre tes fichiers sont ils lour ou pas et le temps d'éxé est il long

J'ai un code similaire mais je cherche actuellement à réduire le temps d'éxé...

Pour ton blem dois tu vraiment tester l'erreur ne peux tu pas simplement utilisé OnError go to
...

[_developpeur_]

Bonjour CODYCO,

en effet ce code ouvre le fichier csv et ensuite je copie/colle le contenu dans un onglet excel.

Au niveau du temps d'exécution ce n'est pas long mais les fichiers ne contiennent pas beaucoup de données.

Pour mon problème, je dois en effet gérer le on error goto mais je voudrais afficher un message spécifique quand j'ai l'erreur à cause des droits d'accès pour que l'utilisateur soit au courant qu'il n'a pas de droit de lecture sur le répertoire sélectionné.

et le soucis c'est qu'on peut je pense avoir d'autres type d'erreur à l'ouverture du fichier non ?

[CODYCO]

je peux te renvoyer vers ce lien que je consulte parfois il liste tous les types d'erreur à voire égallement sur le site vindows

http://msdn.microsoft.com/fr-fr/libr...(v=VS.90).aspx

Pour les erreurs à l'ouverture étant donné que c'est l'utilisateur qui choisis son fichier hormis un probleme de droit ca limite pas mal.

Pour mon probleme mes fichiers contiennent beaucoup de données je vais continué à chercher par ADO DAO.

[fring]

Pour mon problème, je dois en effet gérer le on error goto mais je voudrais afficher un message spécifique quand j'ai l'erreur à cause des droits d'accès pour que l'utilisateur soit au courant qu'il n'a pas de droit de lecture sur le répertoire sélectionné.

Bonjour,

Quelque chose de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'juste avant l'ouverture du fichier
On Error GoTo errmess
'ouverture du fichier
'le reste du code
'...
'...
'...
 
Exit Sub
errmess:
MsgBox "Le Message"
 
End Sub

Pour plus d'info sur les gestions d'erreurs, voir là --> http://silkyroad.developpez.com/VBA/GestionErreurs/