Accéder à un répertoire à partir de .GetOpenFilename

Résolu

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention -
celine - 29 déc. 2015 à 22:20

Bonjour,

Je travaille sur un fichier dont certaines feuilles doivent être mise à jour à partir d'autre fichier. Un de ces fichiers est situé sur un autre répertoire réseau et porte un nom différent exemple Ditri 689, 690, 670... ainsi de suite. Il est actualisé deux à trois fois par semaine.

Au début j'ai voulu trouver le moyen de repérer le dernier fichier modifier du répertoire. Dommage, je n'ai rien trouvé qui me convienne car le répertoire ne contient pas que ce fichier...

Récemment, j'ai découvert le code application.GetOpenFilename("Fichier Excel (*.xls),*.xls") e j'ai aimé car je peux faire ceci : Distri=application.GetOpenFilename("Fichier Excel (*.xls),*.xls") Distri étant une variable string qui pourra me servir plus loin dans le traitement de ma macro.

Mon souci: ce code démarre la "fonction" OUVRIR d'excel pour ouvrir un fichier excel. Mais la fenêtre qui s'ouvre est par défaut soit le dernier répertoire qu'on a ouvert dans Excel soit Mes Documents ou un truc dans le genre. Ma question: comment pus-je faire pour que la fenêtre s'ouvre directement sur le chemin d'accès réseau qui m'intéresse pour y sélectionner le fichier recherché qui sera appelé plus tard dans ma macro ?

Merci d'avance de votre aide.

A voir également:

3 réponses

Réponse 1 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Essaies cette fonction

Function recherchedossier()
' @+thierry_xld et michel_m
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String
Dim Chemin As String
    
Message = "Faire la Sélection du Repertoire de sauvegarde:"

Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)
    
    On Error Resume Next 'Si on sort sans sélection
    Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & "\"
    If Chemin = "" Then End
    recherchedossier = Chemin
End Function

et pour rendre le dossier actif
chdir chemin

Michel

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Salut Michel,
Un bug sur les balises codes nous empêche de placer : "\"
Par conséquent, lorsque tu places un "\" entre les balises code comme tu l'as fait, pour qu'il apparaisse à la lecture, il faut que tu le double : "\\"

Essai 1 : "" donne

""

EDIT : oh ben là il est même pas passé en dehors des balises code...

Essai 2 : "\\" donne

"\"

C'est embêtant car quand il n'apparait pas, le code sort avec une erreur "le fichier n'existe ^pas" blablabla...
Voilà
A+

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention 4

Bonjour,

ta proposition ne me convient pas Michel. Je pensais qu'on pouvais cibler le répertoire dans lequel l'ouverture du fichier se ferait... là tu me donnes une autre façon d'ouvrir un dossier ce que mon code de départ fait déjà. Mon but c'est d'éviter la personne qui lance ma macro de devoir rechercher l'accès réseau vers lequel on doit sélectionner le fichier qui nous intéresse. Ou alors je n'ai pas compris ton idée.

Une idée svp?

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Merci pour le temps passé

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention 4

Désolé Michel. Merci en effet pour ta proposition, désolé que ma réponse ait eu l'impression de dénigrer ta proposition. En fait ce n'est pas tout à fait ce que je recherchais. Mais merci beaucoup en effet pour avoir réfléchi à mon problème. :)

Très Cdt,

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

En même temps, Michel avait donné la réponse :
et pour rendre le dossier actif
chdir chemin

Autrement dit, appliqué à ton cas :

ChDir "X:\Monrepertoire\Choisi\ParDefaut"
Distri=application.GetOpenFilename("Fichier Excel (*.xls),*.xls")

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention 4

Merci pour le complément Franck. Encore une fois désolé Michel. Je pense plutôt que je n'avais pas compris sa proposition. Par contre, maintenant que j'ai compris, en l'appliquant à mon code, l'ouverture ne se fait toujours pas sur le dossier que je choisi. Est-ce normal ? Ou je m'y prends mal... Merci du coup de main.

Sub lancement_MAJ_regions()
' Macro updated le 05/04/2014 par JMDILOU



If MsgBox("Voulez-vous mettre à jour les VN ?", vbYesNo, "Confirmer") = vbYes Then

    VN = "YES"

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .DisplayAlerts = False
            
        recherchedossier
        
        ChDir Chemin
        
        Distrimax = .GetOpenFilename("Fichier Excel (*.xls),*.xls")
        
        Distrimax = CreateObject("Scripting.FileSystemObject").GetBaseName(.GetOpenFilename("Fichier Excel (*.xls),*.xls"))
         
    End With
End If 
end sub

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

C'est ta macro ça?

Parce que si tu n'y a rien enlevé, il manque des trucs...
C'est quoi

recherchedossier

Chemin

contient quoi?

En cas de réseau, je crois me souvenir qu'il faut également changer le disque :
ChDrive "X" un truc comme ça... X est le nom de ton lecteur réseau (comme C: ou D:...)

Donc ça donnerai :

ChDrive "X" ' A VERIFIER LA SYNTAXE...
ChDir Chemin
Distrimax = .GetOpenFilename("Fichier Excel (*.xls),*.xls")

EDIT : la bonne syntaxe semble être :

ChDrive "G:\"

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention 4

Il s'agit du début de mon code en effet. Recherchedossier est le nom de la fonction de Michel. Chemin fait partie de cette fonction. La variable Chemin est utilisée dans plusieurs des macros de mon module, donc je l'ai déclarée en début procédure plus haut dans mon module d'où le fait qu'on ne voit pas ici la Dim.

Pour le chemin réseau, j'essayerai et vous dirai si a fonctionne.

Merci beaucoup à tous! :)

celine

Bonjour je souhaite dans ma macro insérer une liaison me permettant d'écrire dans deux classeurs àla fois ? est ce possible

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

....With Application
        .ScreenUpdating = False
                 
        recherchedossier
        
 ChDir recherchedossier

.Calculation = xlCalculationManual
.DisplayAlerts = False

inutile et "au cas où", il faut les initialiser en fin de procédure

conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention 4

Super ça fonctionne!
Merci beaucoup :) !

Discussions similaires

Fonction Now en VBA

AutoFill jusqu'à la dernière cellule non vide

Algorithme de tri

Erreur d'exécution 6: dépassement de capacité

afficher la date du jour VBA

Macro enregistrer en PDF

Votre réponse

Discussions similaires