A voir également:
- WORD ouvrir le dernier ficheir créé
- Word 2013 - Télécharger - Traitement de texte
- Comment ouvrir un fichier epub ? - Guide
- Tableau word - Guide
- Ouvrir fichier .bin - Guide
- Espace insécable word - Guide
3 réponses
Bonjour Kona,
effectivement, tu n'es pas loin de la fin, félicitations pour ta persévérance.
"chemin d'accès introuvable "
rajoute un anti-slash après le nom de ton répertoire
"impossible d'executer en mode arrêt"
je suppose que c'est un message qui apparaît quand tu relances ta macro après une erreur, alors que tu as encore une ligne surlignée en jaune.
Dans l'éditeur VBA, Menu Exécution/Réinitialiser, et ça passera mieux.
Bon courage !
I.
effectivement, tu n'es pas loin de la fin, félicitations pour ta persévérance.
"chemin d'accès introuvable "
rajoute un anti-slash après le nom de ton répertoire
Chemin = "C:\TEST\"
"impossible d'executer en mode arrêt"
je suppose que c'est un message qui apparaît quand tu relances ta macro après une erreur, alors que tu as encore une ligne surlignée en jaune.
Dans l'éditeur VBA, Menu Exécution/Réinitialiser, et ça passera mieux.
Bon courage !
I.
cependant,je n'arrive pas à utiliser ce script :..-(
en fait, il faudrait que la macro Word 2003 :
* ouvrir le dernier fichier .txt créé dans une répertoire ../fichier/reçu/
* Rechercher /Remplacer #MECA^p1 par #MECA^p2
* et enregistrer ce fichier corrigé dans ../fichier/corrigé/
Cordialement
kona78
la macro fonctionne correctement sur 2 pc (avec export du.bas)
par contre, j'ai un message d'erreur sur le 3è
"chemin d'accès introuvable " alors que le repertoire existe bien cf GRAS
et aussi
"impossible d'executer en mode arrêt"
--------------------------------------------------------------------------------------------------------------------------------------
Dim Chemin As String
Function DernierFichier(Chemin As String) As String
Dim Fichier As String, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
If FileDateTime(Chemin & Fichier) > DerniereDate Then
DerniereDate = FileDateTime(Chemin & Fichier)
DernierFichier = Fichier
End If
Fichier = Dir()
Loop
End Function
Sub OuvrirDernierDoc()
Chemin = "C:\TEST"
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=DernierFichier(Chemin)
End Sub
Sub REMPLACE()
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "#MECA^p1"
.Replacement.Text = "#MECA^p2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.SaveAs FileName:="CORRIGE.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
End Sub
je suis pas loin de la fin arghhh
Kona
Il me met, Erreur de compilation Sub ou fonction non définie...