Modifier une macro import de word vers excel

[Bernard-Louis]

Bonjour a toutes et tous,
je desire si possible modifier la macro import qui fonctionne tres bien a partir de la liste deroulante.
Le but de ma demande est de supprimer la liste deroulante et de faire le meme import a partir de la cellule BR12 (en jaune) par la macro.
Les utilisateurs indiqueraient le code voulu en BR12 au lieu de le choisir dans la liste.
Avec mes remerciements.
Cordialement

 

[pierrejean]

Re : Modifier une macro import de word vers excel

bonjour Bernard-Louis

non testée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BR$12" Then
  Application.ScreenUpdating = False
  ImporterWordVersExcel (Target.Value)
  Application.ScreenUpdating = True
End If
End Sub

 

[Spitnolan08]

Re : Modifier une macro import de word vers excel

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonDocWord As String
If Target.Address = "$BR$12" Then
Application.ScreenUpdating = False
MonDocWord = Target.Value
ImporterWordVersExcel (MonDocWord)
Application.ScreenUpdating = True
End If
End Sub

Salut Pierrejean, je viens de voir que tu avais déjà posté et ma réponse ressemble à la tienne...

Cordialement

 

[Bernard-Louis]

[Resolu]: Modifier une macro import de word vers excel

Un grand merci pierrejean et Spitnolan08.

Tout fonctionne a merveille !!!(pour l'instant......., le projet n'est pas fini!!)

Bon apres-midi a tous.
Cordialement

 

[Bernard-Louis]

Re : Modifier une macro import de word vers excel

Bonjour a toutes et tous.
Je reviens vers vous pour un probleme que je n'arrive pas a resoudre concernant l'import de texte.
Si on rentre un code en BR12 qui n'existe pas dans la liste des textes word, la macro se plante.
Je voudrai eviter que l'utilisateur de base rentre dans la macro, car je devine le resultat !!

Existe t il une solution par un message ou autre afin d'eviter cela ?

Avec mes remerciements.
Cordialement

 

[pierrejean]

Re : Modifier une macro import de word vers excel

bonjour Bernard-Louis

teste:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BR$12" Then
  Application.ScreenUpdating = False
   on error resume next
       ImporterWordVersExcel (Target.Value)
   on error goto 0
  Application.ScreenUpdating = True
End If
End Sub

 

[Bernard-Louis]

Re : Modifier une macro import de word vers excel

Merci Pierrejean,
C'est parfait, cela n'affiche aucune données sur la feuille et la macro ne plante pas.
Merci encore et bonne journée.
Cordialement