Discussion :

[spad22]

Bonjour à tous,

Voilà j'ai déjà utilisé des conditions plusieurs fois et tout fonctionne bien. Seulement voilà je n'arrive pas à comprendre pourquoi avec ce code ça ne fonctionne pas. "x" est toujours considéré différent de "Nbre" alors que si je suis le déroulement pas à pas, je vois bien qu'à la dernière boucle "x" et "Nbre" ont la même valeur. Qu'ai-je manqué?

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
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
Public Sub Photo()
Dim Numero$
Dim No__$
Dim typephoto$
 
Dim typephoto__$(2)
 
    typephoto__$(0) = "Vue générale"
    typephoto__$(1) = "Vue rapprochée"
 
For x = 1 To Nbre
 
'j'ai supprimé plusieurs lignes de code pour l'insertion d'une image pour ne pas surcharger le post, je peux les remettre si besoin
 
	WordBasic.BeginDialog 450, 100, "Photos"
        WordBasic.Text 10, 10, 130, 13, "Numéro :", "Texte2"
        WordBasic.TextBox 140, 8, 300, 18, "num"
        WordBasic.Text 10, 30, 130, 13, "Type de photo :", "Texte3"
        WordBasic.DropListBox 140, 28, 300, 60, typephoto__$(), "typephoto"
        WordBasic.OKButton 150, 70, 150, 21
        WordBasic.EndDialog
        Set dlg = WordBasic.CurValues.UserDialog
        WordBasic.Dialog.UserDialog dlg
 
        Numero$ = dlg.num
 
        ActiveWindow.ActivePane.SmallScroll Down:=11
        WordBasic.InsertPara
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.TypeParagraph
        WordBasic.Insert typephoto__$(dlg.typephoto)
        typephoto$ = typephoto__$(dlg.typephoto)
        Selection.TypeText Text:=" n°"
        WordBasic.Insert Numeroscellé$
 
	If x <> Nbre Then
       	WordBasic.InsertPara
        WordBasic.InsertBreak Type:=0
        End If
 
Next
WordBasic.EndOfDocument
End Sub

[Heureux-oli]

Sans vouloir être désagréable, ne serait-il pas temps de passer du WordBasic au visual basic ??

Petite question ton Nbre, reçoit sa valeur comment ?

[spad22]

Sans vouloir être désagréable, ne serait-il pas temps de passer du WordBasic au visual basic ??

En fait je connais pas trop tout ça... Le visual basic, c'est complètement indépendant de Word? Il faut un logiciel particulier pour en faire? Désolé mais je suis plutôt novice dans le domaine.

Petite question ton Nbre, reçoit sa valeur comment ?

C'est à partir d'un InputBox. Désolé j'avais oublié de le mentionner.

[Heureux-oli]

Le WordBasic est l'ancien langage utilisé par Word pour le code.
Le WordBasic est un langage particulier.

Depuis un moment, mais je ne peux donner la version, on utilise VBA dans toutes les applications office.

Dis nous exactement ce que tu veux faire avec ta macro, il devrait être possible de la modifier.

[spad22]

En fait j'ai repris un document existant et j'ai créé ce dont j'avais besoin à partir de ce code.

Je n'y connaissais rien en macro avant.

Donc ce que j'ai besoin de faire :

A partir de boîtes de dialogue demandant le nombre de photos à ajouter, le chemin du fichier à ajouter, la légende de la photo je créé un document word avec une photo par page, en mode portrait ou paysage en fonction des dimensions de la photo. J'ajoute aussi un entête et pied de page.
Pour cette macro c'est tout. Mais comme j'en ai d'autres à faire, il serait intéressant que je trouve des infos sur le VBA. En même temps j'étais persuadé que ce je faisais en était...

Merci de m'indiquer un endroit où je peux trouver des exemples de code en VBA pour m'aider à comprendre comment ça fonctionne.

[Heureux-oli]

quelle est ta version de Word ?

[spad22]

J'utilise Office 2000 actuellement, mais il se peut que je passe sous 2002 d'ici quelques temps.
Autant rester sur 2000 car rien n'est sûr pour la version 2002.

[Heureux-oli]

Pour le VBA, c'est seulement en construction.

Mais le VBA fonctionne de la même manière sur Excel, Acces, Word, PowerPoint, ...

Tu peux toujours consulter les pages Cours

http://word.developpez.com/cours
http://access.developpez.com/cours
http://excel.developpez.com/cours