Nom de dossier
Paquito
-
m@rina Messages postés 26481 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 26481 Date d'inscription Statut Contributeur Dernière intervention -
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
- Vous avez besoin d'une autorisation de la part de système pour modifier ce dossier - Guide
- Nom de compte steam exemple - Forum Jeux vidéo
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