Nom de dossier
Paquito
-
m@rina Messages postés 26232 Statut Contributeur -
m@rina Messages postés 26232 Statut Contributeur -
Bonjour,
Sous Word, j'aimerais insérer dans mon texte le nom du dossier (répertoire) qui contient mon fichier actuel, mais pas le chemin complet, juste le dossier parent.
Quelqu'un sait-il comment faire ?
Merci pour votre aide.
Paquito
Sous Word, j'aimerais insérer dans mon texte le nom du dossier (répertoire) qui contient mon fichier actuel, mais pas le chemin complet, juste le dossier parent.
Quelqu'un sait-il comment faire ?
Merci pour votre aide.
Paquito
A voir également:
- Nom de dossier
- Dossier appdata - Guide
- Impossible de supprimer un dossier - Guide
- Mettre un mot de passe sur un dossier - Guide
- Dossier rar - Guide
- Dossier démarrage - Guide
5 réponses
C'est sûr que si tu dis ActiveDocument.Range, c'est le texte de tout le document qui va être remplacé.
pour faire simple, et pour insérer à l'endroit du point d'insertion, termine la macro comme ceci (à la place msgbox ...):
Après, bien sûr, on peut faire plus sophistiqué se on veut que ça s'insère automatiquement à l'enregistrement par exemple, à un endroit précis par exemple, etc.
m@rina
pour faire simple, et pour insérer à l'endroit du point d'insertion, termine la macro comme ceci (à la place msgbox ...):
dossier = dossier(x - 1)
Selection.TypeText dossier
Après, bien sûr, on peut faire plus sophistiqué se on veut que ça s'insère automatiquement à l'enregistrement par exemple, à un endroit précis par exemple, etc.
m@rina
Bonjour,
Avec une macro, par exemple :
m@rina
Avec une macro, par exemple :
Sub nom_dossier()
Dim chemin As String, dossier As Variant
chemin = ActiveDocument.FullName
For i = 1 To Len(chemin)
If Mid(chemin, i, 1) = Application.PathSeparator Then x = x + 1
Next
dossier = Split(chemin, Application.PathSeparator)
MsgBox dossier(x - 1)
End Sub
m@rina
Merci beaucoup, nous y sommes presque...
En fait, je voudrais insérer ce nom de dossier dans mon texte, au lieu de l'avoir dans une boîte de message.
J'ai essayé avec :
ActiveDocument.Range.Text = dossier(x - 1)
mais il remplace tout mon texte.
Il doit y avoir une histoire de point d'insertion.
Merci pour votre aide.
Paquito
En fait, je voudrais insérer ce nom de dossier dans mon texte, au lieu de l'avoir dans une boîte de message.
J'ai essayé avec :
ActiveDocument.Range.Text = dossier(x - 1)
mais il remplace tout mon texte.
Il doit y avoir une histoire de point d'insertion.
Merci pour votre aide.
Paquito
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
https://faqword.com/index.php/word/environnement/1170-connaitre-le-nom-du-dossier-ou-se-trouve-le-document