Boîtes de dialogue (vba)

Le
Gen
Bonjour,

J'ai une macro en vb excel qui me permet de fusionner une base de données
excel avec un fichier word. Une fois la fusion terminé un nouveau document
est créé grace à la commande suivante:

With .MailMerge
.Destination = wdSendToNewDocument
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:úlse
End With

Jusque là aucun problème et ça fonctionne bien. Cependant, après cette
étape, je voudrais que la boîte de dialogue standard de word pour enregistrer
sous le nouveau document créé affiche et que l'utilisateur puisse ainsi
sélectionner l'emplacement où il veut enregistrer le nouveau document et le
nom qu'il veut lui donner ou encore annuler s'il ne veut pas enregistrer le
nouveau document.

Est-ce que quelqu'un peut m'aider avec ça ?

Merci !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #1611389

je voudrais que la boîte de dialogue standard de word pour enregistrer
sous le nouveau document créé affiche et que l'utilisateur puisse ainsi
sélectionner l'emplacement où il veut enregistrer le nouveau document et le
nom qu'il veut lui donner ou encore annuler s'il ne veut pas enregistrer le
nouveau document.


With dialogs(wdDialogFileSaveAs)
.name = "proposition de nom.doc"
R = .Show ' R = 0 si "Annuler"
End With

--
A+

Gen
Le #1611388
Bonjour,

Dialogs ne semble pas être géré lorsqu'il est intégré dans une macro excel ?

Merci !




je voudrais que la boîte de dialogue standard de word pour enregistrer
sous le nouveau document créé affiche et que l'utilisateur puisse ainsi
sélectionner l'emplacement où il veut enregistrer le nouveau document et le
nom qu'il veut lui donner ou encore annuler s'il ne veut pas enregistrer le
nouveau document.


With dialogs(wdDialogFileSaveAs)
.name = "proposition de nom.doc"
R = .Show ' R = 0 si "Annuler"
End With

--
A+






Geo
Le #1611387

Bonjour,

Dialogs ne semble pas être géré lorsqu'il est intégré dans une macro excel ?


Il faut toutes les données pour résoudre un problème.
Je n'avais pas fait le lien avec votre précédent message auquel vous
n'avez pas donné suite.

Donc :
With AppWord.dialogs(wdDialogFileSaveAs)

--
A+

Gen
Le #1611385
Désolée,

Merci beaucoup, tout fonctionne bien maintenant !



Bonjour,

Dialogs ne semble pas être géré lorsqu'il est intégré dans une macro excel ?


Il faut toutes les données pour résoudre un problème.
Je n'avais pas fait le lien avec votre précédent message auquel vous
n'avez pas donné suite.

Donc :
With AppWord.dialogs(wdDialogFileSaveAs)

--
A+






Publicité
Poster une réponse
Anonyme