Auteur Topic: Compilatiefout in verborgen module ThisWorkbook (gelezen 20972 keer)

LosArrogantes · « **Gepost op:** 24 maart 2020, 10:33:50 »

Hallo,

Ik ben de auteur van een script gebouwd voor het aanmaken en archiveren terugname goederen.

Nu hebben ze bij sommige collega's tijdelijk pc's vervangen met refurbished pc's in afwachting van nieuwe pc's.

Bij de collega's waarbij de pc vervangen is lukt het niet meer om het script te gebruiken.

Reeds bij het opstarten hiervan krijgt men de melding "Compilatiefout in verborgen module ThisWorkbook"

De versie van Excel is 2013 32 bit.
Windows 10 64 bit

Hoe kan ik dit euvel oplossen ?
Heb reeds op het net gezocht maar niets effectief voor mijn geval gevonden...

Alvast bedankt voor jullie hulp!

Ex-lid · « **Reactie #1 Gepost op:** 24 maart 2020, 11:13:48 »

Zonder de code te zien die in de Thisworkbook event staat kunnen we daarover geen zinnig woord zeggen.
Gokje, Excel 64 bit versus Excel 32 bit.
Je hebt dezelfde vraag ook gesteld op Helpmij.nl.
https://www.helpmij.nl/forum/showthread.php/952815-Compilatiefout-in-verborgen-module-ThisWorkbook
Forumregel:

Citaat

Dubbelposten, een zelfde vraag posten op verschillende fora, wordt door Oplossing.be enkel toegelaten als de poster in zijn openingsbericht een link plaatst naar het topic op het forum waar hij dezelfde vraag gesteld heeft. het lid dient ook een korte reden op te geven waarom de vraag hier nogmaals gesteld wordt.

SoftAid · « **Reactie #2 Gepost op:** 24 maart 2020, 11:23:23 »

Hallo LosArrogantes,

Welkom op Oplossing.be

Is het mogelijk dat de refurbished PC's van je collega's 32 bits zijn?

Zou dat de reden kunnen zijn?

SoftAid

LosArrogantes · « **Reactie #3 Gepost op:** 24 maart 2020, 11:26:15 »

Citaat van: Dotchiejack op 24 maart 2020, 11:13:48

Zonder de code te zien die in de Thisworkbook event staat kunnen we daarover geen zinnig woord zeggen.
Gokje, Excel 64 bit versus Excel 32 bit.
Je hebt dezelfde vraag ook gesteld op Helpmij.nl.
https://www.helpmij.nl/forum/showthread.php/952815-Compilatiefout-in-verborgen-module-ThisWorkbook
Forumregel:

Excuus voor het niet doorverwijzen naar helpmij... :s

Ik check het even na op mijn pc en die van mijn collega's,

Mijne is een 32 bit versie, het zou raar moeten zijn mocht dit bij mijn collega' 64 zou zijn, het zijn identieke images...

LosArrogantes · « **Reactie #4 Gepost op:** 24 maart 2020, 11:27:09 »

Citaat van: SoftAid op 24 maart 2020, 11:23:23

Hallo LosArrogantes,

Welkom op Oplossing.be

Is het mogelijk dat de refurbished PC's van je collega's 32 bits zijn?

Zou dat de reden kunnen zijn?

SoftAid

Dank je ;-)

dat was mijn eerste gedacht ook, maar de pc's zijn 64 bits en office is de 32 bit variant...

Ex-lid · « **Reactie #5 Gepost op:** 24 maart 2020, 11:29:59 »

Je schrijft in je eerste postje.

Citaat

De versie van Excel is 2013 64 bit

en nu

Citaat

maar de pc's zijn 64 bits en office is de 32 bit variant

LosArrogantes · « **Reactie #6 Gepost op:** 24 maart 2020, 11:38:44 »

Citaat van: Dotchiejack op 24 maart 2020, 11:29:59

Je schrijft in je eerste postje.en nu

Aangepast! ;-)

Ex-lid · « **Reactie #7 Gepost op:** 24 maart 2020, 11:42:19 »

Kan je een voorbeeldbestandje posten of tenminste de code die in ThisWorkbok event staat.

LosArrogantes · « **Reactie #8 Gepost op:** 24 maart 2020, 12:03:46 »

Citaat van: Dotchiejack op 24 maart 2020, 11:42:19

Kan je een voorbeeldbestandje posten of tenminste de code die in ThisWorkbok event staat.

Dit is de code in thisworkbook :

Private Sub Workbook_Open()
Sheets("Retour document").Select
Sheets("Retour document").Range("F5:F6").Value = Date
Sheets("Retour document").Range("F4").Value = Application.UserName
Range("Q3:R3:S3").Select
ActiveCell.FormulaR1C1 = "Not Ready"

ActiveWorkbook.Save
End Sub

Maar het heeft niks met de code te maken want deze werk perfect ...
Het heeft te maken met die pc's...

Bij mij werkt het perfect!

LosArrogantes · « **Reactie #9 Gepost op:** 24 maart 2020, 12:11:19 »

Net gekeken bij mijn collega haar pc, het is een 32 bit office.

Ex-lid · « **Reactie #10 Gepost op:** 24 maart 2020, 12:23:07 »

Dit is voldoende voor je code

Code: [Selecteer]

Private Sub Workbook_Open()
With Sheets("Retour document")
.Range("F5:F6").Value = Date
.Range("F4").Value = Application.UserName
.Range("Q3").Value = "Not Ready"
End With
ThisWorkbook.Save
End Sub

Ik vermoed dat je een conflict krijgt met Date.
Zet eens een apostrof voor deze lijn en kijk of je de foutmelding krijgt

Code: [Selecteer]

.Range("F5:F6").Value = Date

SoftAid · « **Reactie #11 Gepost op:** 24 maart 2020, 12:29:40 »

Citaat van: LosArrogantes op 24 maart 2020, 11:26:15

........het zijn identieke images...

Je hebt een image van jou PC overgezet op die refurbished PC's

Wat werd meegenomen in die Image?

SoftAid

LosArrogantes · « **Reactie #12 Gepost op:** 24 maart 2020, 12:32:35 »

Citaat van: Dotchiejack op 24 maart 2020, 12:23:07

Dit is voldoende voor je code
Code: [Selecteer]
Private Sub Workbook_Open() With Sheets("Retour document") .Range("F5:F6").Value = Date .Range("F4").Value = Application.UserName .Range("Q3").Value = "Not Ready" End With ThisWorkbook.Save End SubIk vermoed dat je een conflict krijgt met Date.
Zet eens een apostrof voor deze lijn en kijk of je de foutmelding krijgt
Code: [Selecteer]
.Range("F5:F6").Value = Date

Wat zou het probleem met de Date kunnen zijn dan ?

Het heeft altijd zo gewerkt...

LosArrogantes · « **Reactie #13 Gepost op:** 24 maart 2020, 12:33:45 »

Citaat van: SoftAid op 24 maart 2020, 12:29:40

Je hebt een image van jou PC overgezet op die refurbished PC's

Wat werd meegenomen in die Image?

SoftAid

Neen, dat zijn images die gebruikt worden voor alle pc's in het bedrijf... ;-)

Ex-lid · « **Reactie #14 Gepost op:** 24 maart 2020, 12:37:17 »

Kijk eens in de vba editor in Extra, Verwijzingen. Staan er aangevinkte verwijzingen bij met ONTBREEKT? of als je een Engelse versie gebruikt Tools References MISSING

Help!

Menu

Hulp bij posten

Zoeken

Recente topics