Discussion :

[Thomas69]

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

Code :

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

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

[Pierre Fauconnier]

Bonjour

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

Code :

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

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?

[Thomas69]

je n'arrive pas a tester ton code
je ne sait pas comment le mettre en place tu peux me faire voir stp

[ouskel'n'or]

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

sur filedialog donne un exemple où il n'y a rien à changer

[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?

[Thomas69]

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


et j'ai trouver ce code

Code :

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

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

[Pierre Fauconnier]

Place le code que je t'ai donné dans un module standard.

Puis dans ton code, remplace

Code :

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

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

par

Code :

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

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?

[Thomas69]

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 :

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

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 :

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

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"

[Pierre Fauconnier]

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

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

Code :

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

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?

[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 :

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

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?

[Pierre Fauconnier]

Je n'ai pas compris ceci

...
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

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 :

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

[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 :

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

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?

[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

[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

[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 :

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

[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...

[Thomas69]

Code :

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

[NomDossier] = getNomDossier()

ben quand je mets cette ligne dans le code

Code :

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

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

[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 :

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

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 :

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

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

par

Code :

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

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 :

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

1
2
 
[NomDossier] = getNomDossier()

[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