> 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
12,12 €Micro clé USB 3.1 Sandisk Ultra Fit 64 Go à 12,12 €
Valable jusqu'au 12 Avril

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 64 Go qui passe à 12,12 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre
109,99 €Smartphone Poco M3 (6,53 pouces, 4Go Ram, 64Go) à 109,99 € (via ODR)
Valable jusqu'au 16 Avril

Electro Dépôt fait une belle promotion sur le smartphone Poco M3 qui passe à 139,99 € au lieu de 180 €. Or Xiaomi rembourse actuellement 30 € pour l'achat de cet smartphone qui vous reviendra à 109,99 € après remboursement. Il est équipé d'un processeur Qualcomm Snapdragon 662 (8 coeurs), de 4 Go de RAM, de 64 Go de stockage extensibles par MicroSD et d'un écran de 6,53 pouces FHD+ (2340x1080). Il comprend aussi une Quad-Caméra de 48 MP + 2 MP + 2 MP + Flash LED et une caméra selfie de 8 MP. Il comprend une grande batterie de 6000 mAh, pour une utilisation sur plusieurs jours (supporte la charge rapide). Le POCO M3 dispose également d'un capteur d'empreinte digitale sur le côté, du WiFi5 MIMO, du Bluetooth 5.1 et du GPS. Le tout tourne sous Android 10.


> Voir l'offre
799,99 €Ultraportable MSI Modern B11M-058XFR (Core i7, 8 Go RAM, SSD 512 Go) à 799,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une vente flash sur l'ultraportable MSI Modern B11M-058XFR qui passe à 799,99 € au lieu de 999,99 €. Cet ordinateur possède une dalle 14 pouces Full HD, est équipé d'un processeur Intel Core i7-1165G7, de 8 Go de RAM et d'un SSD NVME de 512 Go. Il ne pèse que 1,18 kg et offre une autonomie d'une dizaine d'heures. Il est fourni sans OS. Vous pourrez mettre un Windows 10 Pro 64 bits OEM si vous le souhaitez.


> 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