Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Bug a l'execution d'une macro

Bug a l'execution d'une macro

2 réponses
Avatar
pcvsfr
Voila j'ai ecrit une macro pour recoper le code d'une feuille dans une autre
feuille appartenant a un autre classeur
Cela fonctionne apperement mais excel me cree une erreur d'application
L'instruction a "Ox6507b0d4" emplois l'adresse mémoire "0x0025a94c", la
memoire ne peut pas ertre "read"
Cliquez sur ok pour terminer le programme
et il me jete d'excel

Quelqu'un sait il pour quoi
voici mon code


Dim s As String

Workbooks(ancienfichier).Activate

With Workbooks(ancienfichier).VBProject.VBComponents("Feuil3").CodeModule
s = .Lines(1, .countoflines)
End With

Set Wbk = Workbooks(nouveaufichier)

With Wbk.VBProject.VBComponents("Feuil3").CodeModule
nextline = .countoflines + 1
.InsertLines nextline + 1, s

End With
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
http://support.microsoft.com/search/default.aspx?qu=%22memory+could+not+be+read%22&catalog=LCID%3D1033


"pcvsfr" a écrit dans le message de news:

Voila j'ai ecrit une macro pour recoper le code d'une feuille dans une
autre
feuille appartenant a un autre classeur
Cela fonctionne apperement mais excel me cree une erreur d'application
L'instruction a "Ox6507b0d4" emplois l'adresse mémoire "0x0025a94c", la
memoire ne peut pas ertre "read"
Cliquez sur ok pour terminer le programme
et il me jete d'excel

Quelqu'un sait il pour quoi
voici mon code


Dim s As String

Workbooks(ancienfichier).Activate

With
Workbooks(ancienfichier).VBProject.VBComponents("Feuil3").CodeModule
s = .Lines(1, .countoflines)
End With

Set Wbk = Workbooks(nouveaufichier)

With Wbk.VBProject.VBComponents("Feuil3").CodeModule
nextline = .countoflines + 1
.InsertLines nextline + 1, s

End With













Avatar
pcvsfr
Beaucoup de blabla mais vraiment rien qui concerne mon pb


http://support.microsoft.com/search/default.aspx?qu=%22memory+could+not+be+read%22&catalog=LCID%3D1033


"pcvsfr" a écrit dans le message de news:

Voila j'ai ecrit une macro pour recoper le code d'une feuille dans une
autre
feuille appartenant a un autre classeur
Cela fonctionne apperement mais excel me cree une erreur d'application
L'instruction a "Ox6507b0d4" emplois l'adresse mémoire "0x0025a94c", la
memoire ne peut pas ertre "read"
Cliquez sur ok pour terminer le programme
et il me jete d'excel

Quelqu'un sait il pour quoi
voici mon code


Dim s As String

Workbooks(ancienfichier).Activate

With
Workbooks(ancienfichier).VBProject.VBComponents("Feuil3").CodeModule
s = .Lines(1, .countoflines)
End With

Set Wbk = Workbooks(nouveaufichier)

With Wbk.VBProject.VBComponents("Feuil3").CodeModule
nextline = .countoflines + 1
.InsertLines nextline + 1, s

End With