Bonjour a tous
En fonction de la valeur de ma combobox crée dans excel, cela ouvre un fichier word (modele de devis) puis une userform pour remplir le modele. Mon probleme vient du faite que cela marche 1 fois sur 5. Ca marche 1 fois puis la fois d'apres j'ai "erreur d'execution 462" Le serveur distant n'existe pas ou n'est pas disponible
voici mon code
Y a t il une solution.
De plus je souhaiterai apres avoir valider mes donnée de la userform faire apparaitre la boite de dialogue enregistrer sous pour enregistrer mon document word or ici ca enregistre mon fichier excel de départ. comment faire?
Merci de votre aide
A bientot
En fonction de la valeur de ma combobox crée dans excel, cela ouvre un fichier word (modele de devis) puis une userform pour remplir le modele. Mon probleme vient du faite que cela marche 1 fois sur 5. Ca marche 1 fois puis la fois d'apres j'ai "erreur d'execution 462" Le serveur distant n'existe pas ou n'est pas disponible
voici mon code
Code:
Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("numdevis").Range _
.InsertBefore TextBox4
.Bookmarks("usine").Range _
.InsertBefore ComboBox11
.Bookmarks("nom").Range _
.InsertBefore ComboBox10
.Bookmarks("titre").Range _
.InsertBefore TextBox2
.Bookmarks("lieu1").Range _
.InsertBefore ComboBox4
.Bookmarks("lieu2").Range _
.InsertBefore ComboBox5
.Bookmarks("lieu3").Range _
.InsertBefore ComboBox8
Application.Dialogs(xlDialogSaveAs).Show
End With
End Sub
Y a t il une solution.
De plus je souhaiterai apres avoir valider mes donnée de la userform faire apparaitre la boite de dialogue enregistrer sous pour enregistrer mon document word or ici ca enregistre mon fichier excel de départ. comment faire?
Merci de votre aide
A bientot