Discussion :

[Dolchan]

Bonjour,

Après avoir réussi à créer une macro avec l'aide de jfontaine, je me suis rendu compte que tous les tests ont été fait sur un PC avec le fichier en question et la macro en local aussi.
Cependant, les fichiers qui doivent être ouverts se trouvent en réalité sur le réseau et chaque mois ce fichier sera mis avec le même nom mais dans un répertoire différent (par nom du mois). Lorsque je clique sur un de ces fichiers (sur le réseau), je reçois un message d'erreur, bien évidement, de type 1004 ou Excel n'est pas autorisé à accéder à ce répertoire...
La question est donc quelle est la commande à utiliser lorsque la macros est sur le PC et le document dans un répertoire sur le réseau?
Merci.

[Daniel.C]

Bonjour,

Peut-être en adaptant ce code :

Code :

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

1
2
3
    Dim Mois As String
    Mois = Format(Date, "mmmm") & "\"
    Workbooks.Open "\\Nom_Serveur\Nom_Partage\" & Mois & "fichier.xls"

en remplaçant "Nom_Serveur" et "Nom_Partage" par leur valeur. Le nom du répertoire sera celui du mois en cours.

[Dolchan]

Daniel bonjour,

Merci de la réponse rapide.

J’essayais. Le problème se présente au niveau la ligne suivante:

Code :

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

Workbooks.Open "\\Nom_Serveur\Nom_Partage\" & Mois & "fichier.xls"

La partie "& Mois" va chercher le mois en cours et non pas un répertoire avec le nom d'un mois. Sur ceux, le fichier se trouve sur différents mois de l'année et il doit pouvoir être consulté. En principe donc le nom du fichier va changer.
Mais alors, il faudrait comme savoir qu'il s'agit d'un fichier csv avec "," qui est transformé en ";" avec une macro comme suit:

Code :

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

1
2
'Ouvre le fichier CSV avec virgule
Application.Workbooks.OpenText Filename:="C:\tmp\nomdufichier.csv", Comma:=True

j'ai changé les deux lignes que tu propose au début et le chemin à partir de "C:\..."

Une idée?

Merci.

[Daniel.C]

Je n'arrive pas à comprendre ce que tu veux. Peux-tu donner un exemple ?

[Dolchan]

Daniel,

Espère pouvoir être plus clair cette fois-ci.

hier j'ai créé une macros comme suit car j'avais des fichiers en .csv qui sont en "," et qui doivent passer en ";" pour être lus ici en France.:

Code :

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

1
2
3
4
5
6
'Ouvre le fichier CSV avec virgule
Application.Workbooks.OpenText Filename:="C:\tmp\nomdufichier.csv", Comma:=True
'Enregistre au format CSV avec séparateur system
'ActiveWorkbook.SaveAs Filename:="C:\tmp\ownerByPeriod.csv", 'FileFormat:=xlCSV, local :=True
'Ferme le classeur
'ActiveWorkbook.Close False

(La seule ligne active c'est la deuxième. Pour les autres il y a un apostrophe qui annule la ligne).
Les tests ont été fait en local sur un PC mais le fichier .csv sera sur un répertoire partagé sur le réseau. Le nom du répertoire où se trouve ce fichier .csv porte les noms des mois de l'année .
La solution que tu as proposé va chercher un dossier par rapport le mois en cours et ce dont j'ai besoin c'est que la macros puisse lire un document .csv qui va se trouver dans différents dossiers du même partage (finalement peut importe le nom du dossier, je crois que c'est là que j'ai créé la confusion).
Voici le chemin qui sera utilisé de base:

\\nomserveur\data\service\mes documents\nomdudossier (cest celui-ci qui change)\nomdufichier.csv

Le fichier .xlsm avec la macros va se trouver sur un ou deux PC du réseau.

N'hésite à me relancer si ce n'est pas clair.

Merci.

[Daniel.C]

Les lignes :

Code :

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

1
2
fich = Application.GetOpenFilename("csv Files (*.csv), *.csv")
if fich<>false then Workbooks.OpenText Filename:=fich, Comma:=True

te permettront de choisir le dossier voulu.

[Dolchan]

Daniel bonjour,

tout d'abord, désolé pour revenir aussi tard, mais hier je n'étais pas disponible.
En deuxième, merci, on s'approche:

Si je laisse le lignes que tu as proposé tel quelles, et j'aoute uniquement *.csv après Filename (exemple ci-dessous):

Code :

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

1
2
fich = Application.GetOpenFilename("csv Files (*.csv), *.csv")
if fich<>false then Workbooks.OpenText Filename:=*.csv, Comma:=True

il se passe la chose suivante:
Celle-ci est la démarche que je fais pour ouvrir le fichier voulut:
1. je vais sur le dossier mes documents qui pointe sur le réseau.
2. je cherche le fichier à ouvrir et il s'ouvre avec le mauvais format, c'est dire en ",".
3. je clique ensuite sur la macros et une fenêtre de Windows (ouvrir) avec le contenu du dossier mes documents (en Win7) me laisse encore une fois aller chercher le document que je vais ouvrir.
4. Quand je clique sur le document, il s'ouvre correctement, c'est à dire avec le ";".

qu'est-ce que je ne renseigne pas correctement?
Par contre, cette démarche me permet d'ouvrir tout type de fichier csv qui se trouve dans le réseau... ce qui est déjà bien! mais je voudrais éviter la fenêtre d'"Ouvrir" qui redouble ma démarche d'ouverture du fichier. Suis-je assez clair?
D'ailleurs, j’essaie de mettre le chemin réseau entre les deux flèches (<>), mais la macros m'indique qu'il y a une erreur sur la ligne.

Merci de nouveau.

[Daniel.C]

Pourquoi est-ce que tu as modifié cette ligne ?

Code :

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

if fich<>false then Workbooks.OpenText Filename:=fich, Comma:=True

[Dolchan]

Comme expliqué sur mon dernier post, le chemin d'ouverture du fichier est trop long. Après test j'ai remis la ligne d'origine.

[telise]

bonjour,

je cherche à avoir un macro ou une requête pour chercher un dossier X qui existe dans des dossiers et sous dossiers et le tout dans un seul répertoire (une adresse h:... )
mon souhait si possible est d'avoir un macro qui me pose la question :
- tapez le nom du dossier
- je donne le nom et je valide
il va chercher dans ce répertoire h: ( qui existe sur réseau et non sur le c
- résulta : le lien du dossier

c'est galère pour trouver un dossier et je perds beaucoup de temps à chercher et je n'arrive pas à indexer le répertoire avec windows

merci pour votre aide

[Invité]

Bonjour,
Un fichier Csv avec une virgule comme séparateur d champs,c'est le format américain, et vue qu'il faut faut bricoler la base de registres pour le remplacer par un point-virgule! Autant dire que la virgule est l séparateur par défaut!

Code :

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

1
2
3
4
5
6
7
Sub test()
With CreateObject("ADODB.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyRepertoire;Extended Properties=""Text;HDR=No;FMT=Delimited;"""
    txt =.Execute("select * from [Fichier#Csv]").GetString(, , ";", vbCrLf)
    .Close
End With
End Sub

*txt va contenir ton Csv avec ; comme séparateur!
*