Comment sauvegarder le fichier "correction automatique"

Le
gtoukc
Bonjour à tous,



Je me suis escagassé, sur les forums de Microsoft,

sans trouver le réponse ou du moins il y aurait une

macro à installer, c'est la raison pour laquelle j'en

parle sur ce forum car ici se trouve les rois de la macro.

Mais bon, comme tout flatteur vit au dépend de celui

qui l'écoute.. Je vais y aller mollo.

J'aimerai sauvegarder voire le modifier avec un éditeur

de texte, mon fichier "correction automatique" que j'ai

commencer à enrichir sous Office 2010.

Je sais par exemple que le fichier de mon dico personnel

que j'ai créé en place de "custom.dic

se nomme "Francis.dic" et je n'ai pas de difficulté pour la

sauvegarde de ce fichier. Mais je ne sais pas par contre

comment se nomme et surtout quelle est l'extension a le

fichier de "correction automatique" .

J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le

fichier qui m'intéresse.

qq peut-il-m' éclairer ???

Bonne journée

Fr@ncis
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
GL
Le #25391072
Le 08/05/2013 09:42, gtoukc a écrit :
Bonjour à tous,



Je me suis escagassé, sur les forums de Microsoft,

sans trouver le réponse ou du moins il y aurait une

macro à installer, c'est la raison pour laquelle j'en

parle sur ce forum car ici se trouve les rois de la macro.

Mais bon, comme tout flatteur vit au dépend de celui

qui l'écoute..... Je vais y aller mollo.

J'aimerai sauvegarder voire le modifier avec un éditeur

de texte, mon fichier "correction automatique" que j'ai

commencer à enrichir sous Office 2010.

Je sais par exemple que le fichier de mon dico personnel

que j'ai créé en place de "custom.dic

se nomme "Francis.dic" et je n'ai pas de difficulté pour la

sauvegarde de ce fichier. Mais je ne sais pas par contre

comment se nomme et surtout quelle est l'extension a le

fichier de "correction automatique" .

J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le

fichier qui m'intéresse.

qq peut-il-m' éclairer ???

Bonne journée





Je ne sais pas si ça répond à la question, mais mes
corrections automatiques sont stockées dans un addins
excel (sur une feuille à deux colonnes donc) et :

With Excel.Application.AutoCorrect

J'utilise les méthodes
.DeleteReplacement What:=<l'entrée de la 1ere colonne>
et .AddReplacement What:=<1ere colonne>, Replacement:=<2è colonne>

Cordialement.
DanielCo
Le #25391122
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux
créer un classeur de sauvegarde. Tu peux modifier la liste et la
réimporter à l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux
te créer un tel classeur avec les deux macros.
Cordialement.
Daniel


Bonjour à tous,



Je me suis escagassé, sur les forums de Microsoft,

sans trouver le réponse ou du moins il y aurait une

macro à installer, c'est la raison pour laquelle j'en

parle sur ce forum car ici se trouve les rois de la macro.

Mais bon, comme tout flatteur vit au dépend de celui

qui l'écoute..... Je vais y aller mollo.

J'aimerai sauvegarder voire le modifier avec un éditeur

de texte, mon fichier "correction automatique" que j'ai

commencer à enrichir sous Office 2010.

Je sais par exemple que le fichier de mon dico personnel

que j'ai créé en place de "custom.dic

se nomme "Francis.dic" et je n'ai pas de difficulté pour la

sauvegarde de ce fichier. Mais je ne sais pas par contre

comment se nomme et surtout quelle est l'extension a le

fichier de "correction automatique" .

J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le

fichier qui m'intéresse.

qq peut-il-m' éclairer ???

Bonne journée


gtoukc
Le #25391742
J'imagine qu'un "addins ou macro automatique si j'ai bien compris,
se crée à partir d'une feuil1 dont les colonnes A et B sont
renseignées et qu'ensuite on enregistre ce classeur sous:
addins.xlma ou addins.xla ???
mais ensuite :
1) où insert-on ces formules
DeleteReplacement What:=<l'entrée de la 1ere colonne>
AddReplacement What:=<l'entrée de la 1ere colonne>
2) Et dans ce cas, quelles sont les références
.<l'entrée de la 1ere colonne>
<1ere colonne>, Replacement:=<2è colonne>
3) Comment mettre en application automatiquement
ces formules ???

Cordialement




Le 08/05/2013 09:42, gtoukc a écrit :
Bonjour à tous,



Je me suis escagassé, sur les forums de Microsoft,

sans trouver le réponse ou du moins il y aurait une

macro à installer, c'est la raison pour laquelle j'en

parle sur ce forum car ici se trouve les rois de la macro.

Mais bon, comme tout flatteur vit au dépend de celui

qui l'écoute..... Je vais y aller mollo.

J'aimerai sauvegarder voire le modifier avec un éditeur

de texte, mon fichier "correction automatique" que j'ai

commencer à enrichir sous Office 2010.

Je sais par exemple que le fichier de mon dico personnel

que j'ai créé en place de "custom.dic

se nomme "Francis.dic" et je n'ai pas de difficulté pour la

sauvegarde de ce fichier. Mais je ne sais pas par contre

comment se nomme et surtout quelle est l'extension a le

fichier de "correction automatique" .

J'ai bien essayé l'extension: *.acl mais n'ai pas trouvé le

fichier qui m'intéresse.

qq peut-il-m' éclairer ???

Bonne journée





Je ne sais pas si ça répond à la question, mais mes
corrections automatiques sont stockées dans un addins
excel (sur une feuille à deux colonnes donc) et :

With Excel.Application.AutoCorrect

J'utilise les méthodes
.DeleteReplacement What:=<l'entrée de la 1ere colonne>
et .AddReplacement What:=<1ere colonne>, Replacement:=<2è colonne>

Cordialement.
gtoukc
Le #25392282
Petite question...

cette macro Lit le fichier MSO1036.acl

sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub

et l'écrit avec la macro suivante
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub

comment adapter la macro ( si c'est possible ) pour faire
la même chose avec le fichier MSO 0127.acl. ???
et pourquoi pas le fichier MSO1033.acl ???
cordialement



"DanielCo" kmd3mm$hkp$
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux
créer un classeur de sauvegarde. Tu peux modifier la liste et la
réimporter à l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
GL
Le #25392272
Le 08/05/2013 16:02, gtoukc a écrit :
J'imagine qu'un "addins ou macro automatique si j'ai bien compris,
se crée à partir d'une feuil1 dont les colonnes A et B sont
renseignées et qu'ensuite on enregistre ce classeur sous:
addins.xlma ou addins.xla ???
mais ensuite :
1) où insert-on ces formules
DeleteReplacement What:=<l'entrée de la 1ere colonne>
AddReplacement What:=<l'entrée de la 1ere colonne>
2) Et dans ce cas, quelles sont les références
.<l'entrée de la 1ere colonne>
<1ere colonne>, Replacement:=<2è colonne>
3) Comment mettre en application automatiquement
ces formules ???



Point par point :
1) Vous lancez Excel
2) Vous créez un nouveau classeur
3) Vous enregistrez ce classeur dans le répertoire :
C:Users<Votre nom>AppDataRoamingMicrosoftAddinsMonAddin.xlam
4) Dans les options de Excel vous choisissez "Compléments" puis
"Atteindre" puis "Parcourir" et vous choisissez "MonAddin.xlam"
puis "OK" : le classeur est maintenant chargé.
5) Sur Excel vous appuyez sur "ALT+F11" et l'éditeur VBA s'ouvre,
vous choisissez le "VBAPoject(MonAddin.xlam)" faites un click droit
dessus et choisissez "Insertion" puis "Module".
6) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes :

Option Private Module
Option Explicit

Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub

7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure)

8) Vous retournez à Excel et voyez la liste des corrections automatiques
sur 2 colonnes.

-----------------------------------------------------------------------

Si vous voulez ajouter des corrections automatiques allez sur la
"Feuil2" et renommez la en "AutoCorrections"

Vous entrez là vos corrections automatiques supplémentaires,
par exemple :

En A2 : alpha en B2 : le caractère α

caractère que vous obtenez en allant dans "Insertion" "Symboles" et
choisissez le caractère unicode "03B1"

Je vous conseille de mettre en C2 : VRAI

Comme cela, pour les corrections que vous voudriez supprimer, vous
mettrez "FAUX", pour celles que vous voulez actives vous mettrez "VRAI"

Donc votre feuille "AutoCorrections" ressemble à ceci :

What Replacement Actif % => ligne A1:C1
alpha α VRAI % => ligne A2:C2
beta β VRAI % => ligne A3:C3


De retour dans l'éditeur VBA ("ALT+F11") vous insérez dans le Module1
du "VBAProject(MyAddin.xlam)" :

______________________________________________
Public Sub Auto_Open() ' Automatically executed at startup
Call MakeAutoCorrect
End Sub


Private Sub MakeAutoCorrect(Optional Remove As Boolean = False)
Dim TabList, N&
N = Evaluate("=CountA(" &
ThisWorkbook.Worksheets("AutoCorrect").Range("A:A").Address(True, True,
xlA1, True) & ")")
TabList = ThisWorkbook.Worksheets("AutoCorrect").Range("A2:C" & N -
1).Value
On Error Resume Next
If Remove Then
For N = LBound(TabList, 1) To UBound(TabList, 1):
Excel.Application.AutoCorrect.DeleteReplacement what:=TabList(N, 1): Next N
Else
For N = LBound(TabList, 1) To UBound(TabList, 1)
If TabList(N, 3) Then
Excel.Application.AutoCorrect.AddReplacement
what:=TabList(N, 1), replacement:=TabList(N, 2)
Else: Excel.Application.AutoCorrect.DeleteReplacement
what:=TabList(N, 1)
End If
Next N
End If
On Error Goto 0
End Sub

Private Sub SaveThisWorkbook()
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub


Pour sauvegarder le classeur "MonAddin.xlam" vous lancerez la procédure
SaveThisWorkbook (en tapant sur "F5" lorsque le curseur est dedans).


Pour supprimer toutes vos corrections automatiques personnalisées,
vous pouvez appeler "MakeAutoCorrect" avec :

MakeAutoCorrect Remove:=True


Pour les appliquer au contraire, vous lancerez simplement la macro
"Auto_Open", qui de toutes façon s'exécutera automatiquement, à chaque
fois que le classeur "MonAddin.xlam" est ouvert, donc à chaque fois
que vous lancerez Excel puisqu'il a été enregistré dans les
"Compléments" chargés.

Cordialement.
DanielCo
Le #25392512
La macro lit le fichier de la version active d'Excel. Si tu as une
autre version d'Excel et que tu exécutes la macro, je pense que tu vas
lire un fichier différent.
Daniel


Petite question...

cette macro Lit le fichier MSO1036.acl

sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub

et l'écrit avec la macro suivante
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub

comment adapter la macro ( si c'est possible ) pour faire
la même chose avec le fichier MSO 0127.acl. ???
et pourquoi pas le fichier MSO1033.acl ???
cordialement



"DanielCo" kmd3mm$hkp$
Bonjour,
La macro suivante provient du site Excelabo.net :
sub Lire()
Dim Corrliste
Corrliste = Application.AutoCorrect.ReplacementList
[A1].Resize(UBound(Corrliste, 1), 2) = Corrliste
end sub
Elle liste les remplacements sur une feuille. A partir de là, tu peux créer
un classeur de sauvegarde. Tu peux modifier la liste et la réimporter à
l'aide de la macro :
sub Ecrire()
Application.AutoCorrect.ReplacementList = [A1].CurrentRegion.Value
end sub
(Excelabo toujours). Si tu n'es pas familier avec les macros, je peux te
créer un tel classeur avec les deux macros.
Cordialement.
Daniel
gtoukc
Le #25392502
7) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes

Option Private Module
Option Explicit

Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure
Jusqu'au point 6... tout est nickel

lors de l'execution de la macro ( F 5 )
il y a un bugue à
=TabList
qui se surligne en bleu et la macro s'arréte....

cordialement





"> Option Private Module
Option Explicit

Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value =
TabList
End Sub

7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure)

8) Vous retournez à Excel et voyez la liste des corrections automatiques
sur 2 colonnes.

-----------------------------------------------------------------------

Si vous voulez ajouter des corrections automatiques allez sur la "Feuil2"
et renommez la en "AutoCorrections"

Vous entrez là vos corrections automatiques supplémentaires,
par exemple :

En A2 : alpha en B2 : le caractère ?

caractère que vous obtenez en allant dans "Insertion" "Symboles" et
choisissez le caractère unicode "03B1"

Je vous conseille de mettre en C2 : VRAI

Comme cela, pour les corrections que vous voudriez supprimer, vous
mettrez "FAUX", pour celles que vous voulez actives vous mettrez "VRAI"

Donc votre feuille "AutoCorrections" ressemble à ceci :

What Replacement Actif % => ligne A1:C1
alpha ? VRAI % => ligne A2:C2
beta ? VRAI % => ligne A3:C3


De retour dans l'éditeur VBA ("ALT+F11") vous insérez dans le Module1
du "VBAProject(MyAddin.xlam)" :

______________________________________________
Public Sub Auto_Open() ' Automatically executed at startup
Call MakeAutoCorrect
End Sub


Private Sub MakeAutoCorrect(Optional Remove As Boolean = False)
Dim TabList, N&
N = Evaluate("=CountA(" &
ThisWorkbook.Worksheets("AutoCorrect").Range("A:A").Address(True, True,
xlA1, True) & ")")
TabList = ThisWorkbook.Worksheets("AutoCorrect").Range("A2:C" & N -
1).Value
On Error Resume Next
If Remove Then
For N = LBound(TabList, 1) To UBound(TabList, 1):
Excel.Application.AutoCorrect.DeleteReplacement what:=TabList(N, 1): Next
N
Else
For N = LBound(TabList, 1) To UBound(TabList, 1)
If TabList(N, 3) Then
Excel.Application.AutoCorrect.AddReplacement
what:=TabList(N, 1), replacement:=TabList(N, 2)
Else: Excel.Application.AutoCorrect.DeleteReplacement
what:=TabList(N, 1)
End If
Next N
End If
On Error Goto 0
End Sub

Private Sub SaveThisWorkbook()
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub


Pour sauvegarder le classeur "MonAddin.xlam" vous lancerez la procédure
SaveThisWorkbook (en tapant sur "F5" lorsque le curseur est dedans).


Pour supprimer toutes vos corrections automatiques personnalisées,
vous pouvez appeler "MakeAutoCorrect" avec :

MakeAutoCorrect Remove:=True


Pour les appliquer au contraire, vous lancerez simplement la macro
"Auto_Open", qui de toutes façon s'exécutera automatiquement, à chaque
fois que le classeur "MonAddin.xlam" est ouvert, donc à chaque fois
que vous lancerez Excel puisqu'il a été enregistré dans les "Compléments"
chargés.

Cordialement.
GL
Le #25392802
Le 08/05/2013 20:12, gtoukc a écrit :
7) Dans ce "Module1" rattaché à "MonAddin.xlam" vous entrez ces lignes

Option Private Module
Option Explicit

Private Sub ViewAutoCorrect()
Dim TabList
ThisWorkbook.IsAddin = False
TabList = Excel.Application.AutoCorrect.ReplacementList
ThisWorkbook.Sheets(1).Range("A1").Resize(UBound(TabList), 2).Value
= TabList
End Sub
7) Vous lancez l'exécution de cette procédure (en tapant sur "F5"
lorsque le curseur est à l'intérieur de cette procédure
Jusqu'au point 6... tout est nickel

lors de l'execution de la macro ( F 5 )
il y a un bugue à
=TabList
qui se surligne en bleu et la macro s'arréte....



C'est à cause du saut de ligne... le forum formate les lignes
sur un nombre court de caractères, il y a certainement plusieurs sauts
de ligne à vérifier...

Cdt.
Publicité
Poster une réponse
Anonyme