> 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
69,99 €Casque sans fil Sony WH-CH700NL Bluetooth avec réduction de bruit active à 69,99 €
Valable jusqu'au 16 Mai

Cdiscount fait une belle promotion sur le casque sans fil Sony WH-CH700NL Bluetooth qui passe à 69,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 120 €. Ce casque sans fil rechargeable (via micro USB) offre jusqu'à 35h d'autonomie. L'AINC (Artificial Intelligence Noise Cancelling) s'adapte à votre environnement, ce qui vous permet d'éliminer les bruits indésirables lors de vos voyages ou si vous êtes avec d'autres personnes dans une même pièce. Une très bonne affaire.


> Voir l'offre
20,67 €Clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C à 20,67 €
Valable jusqu'au 16 Mai

Amazon fait une promotion sur la clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C qui passe à 20,67 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 35 €.


> Voir l'offre
10,90 €Adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 à 10,90 €
Valable jusqu'au 16 Mai

Amazon fait une promotion sur l'adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 qui passe à 10,90 € au lieu de 20 €. Cet adaptateur vous permettra de rajouter une prise Ethernet Gigabit à votre ordinateur portable (ou votre tablette via un adaptateu²r OTG) qui en est dépourvu.


> 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