Discussion :

[pael013]

Bonjour,
voici ma macro

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
44
45
Sub cavite_naturelle()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim Chemin As String
  Dim i As Byte
  Dim j As Byte
 
 
 
 
 Set WordApp = CreateObject("word.application") 'ouvre session word
  Chemin = "D:\excel\fiche\"
  'Pour passer toutes les cellule renseignées de ta colonne A
For i = 2 To 600
 
 
 
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("D:\excel\modele.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = False
 
 
    For j = 1 To 30
 
 
    WordDoc.Bookmarks("Signet" & j).Range.Text = Cells(i, j)
 
    Next j
    'Ferme le document word en sauvegardant les modifications
    WordDoc.SaveAs Filename:=Chemin & "Fiche_" & Cells(i, 1).Value & "_NATURELLE.doc"
    WordDoc.Close
 
 
 
  Next i
 
 
 
  'ferme la session Word
  WordApp.Quit
 
 
End Sub

Lorsque je la lance j'ai un message d'erreur:
Erreur 6 : dépassement de capacité

J'ai essayé de reduire la boucle :For i = 2 To 100 , ca donne pareil.
Cela comence à fonctionner à partir de For i = 2 To 50.

quelq'un a-til une solution?

Merci d'avance

[Pierre Fauconnier]

Bonjour

Change le type des variables I et J. Le type Byte n'est pas le plus adapté, car la plage de valeurs est limitée à 0-255

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i As Integer, j As Integer

devrait solutionner ton problème...

[mayekeul]

essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim I as integer
dim j as integer

[pael013]

Merci parfait...