remplacer le contenu d'une cellule par une autre dans un fichier excel

kob75 · 11 Novembre 2012

Bonsoir à tous,

Je vous remercie d'avance pour la réponse que vous allez apporter à ma demande.

J'ai un fichier word qui contient un texte en français.

J'ai, par ailleurs, un document excel qui contient deux colonnes: le premier colonne contient des mots en français (un mot par ligne). le deuxième colonne contient des mots en anglais ( un mot par ligne qui correspond à la traduction anglaise du mot français).

Je souhaite modifier mon texte français en anglais en demandant à word d'aller chercher le correspondant du mot français en anglais ( le mot en français se trouve par exemple à la cellule A1 et le mot en anglais à la cellule B1) et de le remplacer d'office

j'avoue que je suis un "nul" en excel et par conséquence en VBE ou VBA.

Bonne soirée à tous

job75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Bonjour kob75, bienvenue sur XLD,

Presque mon homonyme

Voyez les 2 fichiers joints.

La macro est dans le fichier Word, et le fichier Excel doit aussi être ouvert :

Code:

Sub Traduction()
'IMPORTANT : cocher la référence "Microsoft Excel xx.x Object Library"
Dim MyXL As Excel.Application, cherche As String, r As Excel.Range
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err Then MsgBox "Excel absent...": Exit Sub
On Error GoTo 0
cherche = Trim(Replace(Selection.Range, Chr(13), ""))
Set r = MyXL.activeworkbook.sheets("Dictionnaire").[A1].currentregion
Set r = r.Find(cherche)
If r Is Nothing Then MsgBox "Mot introuvable...", , "Traduction": GoTo 1
Selection = r.Offset(, IIf(r.Column = 1, 1, -1))
1 Set MyXL = Nothing
Set r = Nothing
End Sub

Pour cocher la référence "Microsoft Excel xx.x Object Library" dans Word :

- Activer Word et aller dans VBA (Alt+F11)

- menu Outils => Références.

Edit : remarquer que la traduction fonctionne dans les 2 sens...

A+

job75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re,

Il vaut mieux préciser les paramètres de la recherche dans Excel :

Code:

Set r = r.Find(cherche, , xlValues, xlWhole)

Fichier (2).

A+

job75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re,

Un complément pour le cas où le mot à traduire commence par une majuscule :

Code:

Set r = r.Offset(, IIf(r.Column = 1, 1, -1))
Selection = IIf(cherche = MyXL.Proper(cherche), MyXL.Proper(r), r)

Nota : tous les mots du dictionnaire sont en minuscules.

Fichier (3).

A+

Calvus · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Bonjour,

Job génial ton truc ! Enfin..code.
Par contre, il semble que le Doc3 soit vide.
Bonne journée

job75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re, salut Calvus et merci,

Dans cette version (4) on utilise le double-clic avec ce code dans un Module de classe :

Code:

Public WithEvents appWord As Word.Application

Private Sub appWord_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Application.OnTime Now, "Traduction"
End Sub

et dans ThisDocument, pour initialiser une instance :

Code:

Dim X As New Classe1

Private Sub Document_Open()
Set X.appWord = Word.Application
End Sub

A+

kob75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Cher Job75,

Je vous remercie pour votre aide.
Je teste et reviens vers vous.

Cordialement

kob75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re,

J'ai un problème avec (MyXL As Excel.Application)
le message affiché dans VB est " projet ou bibliothèque introuvable!

Merci pour l'aide encore ;-)

job75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re kob75,

J'ai dit - et répété, poste #2 - qu'il fallait cocher la référence "Microsoft Excel xx.x Object Library" dans Word.

Qui cherche trouve

A+

kob75 · 11 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Re job75,
je l'avais cocher pourtant sans succès.
il y a peut être une incompatibilité sur word ou excel

A+

job75 · 12 Novembre 2012

Re : remplacer le contenu d'une cellule par une autre dans un fichier excel

Bonjour kob75, le forum,

Retournez dans les références de Word.

1) Assurez-vous que la référence "Microsoft Excel xx.x Object Library" est bien cochée.

2) Si une référence est indiquée MANQUANT décochez-la (dites-nous laquelle c'est).

A+

remplacer le contenu d'une cellule par une autre dans un fichier excel

kob75

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Calvus

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

kob75

XLDnaute Nouveau

kob75

XLDnaute Nouveau

job75

XLDnaute Barbatruc

kob75

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires