Bug Excel
romain
-
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
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
1 réponse
-
-
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
-
