Racine du FichierCourant.xls [VBA]
Résolu
commentcamarcheeay
Messages postés
667
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Chemin de ce fichier à partir de la racine du site
- Site de telechargement - Accueil - Outils
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier epub - Guide
- Site comme coco - Accueil - Réseaux sociaux
6 réponses
Bonjour,
Pour la 3ème question
Pour l'utiliser:
MsgBox ExtractDossierParent("C:\toto\Temp")
Affiche = "C:\toto\"
Pour la 2ème question, je n'ai pas tout saisie ... tu veux ouvrir un explorateur et récupérer le chemin du fichier sélectionné par l'utilisateur ?
;o)
;o)
Pour la 3ème question
Public Function ExtractDossierParent(ByVal sFullPath As String) As String
If Right(sFullPath, 1) = "\" Then
sFullPath = Mid(sFullPath, 1, Len(sFullPath) - 1)
End If
ExtractDossierParent = Left(sFullPath, InStrRev(sFullPath, "\"))
End Function
Pour l'utiliser:
MsgBox ExtractDossierParent("C:\toto\Temp")
Affiche = "C:\toto\"
Pour la 2ème question, je n'ai pas tout saisie ... tu veux ouvrir un explorateur et récupérer le chemin du fichier sélectionné par l'utilisateur ?
;o)
;o)
Je réponds à ma première question pour ceux que ça intéresserait
1 - La fonction CurDir doit contenir en argument le bon caractère du lecteur. e.g. CurDir("X") si le répertoire se trouve dans le lecteur X. Alors cette fonction rend le chemin du fichier courant.
La question devient alors : quelle est la fonction qui donne le caractère du lecteur par défaut?
1 - La fonction CurDir doit contenir en argument le bon caractère du lecteur. e.g. CurDir("X") si le répertoire se trouve dans le lecteur X. Alors cette fonction rend le chemin du fichier courant.
La question devient alors : quelle est la fonction qui donne le caractère du lecteur par défaut?
Dans la crainte de le perdre, je copie l'essentiel du code qu'a référencé michel_m selon le lien suivant : http://frederic.sigonneau.free.fr/code/Fichiers/ChercheAvecBaseName.txt
< Proc supprimée pour respect de la charte >
Mais l'essentiel du code est ce qui suit :
- Il convient de savoir comment créer les trois objets:
Set fso = CreateObject("Scripting.FileSystemObject")
Set Lecteurs = fso.drives
Set Fichiers = Racine.Files
Pour ça je propose le site suivant : https://warin.developpez.com/access/fichiers/#LII
- Il faut créer une boucle de comparaison qui marche sur ce principe :
For Each Fichier In Fichiers
If UCase(fso.getbasename(Fichier.Path)) = UCase(nomFichier) Then
...
Retour.Add Fichier.Path, Fichier.Path
...
End If
Next
< Proc supprimée pour respect de la charte >
Mais l'essentiel du code est ce qui suit :
- Il convient de savoir comment créer les trois objets:
Set fso = CreateObject("Scripting.FileSystemObject")
Set Lecteurs = fso.drives
Set Fichiers = Racine.Files
Pour ça je propose le site suivant : https://warin.developpez.com/access/fichiers/#LII
- Il faut créer une boucle de comparaison qui marche sur ce principe :
For Each Fichier In Fichiers
If UCase(fso.getbasename(Fichier.Path)) = UCase(nomFichier) Then
...
Retour.Add Fichier.Path, Fichier.Path
...
End If
Next
Bonjour,
Recopier une proc d'un autre sans son autorisation est contraire à la netiquette. Il est d'usage de citer le site uniquement (un forumeur est normalement capable de faire un clic sur un lien qui plus est déjà cité)... Donc, il serait souhaitable que tu supprimes ce message
d'avance merci :-)
Recopier une proc d'un autre sans son autorisation est contraire à la netiquette. Il est d'usage de citer le site uniquement (un forumeur est normalement capable de faire un clic sur un lien qui plus est déjà cité)... Donc, il serait souhaitable que tu supprimes ce message
d'avance merci :-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
L'utilisation de la bibliothèque FileSystemObject est une alternative très intéressante pour la gestion des fichiers. Cependant, elle n'est pas ajoutée par défaut à certains logiciels (ce qui fut mon cas - Excel 2000). Pour la faire prendre en compte, la prose donne ces deux méthodes:
1 - Démarrer > Exécuter > "regsvr32 scrrun.dll" & "Entrée"
2 - Sur la page de développement VBA : Barre des menus > Outils > Références --> Cocher "Microsoft Scripting Runtime"
L'utilisation de la bibliothèque FileSystemObject est une alternative très intéressante pour la gestion des fichiers. Cependant, elle n'est pas ajoutée par défaut à certains logiciels (ce qui fut mon cas - Excel 2000). Pour la faire prendre en compte, la prose donne ces deux méthodes:
1 - Démarrer > Exécuter > "regsvr32 scrrun.dll" & "Entrée"
2 - Sur la page de développement VBA : Barre des menus > Outils > Références --> Cocher "Microsoft Scripting Runtime"
Le site suivant fait un tour global de toutes les fonctionnalité du FileSystemObject :
https://warin.developpez.com/access/fichiers/#LII
https://warin.developpez.com/access/fichiers/#LII
Pour la deuxième question, je voulais effectuer une recherche d'un fichier et récupérer le chemin du fichier si trouvé.
Mais ce que tu m'as donné c'est déjà très utile. Encore merci!
C'est un code trouvé je ne sais plus sur quel site qui, à l'origine, permet d'extraire le répertoire racine d'un fichier à partir de son chemin complet.
Je n'ai fait que l'adapter à ton besoin.
Bon continuation et bon courage.
;o)
Pour retrouver le chemin d'un fichier, regarde cette URL sur le site (incontournable) de Frédéric Sigonneau
http://frederic.sigonneau.free.fr/code/Fichiers/ChercheAvecBaseName.txt
Je met en 'résolu'