IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

[VBA-W]Comment faire un fractionnement lorsque l'on veut?


Sujet :

VBA Word

  1. #1
    Membre du Club
    Profil pro
    Développeur .NET
    Inscrit en
    Février 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Février 2006
    Messages : 107
    Points : 56
    Points
    56
    Par défaut [VBA-W]Comment faire un fractionnement lorsque l'on veut?
    Bonjour,
    J'espere que cette question sera plus interessante ques mes précédentes...
    Alors voila, je souhaiterez mettre sur un document (grâce à vba), des infos chopé sur une BDD, les mettre sous forme de tableau au début du texte...jusque là c'est simple...
    Ensuite je souhaite que les données d'après (toujours issu d'une BDD), toujours sur un tableau, et surtout fractionner...cad qu'il y ait le document coupé en deux, tel un livre de poche.
    A l'aide de l'enregistrement macro vba j'ai eu :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
            ActiveWindow.Panes(2).Close
        End If
        If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
            ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
             = wdMasterView Then
            ActiveWindow.ActivePane.View.Type = wdPageView
        End If
        With ActiveDocument.PageSetup.TextColumns
            .SetCount NumColumns:=1
            .EvenlySpaced = False
            .LineBetween = False
        End With
        ActiveDocument.PageSetup.TextColumns.Add Width:=CentimetersToPoints(7.37), _
             Spacing:=CentimetersToPoints(1.25), EvenlySpaced:=False
    Mais voila, dès que je met ceci, il me met le document entier fractionner, et pas à partir d'un point particulier...
    Si vous aviez une idée de régler mon problème ca serai sympa...merci à vous...

  2. #2
    Membre actif
    Avatar de repié
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    335
    Détails du profil
    Informations personnelles :
    Âge : 37
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Décembre 2004
    Messages : 335
    Points : 281
    Points
    281
    Par défaut
    petite précision: tu fais ca sur Word si j'ai bien compris?
    Pti Pié

  3. #3
    Membre du Club
    Profil pro
    Développeur .NET
    Inscrit en
    Février 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Février 2006
    Messages : 107
    Points : 56
    Points
    56
    Par défaut
    Oui oui tout à fait, je fais ca sur word97, sur un .dot plus particulièrement.
    Désolé de n'avoir pas été assez clair....
    Je précise aussi que j'ai fais des recherches avant (comme d'habitude avant de poster un message sur le forum), je suis pas du style à vouloir tout sur un plateau d'argent, mais là je sèche complétement...

  4. #4
    Membre actif
    Avatar de repié
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    335
    Détails du profil
    Informations personnelles :
    Âge : 37
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Décembre 2004
    Messages : 335
    Points : 281
    Points
    281
    Par défaut
    je sais pas si mon idée est géniale parceque je travaille presque exclusivement sur Excel mais bon...

    si tu veut faire des actions sur une partie de tes données, tu veux pas les selectionner (.Select) et travailler sur cette selection (Selection.) ?
    Pti Pié

  5. #5
    Membre du Club
    Profil pro
    Développeur .NET
    Inscrit en
    Février 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Février 2006
    Messages : 107
    Points : 56
    Points
    56
    Par défaut
    Je suis désolé mais je ne sais pas utiliser le "Select.", je ne comprend pas trop comment ca marche avec la postion du curseur...

  6. #6
    Membre actif
    Avatar de repié
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    335
    Détails du profil
    Informations personnelles :
    Âge : 37
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Décembre 2004
    Messages : 335
    Points : 281
    Points
    281
    Par défaut
    Le principe du select est que VB va "griser" ce que tu selectionne (comme on le fait avec la souris par exemple quand on veut SELECTionner....

    Et donc, de la même manière que nous le faisons, toutes les actions se font sur cette selection

    t'a de la doc le dessus dans l'aide de VB
    Pti Pié

Discussions similaires

  1. [VBA-E] Comment faire une boucle lorsqu'il y a des cellules vides
    Par Annick.w dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 01/02/2007, 22h39
  2. [VBA-E]Comment faire pour écrire dans une page excel existante ?
    Par pauletta22 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/05/2006, 13h54
  3. [VBA-E] comment faire net send en VBA
    Par zouille dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 11/04/2006, 16h49
  4. [VBA-W]Comment faire suivre les macros d'un modèle?
    Par gusrom86 dans le forum VBA Word
    Réponses: 7
    Dernier message: 23/02/2006, 10h26
  5. [VBA][Excel] Comment faire pour faire une boucle?
    Par DonKnacki dans le forum Macros et VBA Excel
    Réponses: 29
    Dernier message: 19/12/2005, 14h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo