gerer macro word depuis excel

[bouchet2]

Je cherche sans résultat de traduire en VBA
Coller une plage d'un tableau Excel en WORD texte et ensuite appliquer la fonction remplacer.

A la main ca marche
copier sur Excel le tableau
collage spécial dans Word choisir texte sans mise en forme
coller sur la page Word

appliquer plusieurs remplacer
comme
supprimer marque de paragraphe par « rien »
supprimer marque tabulation par « rien »

remplacer le sigle « / » que j'ai introduit a certains endroit de mon tableau par « a la ligne »
J’ai le texte que je désire et bien présenté.
J’ai beau essayé je suis bloqué sur l’écriture VBA de collage spécial sans mise en forme Ce lien n'existe plus
ci joint macroVBA

Merci d'avance

 

[bouchet2]

Re : gerer macro word depuis excel

merci beaucoup
j'ai un programme impeccable

A bientot

Jean bouchet

 

[bouchet2]

Re : gerer macro word depuis excel

Bonjour

J'ai un petit souci sur la macro Proword que vous m'avez corrigée.

Lorsqu'on nomme le document WORD 2 fois du même nom par erreur, la macro s'ouvre et annonce debodage

En assemblée générale de copro et en pleine intensité, l'utilisateur rique de prendre peur.

Comment installer un message évitant cet incident.

merci d'avance .

Jean BOUCHET

ci aprés la macro

Sub proWord_II()
'Déclarations Variables
Dim fd As Worksheet, Limite As Long, Nomdufichier As String
Dim oWdApp As Word.Application 'Pensez à activer la référence à Word -> Outils/Références
Dim oWdDoc As Word.Document


Set fd = Worksheets("feuil1")
'La zone excel débute en A1 e termine en Hi, i étant variable suivant le nombre de ligne du devis
fd.Select
Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
Nomdufichier = InputBox("Nom du fichier", "feuil1")
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Rendre Word visible
oWdApp.Visible = True
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
Sheets("feuil1").Range("B3:H" & Limite + 43).Copy 'selection du tableau
oWdApp.Documents.Add
oWdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
Placement:=wdInLine, DisplayAsIcon:=False
'macroword remplacer
oWdApp.Selection.WholeStory
oWdApp.Selection.Find.ClearFormatting
oWdApp.Selection.Find.Replacement.ClearFormatting
With oWdApp.Selection.Find
.Text = "/"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oWdApp.Selection.Find.Execute Replace:=wdReplaceAll
oWdApp.Selection.Find.ClearFormatting
oWdApp.Selection.Find.Replacement.ClearFormatting
With oWdApp.Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oWdApp.Selection.Find.Execute Replace:=wdReplaceAll
oWdApp.Selection.Find.ClearFormatting
oWdApp.Selection.Find.Replacement.ClearFormatting
With oWdApp.Selection.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oWdApp.Selection.Find.Execute Replace:=wdReplaceAll
oWdApp.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
oWdApp.Quit
Set oWdDoc = Nothing: Set oWdApp = Nothing
End Sub

 

[Staple1600]

Re : gerer macro word depuis excel

Bonsoir à tous

bouchet2
Faire une recherche sur le forum (la loupe en haut à droite)
mot-clé: FileExist

EDITION: Voir ici par exemple
​https://www.excel-downloads.com/threads/tester-si-un-classeur-existe.17800/

Je te laisse essayer de voir comment utiliser cette fonction
(ou une autre car rien ne t’empêche de faire d'autres recherches ici ou ailleurs avec d'autres mots-clés )

 

[fhoest]

Re : gerer macro word depuis excel

Bonjour Bouchet2,staples1600.

Je suis ravi de voir que Bouchet2 a trouver réponse à son problème poser ici, et déplacer par moi même dans la bonne section (avec le ptit bonjour),
Pour l'instant nous avons déjà des membres de qualités,mais jamais assez.

A bientôt.

 

[Staple1600]

Re : gerer macro word depuis excel

Bonjour à tous

fhoest
Par lassitude j'ai fini par cesser de me renfrogner face au "multipostage".
Néanmoins merci d'avoir signaler celui-ci.
Je serai plus vigilant à la prochaine question de bouchet2.

PS: Je ne connaissais pas ton site (je l'ajoute dans mes bookmarks)
Je vois que CC t'accompagne dans cette aventure Passe lui le bonjour de ma part.

 

[fhoest]

Re : gerer macro word depuis excel

Bonjour,

Bonjour à tous

fhoest
Par lassitude j'ai fini par cesser de me renfrogner face au "multipostage".

pas bien grave le multipostage ,néanmoins je pense que lorsque l'on a une réponse on peut mettre les multipostes à jours,pour ce qui cherche de l'autre coté.

PS: Je ne connaissais pas ton site (je l'ajoute dans mes bookmarks)
Je vois que CC t'accompagne dans cette aventure Passe lui le bonjour de ma part.

Cela sera fait, bienvenue à toi.
A bientôt ici ou ailleurs. ( bon weekend)

 

[bouchet2]

Re : gerer macro word depuis excel

Bonjour,
Je reviens vers vous après avoir travaillé sur les formulaires.
J’ai pour cela un créer un classeur essai formulaires avec une feuille émargement et une feuille vote.
Userform1 est mon formulaire pour la feuille émargement.
Userform est mon formulaire pour la feuille vote.
Premier souci sur userform1 uniquement, il faudrait que je puisse écrire dans la textebox4 (‘mandataire » ,
Ensuite je ne sais pas comment démarrer pour que les boutons d’option aillent se ranger la textbox3.
J’ai cherche actuellement peut être par la solution case avec frame.
Une fois terminé le programme sera parfait pour tout syndic bénévole qui le désirera.

Merci d’avance

Jean BOUCHET

 

[Staple1600]

Re : gerer macro word depuis excel

Bonjour à tous

bouchet2

Petit préambule matinal (histoire d'hérisser le poil.. chouette ça presque rime ;)​

Voir ci-après (site choisi au hasard des résultats "g..gliens".) -> Le point 3
Voila pour la piqûre de rappel.
​

Bon passons maintenant à ta question.
Ceci n'existe pas chez VBA!
Code vbA:
Private Sub TextBox4_initialize()
'mandataire
Dim Cell As Range
With Sheets("emargement")
For Each Cell In .Range("I16:I" & .Range("C65536").End(xlUp).Row)
Me.TextBox4.AddItem (Cell & " " & Cell.Offset(0, 9))
Next
End With
End Sub

Par conséquent, il te faut d'urgence appuyer sur la touche F1 dans VBE ( faire ALT+F11 pis F1) car ...
Un contrôle TextBox n'a pas d'événement Initialize.
Un contrôle TextBox n'a pas de méthode AddItem.

Si tu n'utilises pas une syntaxe VBA correcte selon les contrôles que tu utilises, tu te créées des problèmes tout seuls .

Commence par lire ce que dit l'aide VBA en ligne (inestimable touche F1) et regarde les exemples fournis dans la dite aide.

 

[Staple1600]

Re : gerer macro word depuis excel

suite...

Voir ci-dessous ce que dit l'aide VBA sur le contrôle TextBox
J'ai mis en rouge ce que me semble primordial, un TextBox normalement est utilisé pour recevoir des données saisies (manuellement donc) par un utilisateur.
Il n'est pas censé être rempli par le biais d'un code VBA. Pour ce faire, c'est plutôt un contrôle Label qui est employé)
(sauf exception comme un TextBox pré-rempli avec la date du jour courant par exemple)

TextBox, contrôle
Affiche des informations émanant d'un utilisateur ou d'un ensemble organisé de données.
Remarques
Le contrôle TextBox est le contrôle le plus souvent utilisé pour afficher les informations entrées par un utilisateur. Il peut également afficher un ensemble de données, tel qu'une table, une requête, une feuille de programmation ou le résultat d'un calcul. Si un contrôle TextBox est dépendant d'une source de données, les changements apportés au contenu d'un contrôle TextBox modifient aussi la valeur de la source de données dont il dépend.
Le format appliqué à toute partie du texte du contrôle TextBox se répercutera à la totalité du texte du contrôle. Par exemple, si vous changez la police ou la taille d'un caractère du contrôle, la modification affecte tous les caractères du contrôle.
La propriété par défaut d'un contrôle TextBox est la propriété Value.
L'événement par défaut d'un contrôle TextBox est l'événement Change.

 

[Staple1600]

Re : gerer macro word depuis excel

Re

J'ai pris le temps de lire plus avant ton code VBA.
Ci-dessous une suggestion de code pour remplir un contrôle ComboBox
(avec cette méthode, on évite de passer par une boucle)
Code VBA:
Private Sub UserForm_Initialize()
Dim LigFin&
ComboBox2.Clear
With Sheets("emargement")
LigFin = .Range("C65536").End(xlUp).Row
ComboBox2.List = .Range("C16:C" & LigFin).Value
End With
End Sub
EDITION:
bouchet2
Tu sembles décidément tenir au Select et cie
Pourtant précédemment, je te conseillais de les éviter ...(et ce par deux fois... voir ci-dessous)
https://www.excel-downloads.com/threads/gerer-macro-word-depuis-excel.208913/
https://www.excel-downloads.com/threads/gerer-macro-word-depuis-excel.208913/

Tu es sûr que tu lis tous mes messages ??
Car ta macro nommée : Sub remplacementAPAR() en contient toujours ...

 

[bouchet2]

Re : gerer macro word depuis excel

Bonjour
Merci de me suivre encore.
Je n’ai que 2 mois de recherche sur VBA.

J’ai bien noté ta remarque sur « select », mais je ferais le nettoyage quand j’aurais fini le
Mes boutons options fonctionnent.
Il me reste un petit souci .
Dans le formulaire "émargement"
LES COPROPRIETAIRES inscrits SONT "A "PAR DEFAUT .
PROBLEME AVEC MANDATAIRE
Uniquement sur cette feuille émargement
Car sur "feuille vote" le mandataire arrive en copie de la feuille émargement;

Quand il y a un mandataire que l'on inscrit le vote ne s'inscrit pas immédiatement sur la colonne « I et J »
Mais fonctionne quand on quitte le formulaire
Je cherche aussi pour que le nom du mandataire soit à blanc immédiatement après l’enregistrement sur la colonne « I »pour qu’ensuite quand on appelle un autre copropriétaire la case mandataire soit vide
Toutes les solutions « focus « que j’ai essayé ne fonctionne pas ou je ne sais pas la placer.

Merci d'avance car aprés mon programme est fini.

Jean BOUCHET