GENTILE
XLDnaute Nouveau
Bonjour,
Après plusieurs jour de codage,
J'arrive à un codage avoisinant les 3800 lignes et donc au lancement je me doutais un peu de la chose, j'ai ce joli message et prévisible qui apparaît "Erreur de compilation : Procédure trop grande".
Je peux vous donner une partie du code, toute les lignes sont identiques, le but et de prendre une valeur dans un Excel et de remplacer le SIGNET Word identifier par la valeur de cette cellule. Sa fonctionne avec 1002 et dés que je passe à 1004 car les commandes fonctionnent par paire, sa ne fonctionne plus.
Mais chaque paire correspond à un signet et à une valeur.
Comment puis-je découper ce code afin qu'il s’exécute entièrement. Je pensais faire un découpage par chapitre par exemple mais sans aide de votre part.
Toutes mes informations à transférer sont regroupée sur une seule et même Feuille de calcul.
certaine ligne de code vont chercher un mot, comme les première (copier coller pure et dure),
d'autres lignes de code vont chercher une valeur calculée et avec un application d'arrondie toute simple.
Merci énormément pour votre aide par avance.
Cordialement. GENTILE
Après plusieurs jour de codage,
J'arrive à un codage avoisinant les 3800 lignes et donc au lancement je me doutais un peu de la chose, j'ai ce joli message et prévisible qui apparaît "Erreur de compilation : Procédure trop grande".
Je peux vous donner une partie du code, toute les lignes sont identiques, le but et de prendre une valeur dans un Excel et de remplacer le SIGNET Word identifier par la valeur de cette cellule. Sa fonctionne avec 1002 et dés que je passe à 1004 car les commandes fonctionnent par paire, sa ne fonctionne plus.
Mais chaque paire correspond à un signet et à une valeur.
Comment puis-je découper ce code afin qu'il s’exécute entièrement. Je pensais faire un découpage par chapitre par exemple mais sans aide de votre part.
Toutes mes informations à transférer sont regroupée sur une seule et même Feuille de calcul.
certaine ligne de code vont chercher un mot, comme les première (copier coller pure et dure),
d'autres lignes de code vont chercher une valeur calculée et avec un application d'arrondie toute simple.
Code:
Sub exportDonneesDansSignetsWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.Application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Projet v1.0.doc") 'ouvre document Word
WordApp.Visible = True 'word visible pendant l'operation
'les signets du document Word sont nommés X1 à X19
Set monsignet = WordDoc.Bookmarks("X1").Range
monsignet.Text = Sheets("Adminx").Range("I1").Value
Set monsignet = WordDoc.Bookmarks("X2").Range
monsignet.Text = Sheets("Adminx").Range("C1").Value
Set monsignet = WordDoc.Bookmarks("X3").Range
monsignet.Text = Sheets("Adminx").Range("C5").Value
.
.
.
.
Set monsignet = WordDoc.Bookmarks("Y152").Range
monsignet.Text = Round((Sheets("Transfert").Range("P60").Value), 2)
Set monsignet = WordDoc.Bookmarks("Y153").Range
monsignet.Text = Round((Sheets("Transfert").Range("P61").Value), 2)
End Sub
Merci énormément pour votre aide par avance.
Cordialement. GENTILE