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

Résolu/Fermé

conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 2 oct. 2014 à 16:49
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:

Application.getopenfilename chemin
Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Acceder a uptobox - Guide
Trouver un numero de portable a partir d'un nom svp - Forum Réseaux sociaux

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par pijaku le 2/10/2014 à 18:09

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 2/10/2014 à 18:13

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 dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
Modifié par conrade82 le 2/10/2014 à 21:24

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 oct. 2014 à 22:59

Merci pour le temps passé

conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
Modifié par conrade82 le 3/10/2014 à 13:01

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
3 oct. 2014 à 13:31

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 dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
Modifié par conrade82 le 3/10/2014 à 16:12

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 3/10/2014 à 16:30

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 dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
3 oct. 2014 à 17:58

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
29 déc. 2015 à 22:20

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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
3 oct. 2014 à 23:28

....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 dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
20 oct. 2014 à 18:14

Super ça fonctionne!
Merci beaucoup :) !

Discussions similaires

Fonction Application.GetOpenFilename

Nombre de feuille dans un classeur excel ?

Deplacement dossier User ou Appdata

Changer dossier d'installation des programmes sur W10

Impossible d'ouvrir outlook 2010

Explorer, mode d'affichage par défaut

Discussions similaires

Newsletters