1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| Private Sub Document_Open()
' Macro enregistrée le 08/12/2006 par liop49
'
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
nomfich = Word.ActiveDocument.Name
Msg = "Voulez-vous enregistrer le CB " & vbCrLf & "Cliquez sur 'Oui' pour enregistrer" ' Définit le message.
Style = vbYesNo + vbQuestion ' Définit les boutons.
Title = "Demande d'enregistrement" ' Définit le titre.
Response = MsgBox(Msg, Style, Title) ' Affiche le message.
If Response = vbYes Then ' L'utilisateur a choisi Oui.
Nom = InputBox("Merci d'indiquer le nom de la plante suivi du n° de lot", "Nom du Fichier")
ChangeFileOpenDirectory "\\Repertoire mes douments\Yasmine\CONTROLES BOTANIQUES\" 'Spécifique pour Yasmine car c'est elle qui enregistre les CB sur son poste
ActiveDocument.SaveAs FileName:=Nom, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
'
MsgBox ("Le fichier " & Nom & ".doc a bien été enregistré dans le répertoire" & vbCrLf & "Serveur-caill\Documents\Yasmine\CONTROLES BOTANIQUES")
Else
End If
Documents("CB.doc").Activate
Documents("CB.doc").Close False
End Sub |
Partager