> Tous les forums > Forum Autres langages
 Macro_Word : garder le nom de fichier actuel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Kanu-Dô
  Posté le 26/10/2004 @ 12:59 
Aller en bas de la page 
Nouvel astucien
Bonjour à tous, J'aimerai pouvoir changer l'extension de fichiers .rtf en .txt (compatibles UTH-8). Jusque là tout va bien, j'enregistre une macro à partir du premier doc et la conversion se fait sans problème. Le hic, c'est que j'ai plus de 400 fichiers à modifier ainsi et que le nom de fichier enregistré est toujours celui du premier. Mon problème est donc simple, à partir de cette macro, comment faire pour que le document(s) suivant(s) s'enregistre(ent) avec son(leur) petit(s) nom(s) de baptême.. Sub Macro3() ' ' Macro3 Macro ' Macro enregistrée le 26/10/2004 par Ophelie ' ChangeFileOpenDirectory _ "\\Modailleur\Partage\wwww\wwww\English 4Trans\" ActiveDocument.SaveAs FileName:="CombatMsgs_FR_a effacer.txt", FileFormat _ :=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True _ , WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False, Encoding:=65001, InsertLineBreaks:=False, _ AllowSubstitutions:=False, LineEnding:=wdCRLF, AddBiDiMarks:=False End Sub Je crois comprendre que c'est dans cette ligne que repose le mystère : ActiveDocument.SaveAs FileName:="CombatMsgs_FR_a effacer.txt", FileFormat Plus précisément mon FileName:="????.txt", Merci à tout de votre aide.

Modifié par Kanu-Dô le 29/10/2004 17:59
Publicité
tig
 Posté le 29/10/2004 à 10:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Hello, ActiveDocument.Name te permet de récupérer le nom actuel du fichier. Autrement dit pour ton code il faut Sub Macro3() ' ' Macro3 Macro ' Macro enregistrée le 26/10/2004 par Ophelie ' Dim nomFichier As String nomFichier = ActiveDocument.Name 'Récupérer le nom du fichier nomFichier = Mid(nomFichier, 1, Len(nomFichier) - 4) & ".txt" 'Changement de l'extention ChangeFileOpenDirectory _ "\\Modailleur\Partage\NCSOFT\City of Heroes\English 4Trans\" ActiveDocument.SaveAs Filename:=nomFichier, FileFormat _ :=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True _ , WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False, Encoding:=65001, InsertLineBreaks:=False, _ AllowSubstitutions:=False, LineEnding:=wdCRLF, AddBiDiMarks:=False End Sub

Modifié par tig le 29/10/2004 10:43
Kanu-Dô
 Posté le 29/10/2004 à 10:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Yop problème résolu. Merci vivement Tig !
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
149,95 €Ecran 23,8 pouces Acer EG240YPbipx (FullHD, IPS, 1ms, 165 Hz, FreeSync) à 149,95 €
Valable jusqu'au 16 Mai

LDLC fait une promotion sur l'écran 23,8 pouces Acer EG240YPbipx qui passe à 149,95 € alors qu'on le trouve ailleurs à partir de 200 €. Cet écran dédié aux joueurs dispose d'une dalle IPS Full HD de 1920x1080 pixels. Grâce à sa compatibilité Freesync (165 Hz) et son temps de réponse rapide de 1 ms, ce moniteur Acer offre une excellente fluidité d'affichage. Interfaces : 2 x HDMI, DP (1.2), Sortie de ligne audio.


> Voir l'offre
199,94 €Ecran portable 15,6 pouces Asus MB16ACE (FullHD, IPS, USB-C) à 199,94 €
Valable jusqu'au 16 Mai

Amazon fait une promotion sur l'écran portable 15,6 pouces Asus MB16ACE qui passe à 199,94 € au lieu de 249 €. Cet écran à emporter partout avec vous possède une dalle IPS antireflet FullHD avec un design ultrafin. L'alimentation et l'affichage se font par USB-C. Branchez simplement votre ordinateur portable ou votre smartphone pour profiter d'un second écran ou même votre console, un ordinateur fixe ou un raspberry Pi 4 pour profiter d'écran principal. Fourni avec un étui refermable pouvant être ajusté de manière à former un support et utiliser le moniteur en mode Portrait ou Paysage.


> Voir l'offre
85,19 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Crucial Ballistix 3600 MHz CL16 à 85,19 €
Valable jusqu'au 14 Mai

Amazon fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Crucial Ballistix 3600 MHz CL16 qui passe à 85,19 € livré alors qu'on le trouve ailleurs à partir de 100 €.


> Voir l'offre

Sujets relatifs
Création d'un fichier End Of File
Extraire une image d'un fichier SWF
Créer un fichier init.lua
Git Bash & fichier batch
Convertir un fichier image de 2002 avec extension ".GOOD"
Filter un fichier CSV en Java
Fichier batch : lancer 1 video sur VLC portable
macro excell pour ouverture fichier avec password
ni rundll.exe ni Extension de fichier: .exe
ouvrir et lire un fichier asc rar
Plus de sujets relatifs à Macro_Word : garder le nom de fichier actuel
 > Tous les forums > Forum Autres langages