DominoArea.org [Archive]

J'ai recupéré un script sur le forum, j'essaie de l'adapter à mon appliJ'utilise Notes 5.010J'ai associé ce script à un bouton se trouvant dans un masque. Dans ce masque je viens de renseigner les champs StagiaireNom StagiairePrenom StagiaireEcole StagiaireEtude et StagiaireNiveauMon pbPourquoi je ne récupère pas la valeur des champs StagiairePrenom et StagiaireNom dans la variable StagNomIdem pour pour stagFormation qui reste videSub Click(Source As Button) Dim Session As New NotesSession Dim Workspace As New NotesUIWorkSpace Dim UIDoc As NotesUIDocument Dim dBase As NotesDatabase Dim DocProfil As NotesDocument Dim Object As Variant Dim rtItem As Variant Dim DirTemp As String Dim tFileName As String Dim tDocName As String Dim WordApp As Variant Dim DocWord As Variant Dim StagNom As String Dim StagFormation As String Dim dateTime As New NotesDateTime( "" ) dateTime.LSLocalTime = Now Set uidoc =workspace.CurrentDocument Set dBase=Session.CurrentDatabase Set DocProfil=dBase.GetProfileDocument("PROFIL") Set rtItem=DocProfil.GetFirstItem("PriseCharge") Set Object=rtItem.EmbeddedObjects(0) StagNom = StagiairePrenom+" "+StagiaireNom StagFormation = StagiaireEcole+" "+StagiaireEtude+" "+StagiaireNiveau tDocName="PriseC" If Not Object Is Nothing Then DirTemp$=Environ("Temp") If Right(DirTemp$,1)<>"\" Then DirTemp$=DirTemp$+"\" End If tFileName=DirTemp$ & Object.Source Call Object.ExtractFile(tFileName) Set WordApp=CreateObject("Word.Application") WordApp.Visible=True Set DocWord=WordApp.Documents.Add(tFileName) WordApp.Documents(1).Activate Set DocWord=WordApp.Application.ActiveDocument DocWord.Bookmarks.Item("nom").Select WordApp.Selection.TypeText stagnom DocWord.Bookmarks.Item("formation").Select WordApp.Selection.TypeText stagformation DocWord.Bookmarks.Item("datedujour").Select WordApp.Selection.TypeText "Document imprimé par " & Session.CommonUserName & ", le " & Now WordApp.Activate WordApp.saveas(tDocName) WordApp.quit End If End SubMerciDF

salutessaie plutot ca ......StagiaireNom = uidoc.FieldGetText("StagiaireNom")StagiairePrenom = uidoc.FieldGetText("StagiairePrenom")StagNom = StagiairePrenom+" "+StagiaireNom[%sig%]

Effectivement c'est OKJ'ai encore une erreur en fin du script j'essaie de déclencher l'impression et la sauvegarde de mon doc word, ça ne marche pasPourquoi SVP ?Y aurait il un endroit ou ces commandes seraient documentées ?MerciDFSub Click(Source As Button) Dim Session As New NotesSession Dim Workspace As New NotesUIWorkSpace Dim UIDoc As NotesUIDocument Dim dBase As NotesDatabase Dim DocProfil As NotesDocument Dim Object As Variant Dim rtItem As Variant Dim DirTemp As String Dim tFileName As String Dim WordApp As Variant Dim DocWord As Variant Dim StagNom As String Dim StagFormation As String Dim dateTime As New NotesDateTime( "" ) dateTime.LSLocalTime = Now Set uidoc =workspace.CurrentDocument Set dBase=Session.CurrentDatabase Set DocProfil=dBase.GetProfileDocument("PROFIL") Set rtItem=DocProfil.GetFirstItem("PriseCharge") Set Object=rtItem.EmbeddedObjects(0) StagNom = uidoc.FieldGetText("StagiairePrenom")+" "+uidoc.FieldGetText("StagiaireNom") StagFormation = uidoc.FieldGetText("StagiaireEcole")+" "+uidoc.FieldGetText("StagiaireEtude")+" "+uidoc.FieldGetText("StagiaireNiveau") If Not Object Is Nothing Then DirTemp$=Environ("Temp") If Right(DirTemp$,1)<>"\" Then DirTemp$=DirTemp$+"\" End If tFileName=DirTemp$ & Object.Source Call Object.ExtractFile(tFileName) Set WordApp=CreateObject("Word.Application") WordApp.Visible=True Set DocWord=WordApp.Documents.Add(tFileName) WordApp.Documents(1).Activate Set DocWord=WordApp.Application.ActiveDocument DocWord.Bookmarks.Item("nom").Select WordApp.Selection.TypeText stagnom DocWord.Bookmarks.Item("formation").Select WordApp.Selection.TypeText stagformation DocWord.Bookmarks.Item("datedujour").Select' WordApp.Selection.TypeText "Document imprimé par " & Session.CommonUserName & ", le " & Now WordApp.Selection.TypeText Now WordApp.Activate WordApp.Activate WordApp.saveas("c:\temp\tDocName.doc") WordApp.quit End If End Sub

Extrait de la documentation de Word XP, mais je sais que ça marche également sous Word 97.Utilise Document.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)avec comme paramètres:Background Argument de type Variant facultatif. Affectez-lui la valeur True pour que l'exécution de la macro se poursuive pendant l'impression du document par Microsoft Word.Append Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter le document spécifié au nom de fichier indiqué par l'argument OutputFileName. Affectez-lui la valeur False pour remplacer le nom de fichier spécifié par l'argument OutputFileName.Range Argument de type Variant facultatif. Représente la plage de pages. Il peut s'agir de l'une des constantes WdPrintOutRange.wdPrintAllDocument wdPrintCurrentPage wdPrintFromTo wdPrintRangeOfPages wdPrintSelection OutputFileName Argument de type Variant facultatif. Si l'argument PrintToFile a pour valeur True, cet argument spécifie le chemin d'accès et le nom du fichier de sortie.From Argument de type Variant facultatif. Représente le numéro de la première page à imprimer si l'argument Range a pour valeur wdPrintFromTo.To Argument de type Variant facultatif. Représente le numéro de la dernière page à imprimer si l'argument Range a pour valeur wdPrintFromTo.Item Argument de type Variant facultatif. Correspond à l'élément à imprimer. Il peut s'agir de l'une des constantes WdPrintOutItem.wdPrintAutoTextEntries wdPrintComments wdPrintDocumentContent wdPrintKeyAssignments wdPrintProperties wdPrintStyles Copies Argument de type Variant facultatif. Représente le nombre d'exemplaires à imprimer.Pages Argument de type Variant facultatif. Représente le numéro des pages et les plages de pages à imprimer, séparés par des virgules. Par exemple, spécifiez « 2, 6-10 » pour imprimer la page 2 et les pages 6 à 10.PageType Argument de type Variant facultatif. Représente le type des pages à imprimer. Il peut s'agir de l'une des constantes WdPrintOutPages.wdPrintAllPages wdPrintEvenPagesOnly wdPrintOddPagesOnly PrintToFile Argument de type Variant facultatif. Affectez-lui la valeur True pour envoyer les instructions de l'imprimante dans un fichier. Veillez à spécifier le nom du fichier à l'aide de l'argument OutputFileName.Collate Argument de type Variant facultatif. Si vous imprimez un document en plusieurs exemplaires, affectez la valeur True à cet argument afin d'imprimer toutes les pages du document avant d'imprimer l'exemplaire suivant.FileName Argument de type Variant facultatif. Représente le chemin d'accès et le nom de fichier du document à imprimer. Si vous ne spécifiez pas cet argument, Word imprime le document actif. (Cet argument est disponible uniquement avec l'objet Application.)ActivePrinterMacGX Argument de type Variant facultatif. Cet argument n'est disponible que pour Microsoft Office Édition Macintosh. Pour plus d'informations sur cet argument, consultez l'aide de référence du langage fournie avec Microsoft Office Édition Macintosh.ManualDuplexPrint Argument de type Variant facultatif. Affectez-lui la valeur True pour imprimer un document recto verso sur une imprimante sans kit d'impression recto verso. Si cet argument a pour valeur True, les propriétés PrintBackground et PrintReverse sont ignorées. Utilisez les propriétés PrintOddPagesInAscendingOrder et PrintEvenPagesInAscendingOrder pour contrôler la sortie lors d'une impression recto verso manuelle. Il se peut que cet argument ne soit pas disponible, selon la prise en charge de langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.PrintZoomColumn Argument de type Variant facultatif. Représente le nombre de pages à insérer horizontalement dans une page. Les valeurs possibles sont 1, 2, 3 ou 4. Utilisez-le avec l'argument PrintZoomRow pour imprimer plusieurs pages sur une seule feuille.PrintZoomRow Argument de type Variant facultatif. Représente le nombre de pages à insérer verticalement dans une page. Les valeurs possibles sont 1, 2 ou 4. Utilisez-le avec l'argument PrintZoomColumn pour imprimer plusieurs pages sur une seule feuille.PrintZoomPaperWidth Argument de type Variant facultatif. Représente la largeur à utiliser pour les pages imprimées, exprimée en twips (20 twips = 1 point ; 72 points = 1 pouce).PrintZoomPaperHeight Argument de type Variant facultatif. Représente la hauteur à utiliser pour les pages imprimées, exprimée en twips (20 twips = 1 point ; 72 points = 1 pouce).

Pour l'enregistrement voici la doc ocument.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)FileName Argument de type Variant facultatif. Nom à affecter au document. Il s'agit par défaut du nom de dossier et de fichier courant. Si le document n'a pas encore été enregistré, le nom par défaut est utilisé (par exemple, Doc1.doc). Si cet argument a déjà été spécifié pour un document, celui-ci est remplacé sans que l'utilisateur en soit averti.FileFormat Argument de type Variant facultatif. Format sous lequel le document est enregistré. Il peut s'agir de l'une des constantes WdSaveFormat. Pour enregistrer un document sous un format différent, spécifiez la valeur appropriée pour la propriété SaveFormat de l'objet FileConverter.Les constantes WdSaveFormat possibles sont les suivantes : wdFormatDocument Effectue l'enregistrement sous forme de document Word. Valeur par défaut. wdFormatDOSText Enregistre le texte sans mise en forme. Convertit tous les caractères de saut de section, de saut de page et de saut de ligne en marques de paragraphe. Utilise le jeu de caractères ANSI. Ce format permet de partager des documents Word avec des programmes DOS. wdFormatDOSTextLineBreaks Enregistre le texte sans mise en forme. Convertit tous les caractères de saut de ligne, de saut de section et de saut de page en marques de paragraphe. Utilisez ce format si vous souhaitez conserver les sauts de ligne, par exemple pour transférer des documents vers un système de messagerie électronique. wdFormatEncodedText Effectue l'enregistrement du document sous la forme d'un fichier texte codé. L'argument Encoding permet de définir la page de code à utiliser. wdFormatHTML Enregistre tout le texte et la mise en forme avec des balises HTML de sorte que le document final puisse s'afficher dans un navigateur Web. wdFormatRTF Enregistre la totalité de la mise en forme. Celle-ci est convertie en instructions que d'autres programmes, notamment les programmes Microsoft compatibles, peuvent lire et interpréter. wdFormatTemplate Enregistre le document sous forme de modèle Word. wdFormatText Enregistre le texte sans mise en forme. Convertit tous les caractères de saut de section, de saut de page et de saut de ligne en marques de paragraphe. Utilise le jeu de caractères ANSI. Utilisez ce format si le programme de destination ne parvient à lire aucun des autres formats disponibles. wdFormatTextLineBreaks Enregistre le texte sans mise en forme. Convertit tous les caractères de saut de section, de saut de page et de saut de ligne en marques de paragraphe. Utilisez ce format si vous souhaitez conserver les sauts de ligne, par exemple pour transférer des documents vers un système de messagerie électronique. wdFormatUnicodeText Enregistre le document sous forme de fichier texte Unicode. Convertit le texte selon diverses normes de codage de caractères courantes, notamment Unicode 2.0, Mac OS, Windows, EUC et ISO-8859. Autres types de fichiers Pour enregistrer le document selon un type de fichier pour lequel il n'existe aucune constante, utilisez l'objet FileConverters afin d'obtenir la propriété SaveFormat ; affectez ensuite la valeur de la propriété SaveFormat à l'argument FileFormat. LockComments Argument de type Variant facultatif. Affectez-lui la valeur True pour protéger le document contre l'insertion de commentaires. La valeur par défaut est False.Password Argument de type Variant facultatif. Chaîne du mot de passe permettant l'ouverture du document.AddToRecentFiles Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter le document à la liste des derniers fichiers utilisés qui s'affiche en bas du menu Fichier. La valeur par défaut est True.WritePassword Argument de type Variant facultatif. Chaîne du mot de passe permettant l'enregistrement des modifications apportées au document.ReadOnlyRecommended Argument de type Variant facultatif. Affectez-lui la valeur True pour que Microsoft Word propose le mode lecture seule à chaque ouverture du document. La valeur par défaut est False.EmbedTrueTypeFonts Argument de type Variant facultatif. Affectez-lui la valeur True pour enregistrer les polices TrueType avec le document. Si vous ne spécifiez aucune valeur, l'argument EmbedTrueTypeFonts prend, par défaut, celle de la propriété EmbedTrueTypeFonts.SaveNativePictureFormat Argument de type Variant facultatif. Si des graphiques ont été importés d'une autre plate-forme (telle que Macintosh), affectez-lui la valeur True pour enregistrer uniquement la version Windows des graphiques importés.SaveFormsData Argument de type Variant facultatif. Affectez-lui la valeur True pour enregistrer les données entrées dans un formulaire par un utilisateur comme un enregistrement de données.SaveAsAOCELetter Argument de type Variant facultatif. Si le document a un bordereau d'expédition attaché, affectez-lui la valeur True pour enregistrer le document sous la forme d'une lettre AOCE (le bordereau d'expédition est enregistré).Encoding Argument de type MsoEncoding facultatif. Page de code ou jeu de caractères qui doit être utilisé pour les documents enregistrés sous forme de fichiers texte codés. La valeur par défaut est la page de codes du système.Les constantes MsoEncoding possibles sont les suivantes : msoEncodingArabic msoEncodingArabicASMO msoEncodingArabicAutoDetect Non utilisée avec cette méthode. msoEncodingArabicTransparentASMO msoEncodingAutoDetect Non utilisée avec cette méthode msoEncodingBaltic msoEncodingCentralEuropean msoEncodingCyrillic msoEncodingCyrillicAutoDetect Non utilisée avec cette méthode. msoEncodingEBCDICArabic msoEncodingEBCDICDenmarkNorway msoEncodingEBCDICFinlandSweden msoEncodingEBCDICFrance msoEncodingEBCDICGermany msoEncodingEBCDICGreek msoEncodingEBCDICGreekModern msoEncodingEBCDICHebrew msoEncodingEBCDICIcelandic msoEncodingEBCDICInternational msoEncodingEBCDICItaly msoEncodingEBCDICJapaneseKatakanaExtended msoEncodingEBCDICJapaneseKatakanaExtendedAndJapanese msoEncodingEBCDICJapaneseLatinExtendedAndJapanese msoEncodingEBCDICKoreanExtended msoEncodingEBCDICKoreanExtendedAndKorean msoEncodingEBCDICLatinAmericaSpain msoEncodingEBCDICMultilingualROECELatin2 msoEncodingEBCDICRussian msoEncodingEBCDICSerbianBulgarian msoEncodingEBCDICSimplifiedChineseExtendedAndSimplifiedChinese msoEncodingEBCDICThai msoEncodingEBCDICTurkish msoEncodingEBCDICTurkishLatin5 msoEncodingEBCDICUnitedKingdom msoEncodingEBCDICUSCanada msoEncodingEBCDICUSCanadaAndJapanese msoEncodingEBCDICUSCanadaAndTraditionalChinese msoEncodingEUCChineseSimplifiedChinese msoEncodingEUCJapanese msoEncodingEUCKorean msoEncodingEUCTaiwaneseTraditionalChinese msoEncodingEuropa3 msoEncodingExtAlphaLowercase msoEncodingGreek msoEncodingGreekAutoDetect Non utilisée avec cette méthode. msoEncodingHebrew msoEncodingHZGBSimplifiedChinese msoEncodingIA5German msoEncodingIA5IRV msoEncodingIA5Norwegian msoEncodingIA5Swedish msoEncodingISO2022CNSimplifiedChinese msoEncodingISO2022CNTraditionalChinese msoEncodingISO2022JPJISX02011989 msoEncodingISO2022JPJISX02021984 msoEncodingISO2022JPNoHalfwidthKatakana msoEncodingISO2022KR msoEncodingISO6937NonSpacingAccent msoEncodingISO885915Latin9 msoEncodingISO88591Latin1 msoEncodingISO88592CentralEurope msoEncodingISO88593Latin3 msoEncodingISO88594Baltic msoEncodingISO88595Cyrillic msoEncodingISO88596Arabic msoEncodingISO88597Greek msoEncodingISO88598Hebrew msoEncodingISO88599Turkish msoEncodingJapaneseAutoDetect Non utilisée avec cette méthode. msoEncodingJapaneseShiftJIS msoEncodingKOI8R msoEncodingKOI8U msoEncodingKorean msoEncodingKoreanAutoDetect Non utilisée avec cette méthode. msoEncodingKoreanJohab msoEncodingMacArabic msoEncodingMacCroatia msoEncodingMacCyrillic msoEncodingMacGreek1 msoEncodingMacHebrew msoEncodingMacIcelandic msoEncodingMacJapanese msoEncodingMacKorean msoEncodingMacLatin2 msoEncodingMacRoman msoEncodingMacRomania msoEncodingMacSimplifiedChineseGB2312 msoEncodingMacTraditionalChineseBig5 msoEncodingMacTurkish msoEncodingMacUkraine msoEncodingOEMArabic msoEncodingOEMBaltic msoEncodingOEMCanadianFrench msoEncodingOEMCyrillic msoEncodingOEMCyrillicII msoEncodingOEMGreek437G msoEncodingOEMHebrew msoEncodingOEMIcelandic msoEncodingOEMModernGreek msoEncodingOEMMultilingualLatinI msoEncodingOEMMultilingualLatinII msoEncodingOEMNordic msoEncodingOEMPortuguese msoEncodingOEMTurkish msoEncodingOEMUnitedStates msoEncodingSimplifiedChineseAutoDetect Non utilisée avec cette méthode. msoEncodingSimplifiedChineseGBK msoEncodingT61 msoEncodingTaiwanCNS msoEncodingTaiwanEten msoEncodingTaiwanIBM5550 msoEncodingTaiwanTCA msoEncodingTaiwanTeleText msoEncodingTaiwanWang msoEncodingThai msoEncodingTraditionalChineseAutoDetect Non utilisée avec cette méthode. msoEncodingTraditionalChineseBig5 msoEncodingTurkish msoEncodingUnicodeBigEndian msoEncodingUnicodeLittleEndian msoEncodingUSASCII msoEncodingUTF7 msoEncodingUTF8 msoEncodingVietnamese msoEncodingWestern InsertLineBreaks Argument de type Variant facultatif. Si le document est enregistré sous forme de fichier texte, affectez à cet argument la valeur True pour placer des sauts de ligne à la fin de chaque ligne de texte.AllowSubstitutions Argument de type Variant facultatif. Si le document est enregistré sous forme de fichier texte, la valeur True permet à Word de remplacer certains caractères spéciaux par du texte d'aspect similaire. Un exemple consiste à afficher le symbole de copyright sous la forme (c). La valeur par défaut est False.LineEnding Argument de type Variant facultatif. Indique la manière dont Word marque les sauts de ligne et de paragraphe dans les documents enregistrés sous forme de fichiers texte. Il peut s'agir d'une constante WdLineEndingType.Les constantes WdLineEndingType possibles sont les suivantes : wdCRLF Valeur par défaut. wdCROnly wdLFCR Non utilisée avec cette méthode. wdLFOnly Non utilisée avec cette méthode. wdLSPS Non utilisée avec cette méthode. AddBiDiMarks Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter au fichier de sortie des caractères de contrôle permettant de conserver la disposition bi-directionnelle du texte du document d'origine.