VBA - script pour Indesign CS3

[naitgo]

Bonjour à tous,
Avec votre aide j'ai créé un script de numérotation de tickets. Ce script fonctionne très bien quand je l'utilise avec excel, y'a pas de soucis.
Mais, je souhaiterai faire fonctionner ce script avec le logiciel "Indesign CS3" qui accepte les scripts VB. Le problème c'est que je n'arrive pas à trouver les modifications que je dois apporter dans les premières lignes du code afin que le userform s'ouvre et me permette de rentrer les informations nécessaires à l'impression des tickets.
Voici mon code VBA :

Private Sub CommandButton1_Click()
'déclaration des variables
  Dim PageDe As Single, PageA As Single, p As Single
  Dim sPas As Single, sBorneMin As Single, sBorneMax As Single
  Dim numA As String, numB As String, numC As String, numD As String
  

  
  'identification des chiffres contenu dans TextBox 1 et 2
      If TextBox1.Value <> "" And TextBox2.Value <> "" Then
        PageDe = TextBox2
        PageA = TextBox1 / 4
    

'définition du sens de numérotation (montant ou descendant)
      If CheckBox1.Value = True Then
          sBorneMin = PageDe
          sBorneMax = PageA + TextBox2 - 1
          sPas = 1
        Else
          sBorneMin = PageA + TextBox2 - 1
          sBorneMax = PageDe
          sPas = -1
      End If
      
            
'boucle qui génère les numéros dans les cellules concernées
         For p = sBorneMin To sBorneMax Step sPas
           
 'insertion de p dans une variable
          numA = p
          numB = p + 1 * PageA
          numC = p + 2 * PageA
          numD = p + 3 * PageA
 
'recherche les cellules contenant n1, n2 etc... et remplace leur contenu par une variable
    Application.ReplaceFormat.NumberFormat = "00000"
         With Application.ReplaceFormat.Font
            .Size = 14
            .Superscript = False
            .Subscript = False
         End With
    Cells.Replace What:="n1", Replacement:=numA, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    Application.ReplaceFormat.NumberFormat = "00000"
    Cells.Replace What:="n2", Replacement:=numB, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    Application.ReplaceFormat.NumberFormat = "00000"
    Cells.Replace What:="n3", Replacement:=numC, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    Application.ReplaceFormat.NumberFormat = "00000"
    Cells.Replace What:="n4", Replacement:=numD, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
        
                 Worksheets("Feuil4").PrintOut
    
    Cells.Replace What:=numA, Replacement:="n1", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=numB, Replacement:="n2", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=numC, Replacement:="n3", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=numD, Replacement:="n4", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
            Next p
        
            End If
  
  Unload Me

End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value <> vbNullString Then
        If CLng(TextBox1.Value) Mod 4 <> 0 Then
            MsgBox "Veuillez saisir un multiple de 4", vbCritical + vbOKOnly, "Attention..."
            Cancel = True
            TextBox1.Value = ""
            TextBox1.SetFocus
        End If
    End If
End Sub

Private Sub TextBox1_Change()
    Label4.Caption = 0
    If TextBox1.Value <> "" Then Label4.Caption = Label4.Caption + CLng(TextBox1.Value)
    If TextBox2.Value <> "" Then Label4.Caption = Label4.Caption + CLng(TextBox2.Value)
    Label6.Caption = 0
    If TextBox1.Value <> "" Then Label6.Caption = CDbl(TextBox1 / 4)
End Sub

Private Sub TextBox2_Change()
    Label4.Caption = -1
    If TextBox1.Value <> "" Then Label4.Caption = Label4.Caption + CLng(TextBox1.Value)
    If TextBox2.Value <> "" Then Label4.Caption = Label4.Caption + CLng(TextBox2.Value)
End Sub

Voici un code VB qui créé des repères qui est livré avec Indesign CS3 et qui fonctionne en affichant une boîte de dialogue afin de saisir certaines informations :

Rem AddGuides.vbs
Rem An InDesignCS3 VBScript
Rem
Rem Adds guides around the selected object or objects.
Rem
Rem Choose Visible Bounds to consider the stroke weight of the paths when placing the guides,
Rem or choose Geometric Bounds to ignore the stroke weight when placing the guides
Rem Choose Each Item to position the guides around individual items in the selection,
Rem or Entire Selection to position the guides around the selection as a whole.
Rem
Rem For more about InDesign scripting, go to http://www.adobe.com/products/indesign/xml_scripting.html
Rem or visit the InDesign scripting user to user forum at http://www.adobeforums.com.
Rem
ReDim myObjectList(0)
Set myInDesign = CreateObject("InDesign.Application.CS3")
If myInDesign.Documents.Count <> 0 Then
    If myInDesign.Selection.Count <> 0 Then
        For myCounter = 1 To myInDesign.Selection.Count
            Select Case TypeName(myInDesign.Selection.Item(myCounter))
                Case "Rectangle", "Oval", "Polygon", "GraphicLine", "Button", "Group", "TextFrame"
                    If Not (IsEmpty(myObjectList(0))) Then
                        ReDim Preserve myObjectList(UBound(myObjectList) + 1)
                    End If
                    Set myObjectList(UBound(myObjectList)) = myInDesign.Selection.Item(myCounter)
            End Select
        Next
        If Not (IsEmpty(myObjectList(0))) Then
            myDisplayDialog myInDesign, myObjectList
        End If
    Else
        MsgBox ("Nothing is selected. Please select an object and try again.")
    End If
Else
    MsgBox ("Please open a document, select an object, and try again.")
End If
Function myDisplayDialog(myInDesign, myObjectList)
Set myDialog = myInDesign.Dialogs.Add
myDialog.Name = "AddGuides"
With myDialog.DialogColumns.Add
    With .BorderPanels.Add
            With .DialogColumns.Add
                With .StaticTexts.Add
                    .StaticLabel = "Add Guides at:"
                End With
            End With
            With .DialogColumns.Add
                Set myTopCheckbox = .CheckboxControls.Add
                myTopCheckbox.StaticLabel = "&Top"
                myTopCheckbox.CheckedState = True
                Set myLeftCheckbox = .CheckboxControls.Add
                myLeftCheckbox.StaticLabel = "&Left"
                myLeftCheckbox.CheckedState = True
                Set myBottomCheckbox = .CheckboxControls.Add
                myBottomCheckbox.StaticLabel = "&Bottom"
                myBottomCheckbox.CheckedState = True
                Set myRightCheckbox = .CheckboxControls.Add
                myRightCheckbox.StaticLabel = "&Right"
                myRightCheckbox.CheckedState = True
                Set myXCenterCheckbox = .CheckboxControls.Add
                myXCenterCheckbox.StaticLabel = "&Horizontal Center"
                myXCenterCheckbox.CheckedState = True
                Set myYCenterCheckbox = .CheckboxControls.Add
                myYCenterCheckbox.StaticLabel = "&Vertical Center"
                myYCenterCheckbox.CheckedState = True
            End With
    End With
    With .BorderPanels.Add
            With .DialogColumns.Add
                With .StaticTexts.Add
                    .StaticLabel = "Add Guides Around:"
                End With
            End With
            With .DialogColumns.Add
                Set myRangeButtons = .RadiobuttonGroups.Add
                With myRangeButtons
                    With .RadiobuttonControls.Add
                        .StaticLabel = "Each &Object"
                        .CheckedState = True
                    End With
                    With .RadiobuttonControls.Add
                        .StaticLabel = "Entire &Selection"
                    End With
                End With
            End With
    End With
    With .BorderPanels.Add
            With .DialogColumns.Add
                With .StaticTexts.Add
                    .StaticLabel = "Guides Based On:"
                End With
            End With
            With .DialogColumns.Add
                Set myBasedOnButtons = .RadiobuttonGroups.Add
                With myBasedOnButtons
                    With .RadiobuttonControls.Add
                        .StaticLabel = "&Geometric Bounds"
                        .CheckedState = True
                    End With
                    With .RadiobuttonControls.Add
                        .StaticLabel = "V&isible Bounds"
                    End With
                End With
            End With
    End With
End With
myReturn = myDialog.Show
If myReturn = True Then
    Rem Get the values from the dialog box.
    myTop = myTopCheckbox.CheckedState
    myLeft = myLeftCheckbox.CheckedState
    myBottom = myBottomCheckbox.CheckedState
    myRight = myRightCheckbox.CheckedState
    myXCenter = myXCenterCheckbox.CheckedState
    myYCenter = myYCenterCheckbox.CheckedState
    myRange = myRangeButtons.SelectedButton
    myBasedOn = myBasedOnButtons.SelectedButton
    myDialog.Destroy
    If (myTop + myLeft + myBottom + myRight + myXCenter + myYCenter) <> 0 Then
        myAddGuides myInDesign, myTop, myLeft, myBottom, myRight, myXCenter, myYCenter, myRange, myBasedOn, myObjectList
    End If
End If
End Function
Function myAddGuides(myInDesign, myTop, myLeft, myBottom, myRight, myXCenter, myYCenter, myRange, myBasedOn, myObjectList)
    Set myDocument = myInDesign.ActiveDocument
    myOldRulerOrigin = myDocument.ViewPreferences.RulerOrigin
    myDocument.ViewPreferences.RulerOrigin = idRulerOrigin.idSpineOrigin
    Rem Create a layer to hold the guides (if it does not already exist).
    Err.Clear
    On Error Resume Next
    Set myLayer = myDocument.Layers.Item("Guides")
    If Err.Number <> 0 Then
        Set myLayer = myDocument.Layers.Add
        myLayer.Name = "Guides"
        Err.Clear
    End If
    On Error GoTo 0
    'Set mySpread = myInDesign.ActiveWindow.ActiveSpread
    Rem Process the objects in myObjectList.
    For myCounter = 0 To UBound(myObjectList)
        Set myObject = myObjectList(myCounter)
        Rem Use geometric bounds or visible bounds.
        If myBasedOn = 0 Then
            myBounds = myObject.GeometricBounds
        Else
            myBounds = myObject.VisibleBounds
        End If
        Rem If we're at the first object, set up some initial bounding box values.
        If myCounter = 0 Then
            myX1 = myBounds(1)
            myY1 = myBounds(0)
            myX2 = myBounds(3)
            myY2 = myBounds(2)
        End If
        If myRange = 0 Then
            If TypeName(myObject.Parent) = "Page" Or TypeName(myObject.Parent) = "Spread" Then
                Set myPage = myObject.Parent
            Else
                Set myPage = myInDesign.ActiveWindow.ActiveSpread
            End If
            myDrawGuides myPage, myBounds(1), myBounds(0), myBounds(3), myBounds(2), myTop, myLeft, myBottom, myRight, myXCenter, myYCenter, myLayer
        Else
            Rem Compare the bounds values to the stored bounds.
            Rem If a given bounds value is less than (for x1 and y1) or
            Rem greater than (for x2 and y2) the stored value,
            Rem then replace the stored value with the bounds value.
            If myBounds(0) < myY1 Then
                myY1 = myBounds(0)
            End If
            If myBounds(1) < myX1 Then
                myX1 = myBounds(1)
            End If
            If myBounds(2) > myY2 Then
                myY2 = myBounds(2)
            End If
            If myBounds(3) > myX2 Then
                myX2 = myBounds(3)
            End If
        End If
    Next
    If myRange <> 0 Then
        If ((TypeName(myObject.Parent) = "Page") Or (TypeName(myObject.Parent) = "Spread")) Then
            Set myPage = myObject.Parent
        Else
            Set myPage = myInDesign.ActiveWindow.ActiveSpread
        End If
        myDrawGuides myPage, myX1, myY1, myX2, myY2, myTop, myLeft, myBottom, myRight, myXCenter, myYCenter, myLayer
    End If
    myDocument.ViewPreferences.RulerOrigin = myOldRulerOrigin
End Function
Function myDrawGuides(myPage, myX1, myY1, myX2, myY2, myTop, myLeft, myBottom, myRight, myXCenter, myYCenter, myLayer)
    If myTop = True Then
        myDrawGuide myPage, myY1, 0, myLayer
    End If
    If myLeft = True Then
        myDrawGuide myPage, myX1, 1, myLayer
    End If
    If myBottom = True Then
        myDrawGuide myPage, myY2, 0, myLayer
    End If
    If myRight = True Then
        myDrawGuide myPage, myX2, 1, myLayer
    End If
    If myXCenter = True Then
        myDrawGuide myPage, myX1 + ((myX2 - myX1) / 2), 1, myLayer
    End If
    If myYCenter = True Then
        myDrawGuide myPage, myY1 + ((myY2 - myY1) / 2), 0, myLayer
    End If
End Function
Function myDrawGuide(myPage, myLocation, myGuideOrientation, myLayer)
    Set myGuide = myPage.Guides.Add(myLayer)
    If myGuideOrientation = 0 Then
        myGuide.Orientation = idHorizontalOrVertical.idHorizontal
    Else
        myGuide.Orientation = idHorizontalOrVertical.idVertical
    End If
    myGuide.Location = myLocation
End Function

Est-ce que ma question est assez claire ?
D'avance je vous remercie pour votre aide.
Naitgo

 

[tototiti2008]

Re : VBA - script pour Indesign CS3

Bonjour naitgo,

Je ne suis malheureusement pas en mesure de te répondre, puisque tu m'apprends qu'Indesign CS3 accepte des scripts VB et par conséquent, j'en profite pour te poser la question :
Est-ce que tous les produits Adobe CS3 (et particulièrement Photoshop) acceptent des scripts VB ?

Sinon, la seule chose dont je suis sûr, c'est que l'objet "Cells" a assez peu de chance d'exister dans Indesign...

Joyeux noel et bonne année

 

[Staple1600]

Re : VBA - script pour Indesign CS3

Bonsoir à tous


tototi2008
Ce sont des scripts vbscript (pas du VBA mais proche dans la syntaxe)

(Extension : *.vbs)

Et comme on peut piloter Excel avec vbscript, il doit y avoir des possibilités.

 

[naitgo]

Re : VBA - script pour Indesign CS3

Bonsoir à tous,
Pour répondre à tototiti2008, Photoshop CS3 à bien une fonction script, mais ils sont créé directement par photoshop et je n'ai jamais essayé d'accéder au code. Ces scripts servent à effectuer des actions répétitives, ce qui gagne un temps précieux lorsqu'il y a beaucoup d'images à traiter.
Merci Staple1600 pour la précision importante que tu as donnée. Sais-tu ou je pourrai trouver de l'aide pour transformer mon script VBA en VBS ?
Encore une fois, merci pour votre aide.
Joyeux Noël et bonne année à tous.
Naitgo

 

[JNP]

Re : VBA - script pour Indesign CS3

Bonjour le fil ,
Dans "C:\Program Files (x86)\Adobe\Adobe Utilities\ExtendScript Toolkit 2\SDK", tu trouveras le fichier "Adobe Intro to Scripting.pdf" qui contient une bonne approche (en anglais) des 3 langages supportés : AppleScript, VBScript et JavaScript.
A priori,

[FONT=MyriadPro-Regular][SIZE=3][FONT=MyriadPro-Regular][SIZE=3]VBScript (Visual Basic and VBA will also work)[/SIZE][/FONT][/SIZE][/FONT]

donc il devrait supporter du VBA pur, ou tu peux aussi driver InDesign depuis Excel en ouvrant la référence "Adobe InDesign CS3 Type Library".
@ TotoTiti : Toujours dans cette même notice, il est bien question de piloter PhotoShop. Ne pas confondre avec les Scrips de Photoshop qui ne sont qu'un enregistrement type macro interne à PhotoShop et qui concerne surtout les actions répétitives (comme disait Naitgo) et le traitement par lot.
Bonne lecture

 

[JNP]

Re : VBA - script pour Indesign CS3

Re ,
Je viens de décortiquer ton code, qui ne me cause pas forcément sans l'USF associé , mais...
Plutôt que de t'embêter à écrire du code pour numéroter dans InDesign, ne serait-il pas plus simple, sachant qu'InDesign sait très bien importer du texte balisé avec les feuilles de style, de créer un fichier TXT depuis Excel puis de simplement l'importer dans tes étiquettes où il prendra automatiquement la mise en forme souhaitée ?
Bon courage