[VBA excel] Choisir le repertoire d'acces

Version imprimable

J'ai créer une maccro qui me permet d'allez dans un repertoire et de prendre certain fichiers
Code:

1 2 3 4 5 6 7 8 Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\" fic = Dir(Chemin & "A200_PROD_4_LOT*.xls") Do Until fic = "" Set CL1 = Workbooks.Open(Chemin & fic) DoEvents Set fl = CL1.Worksheets("2") Set FL2 = Workbooks("Archive-A200.xls").Sheets("Production")
en rouge c'est le repertoire qui est fixe

je voudrais le faire de maniere dynamique c'est a dire que sur mon fichier excel quand je clique sur un bouton une fenetre apparait et me permet de choisir un repertoire sur mon réseau (un peu comme ouvrir un fichier ou je veux)

mais je ne sait pas comment m'y prendre et j'ai fait des recherches mais sans succes

si vous aviez un conseil ou un coup de main a me passer faites le svp

je vous en remercie d'avance

Bonjour

Voici une fonction générique qui permet cela. Elle renvoie le nom du fichier choisi dans la boite de dialogue.
Code:

1 2 3 4 5 6 7 8 9 10 Function getNomFichier() As String Dim Reponse As String With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .Show If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1) End With getNomFichier = Reponse End Function
Fais une recherche avec FileDialog sur DVP ou dans l'aide en ligne pour aborder les paramètres (filtres, dossier par défaut,...)...

Ok?

31/10/2007, 15h06
Thomas69

je n'arrive pas a tester ton code
je ne sait pas comment le mettre en place tu peux me faire voir stp
31/10/2007, 15h09
ouskel'n'or

Citation:

Envoyé par Pierre Fauconnier

Fais une recherche avec FileDialog sur DVP ou dans l'aide en ligne pour aborder les paramètres (filtres, dossier par défaut,...)...
Ok?

:f1: sur filedialog donne un exemple où il n'y a rien à changer ;)
31/10/2007, 15h10
Pierre Fauconnier

Il s'agit d'une fonction.

Tu dois donc la placer dans un module standard. Après quoi, tu l'utilises dans ton code, comme un fonction VB classique.

Dans ton cas, tu vas sûrement placer cela dans un userform et appeler la fonction par clic sur un bouton, par exemple.

Mes explications te permettent d'avancer?

ouskeln'or
je te rassure je suis allez voir sur le DVP comme m'as dit pierre

et j'ai trouver ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub toto() Dim oFd As FileDialog 'Instancie une boite de dialogue de sélection de répertoire Set oFd = Application.FileDialog(msoFileDialogFolderPicker) With oFd 'Change le titre de la fenêtre .Title = "Sélectionnez un répertoire" 'Répertoire par défaut .InitialFileName = "c:\" 'Affiche la boite de dialogue If .Show Then MsgBox (.SelectedItems(1)) End With End Sub
et le nom du repertoire apparait dans une message box
ce que je voudrais c'est que ce nom la remplace le nom qu'y a dans ma maccro en rouge
et je ne sait pas comment le mettre en variable voila surtout qu'ai plusieurs modules qui contient ce meme nom de repertoire je voudrais le changer dans tous les modules par une variable commune a tous les modules

desoler j'ai du mal m'exprime au debut

31/10/2007, 15h22
Pierre Fauconnier
Place le code que je t'ai donné dans un module standard.

Puis dans ton code, remplace
Code:

1 2 Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
par
Code:

1 2 Chemin = getNomFichier()
Idéalement, tu dois tester si chemin est une chaine vide, mais place déjà le code comme je te le propose et dis-nous si cela fonctionne.

On aoutera la sécurité par la suite, en fonction des besoins.

Ok?

en fesant ce que tu me dis je dois ouvrir le fichier lui meme et non pas un repertoire

voici le code que j'ai mis

Code:

1
2
3
4
5
6
7
8
Sub getNomFichier()
    Dim Reponse As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1)
    End With
End Sub

car en ecrivant ton code

Code:

1
2
3
4
5
6
7
8
9
Sub getNomFichier()
    Dim Reponse As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1)
    End With
    getNomFichier = Reponse
End Sub

et en fesant ta modif

j'ai le message d'erreur

"fonction ou variable attendue"
en mettant en surbrillant "getNomFichier = Reponse"

Désolé. J'avais cru comprendre que tu souhaitais choisir le fichier.

Pour choisir un dossier, voici une fonction similaire, mutatis mutandi.

Code:

1
2
3
4
5
6
7
8
9
 
Function getNomDossier() As String
    Dim Reponse As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1)
    End With
    getNomDossier = Reponse
End Function

Ok?

31/10/2007, 16h20
Thomas69

pierre j'ai tester ta solution

donc pour l'acces au repertoire ca marche et quand je fais une mise a jour par une autre macro pour l'acces ca ne marche pas

Code:

Chemin = getNomDossier()

fonction ou variable attendue

je pense que quand je lance la mise a jour
pour lui il ne retient pas le chemin que je suis allez chercher avant

j'ai une solution ca serait de recopier mon chemin dans une cellule au lieu d'une message box et que le chemin il aille le cherche dans une cellule qui ne seras jamais toucher

qu'est ce que tu en penses?
31/10/2007, 16h35
Pierre Fauconnier
Je n'ai pas compris ceci

Citation:

Envoyé par Thomas69

...
donc pour l'acces au repertoire ca marche et quand je fais une mise a jour par une autre macro pour l'acces ca ne marche pas

ni ceci

Citation:

je pense que quand je lance la mise a jour

Ma fonction ne fait qu'ouvrir la boite de sélection du dossier et renvoyer le nom du dossier sélectionné, ou une chaine vide si fermeture de la boite via Annuler. Elle ne fait rien d'autre.

Lorsque tu parles de mise à jour, il faudrait être plus explicite.

Mais bien évidemment, ce nom de dossier doit être stocké quelque part si tu veux t'en servir par la suite.

Le stocker dans une cellule nommée (c'est plus facile) est une bonne chose. Tu peux nommer cette cellule NomDossier par exemple.

Ainsi, lorsque tu veux changer le dossier, tu utilises le code

Code:

[NomDossier] = getNomDossier()

Remarque les [] qui encadrent NomDossier à gauche du signe = pour signaler que tu affectes à la cellule nommée NomDossier la valeur renvoyée par la fonction.

Et lorsque tu veux utiliser le nom du dossier quelque part dans ton code, tu fais appel à la cellule NomDossier, comme dans ton code modifié
Code:

1 2 fic = Dir([NomDossier] & "\A200_PROD_4_LOT*.xls")
!! Ne pas oublier le \ avant le nom du fichier, car il n'est pas renvoyé par la fonction telle que je l'ai écrite

Est-ce clair?
31/10/2007, 16h40
Thomas69

aussi claire que de l'eau de roche

je te remercie pour ton aide et tes explications

je vais tester et te dire ce qu'il se passe
31/10/2007, 16h47
Thomas69

une derniere question comment je fais pour inscrire le repertoire dans la cellule [NomDossier]

car je sait le faire apparaitre en Msgbox avec un code au-dessus mais pas l'inscrire dans une cellule

je t'en remercie d'avance
31/10/2007, 16h52
Pierre Fauconnier

Citation:

Envoyé par Pierre Fauconnier

Le stocker dans une cellule nommée (c'est plus facile) est une bonne chose. Tu peux nommer cette cellule NomDossier par exemple.

Ainsi, lorsque tu veux changer le dossier, tu utilises le code

Code:

[NomDossier] = getNomDossier()

Remarque les [] qui encadrent NomDossier à gauche du signe = pour signaler que tu affectes à la cellule nommée NomDossier la valeur renvoyée par la fonction.

Apparemment, ce n'était pas clair... Je ne vois pourtant pas comment le dire autrement...:(

Code:

[NomDossier] = getNomDossier()

ben quand je mets cette ligne dans le code
Code:

1 2 3 4 5 6 7 8 Sub getNomDossier() Dim Reponse As String With Application.FileDialog(msoFileDialogFolderPicker) .Show If .SelectedItems.Count = 1 Then Reponse = .SelectedItems(1) End With [NomDossier] = getNomDossier() End Sub
ca me mets la ligne [NomDossier] = getNomDossier()

en surbrillant et ca m'indique "fonction ou variable attendue"

donc rien ne se recopie dans ma cellule

et si je l'enleve que je la mets dans le code ou se trouve le code pour mes acceder a la mise a jour ben ca me mets la meme chose

ma mise a jour est une macro qui va dans plusieurs fichiers recopier des cellules qui ont été mis a jour rien de bien compliqué

je ne vois pas trop comment faire
merci tout de meme pour toute l'aide que tu m'as fournis

31/10/2007, 17h24
Pierre Fauconnier
Pas de problème pour l'aide fournie... Si je ne voulais pas, je n'aurais pas... ;)

Tu sembles ne pas être trop familier avec le code vba (sans moquerie aucune)

On va reprendre pas à pas.
Il ne faut pas modifier la fonction getNomDossier que je t'ai fournie.
C'est une formule générique que tu places dans un module standard, et que tu peux appeler par la suite de différents endroits de ton code.

Ce que j'ai proposé, c'est une solution que tu dois adapter à ta situation.

Tu veux remplacer le chemin en dur par un chemin paramétrable. La proposition consiste donc:

1. à nommer, dans Excel, une cellule (dans une feuille réservée aux paramètres de ton application) en lui attribuant un nom, par exemple NomDossier (Sais-tu comment faire?)
2. A supprimer ton code
Code:

1 2 Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
car tu n'en as plus besoin
3. A placer dans la cellule nommée NomDossier ... le nom du dossier. Fais-le à la main, dans un premier temps...
4. A remplacer le code
Code:

1 2 fic = Dir(Chemin & "A200_PROD_4_LOT*.xls")
par

Code:

fic = dir([NomDossier] & "\A200_PROD_4_LOT*.xls")

Si, après, tu veux donner à un utilisateur la possibilité de modifier le chemin, soit tu lui donnes accès à la cellule nommée NomDossier, et il saisit en dur le nom du dossier dans la cellule, soit tu mets en place un petit code (boite de dialogue, macro évènementielle, ...) et à l'intérieur de ce code, tu utilises ma fonction telle quelle, pour affecter à la cellule nommée NomDossier la valeur retournée par la fonction getNomDossier
Code:

1 2 [NomDossier] = getNomDossier()
05/11/2007, 09h01
Thomas69

C'est bon ca marche j'ai enfin compris pourquoi ca ne marchait pas

une erreur de code

[NomDossier] = getNomDossier()

cette ligne me posait probleme dans la macro quand je la lancais donc je l'es supprimer et maintenant tout marche correctement à 1er vue

je te remercie pour toute l'aide fournie

PS: oui je suis newbie en VBA ca doit etre mon 4eme prog que je viens de faire avec beaucoup d'aide