Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
je viens de changer de machine et je voudrais récupérer toutes mes abréviations saisies en correction automatique, où et quel ficheir récupérer dans mon ancien pc ?
tant que j'y suis, y a-t-il moyen de fusionner ce fichier avec le même de ma machine du travail pour avoir toutes les abréviations partout dans un seul et même fichier ?
la premiere macro( a utiliser dans un classeur de ton ancienne machine ) permet de recuperer toutes les données de l'option correction automatique
Sub listerOptionsAutoCorrection()
Dim Tableau()
Dim X As Integer
Tableau = Application.AutoCorrect.ReplacementList
For X = 1 To UBound(Tableau)
Cells(X, 1) = Tableau(X, 1)
Cells(X, 2) = Tableau(X, 2)
Next
End Sub
ensuite tu transferts le classeur contenant ces données sur ta nouvelle machine
et tu lances la 2eme macro
la procedure va controler si les données du classeur existent deja dans la liste des options automatiques de la nouvelle machine
si les données n'existent pas , elles vont etre ajoutées à la liste de la nouvelle machine
bien sur ce n'est qu'un exemple , et tu devras sans doute l'adapter à ton projet (remise en du tableau avant transfert …ect…)
Sub fusionOptionsAutocorrection()
Dim Tableau()
Dim X As Integer
Dim Cell As Range
Dim Cible As Boolean
Tableau = Application.AutoCorrect.ReplacementList
For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cible = False
For X = 1 To UBound(Tableau)
If Tableau(X, 1) = Cell Then
Cible = True
Exit For
End If
Next X
If Cible = False Then Application.AutoCorrect.AddReplacement Cell, Cell.Offset(0, 1)
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.