Bug Excel

romain -  
 romain -
salut a tous

j'ai un petit bug sous Excel.
J'ai fait une macro qui copie des elements d'excel vers word.
J'ai ré-écrit une macro de ce type et Excel m'indique une erreur :
memoire insuffisante , erreur 5097
Quelqu'un sait comment arranger cela?
D'autant plus qu'en faisant la meme opération a la main (sans macro) il n'y a pas de pb memoire.
Merci
A voir également:

1 réponse

Philippe
 
Salut Romain,

il faudrait u peu plus de détails, voir meme le code...

Philippe.
0
romain
 
slt Philippe

oki je te file le code mais je pense pas que ca vienne de cela.
En effet, j'ai deja une macro identique qui marche.
La j'ai repris le meme code et ca ne marche plus.
Seule la forme des données change.
J'ai fait des tests avec tres peu de données (50 lignes sur 1 colonne) et ca ne marche tjs pas!

voici le code :

Application.ScreenUpdating = False
Sheets("Import Medline").Activate
If WorksheetFunction.CountA(Cells) > 0 Then
NbLignes = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
NbCols = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Else
MsgBox "La feuille ne contient pas de données"
Exit Sub
End If
Set PlageACopier = Range(Cells(1, 1), Cells(NbLignes, NbCols))
PlageACopier.Copy
Set AppWord = CreateObject("Word.Application")
With AppWord
.Visible = True
.Documents.Open Filename:="C:\Normalisation Medline.doc"

.Selection.Range.PasteSpecial DataType:=wdPasteText
.Run "Macro_Auteur_Medline"
.Application.Quit SaveChanges:=wdDoNotSaveChanges

End With

Sheets("Auteur").Activate
Range("A1").Select
ActiveSheet.Paste

End Sub
0
romain > romain
 
c'est bon j'ai trouvé...
j'ai oublié de cocher dans outils, reference (dans VBA) -> microsoft office word.........
2 jours de galere pour ca!

ne faites pas la meme coneries que moi

A bientot
0