Discussion :

[Nyckel95]

Bonjour,
Je suis grand débutant en programmation et je suis en stage
J'ai pour mission de rendre un fichier Publisher automatique
Ainsi j'ai créé des userforms que j'ai remplis je passe maintenant a la programmation
J'ai pensé comme il n'existe pas de complément et donc de bouton variable d'utiliser la fonction rechercher et remplacer et de remplir mon tableau
avec les informations entrée dans les userforms
J'aimerais savoir si vous avez des pistes de codes pour m'aider car je n'ai aucune idée

ps: je sais le faire sous word et excel mais sur Publisher les codes ne fonctionne pas pareil j'ai l'impression

Merci d'avance
remy.

[kiki29]

Salut, à consulter : la FAQ ainsi que MicroSoft

[Nyckel95]

Merci d'avoir répondu aussi rapidement, avec une réponse aussi juste
C'est exactement ce dont j'ai besoin mais mon code ne fonctionne pas
j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim ThisDocument As Document
 
With ThisDocument.Find
 .Clear
 .FindText = "test"
 .ReplaceWithText = "victoire"
 .ReplaceScope = pbReplaceScopeAll
 .Execute
End With

Je suis sous Publisher 2010 cela pose t'il problème, je n'ai accès qu'à cette version.
Rémy.

[Nyckel95]

Mon programme fonctionne à présent dans la partie document mais pas dans le userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Application.ActiveDocument.Find
 .Clear
 .FindText = "test"
 .ReplaceWithText = "victoire"
 .ReplaceScope = pbReplaceScopeAll
 .Execute
End With

il ne me manquait que l"Application"

je vais continuer à chercher

[Nyckel95]

En fait j'avais besoin de fermer la fenêtre avant de lancer le programme je l'ai donc caché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 
 
'Dim ActiveDocument As Document
Me.Hide
With Application.ActiveDocument.Find
 .Clear
 .FindText = "test"
 .ReplaceWithText = aujour
 .ReplaceScope = pbReplaceScopeAll
 .Execute
 
End With
 
 
End Sub