Discussion :

[jojo86]

Bonjour,

Je suis confronté à un gros problème.

J'utilisais un code qui fonctionne très bien sous windows 98, XP, Vista...

Mais sous windows NT j'ai un soucis, le repertoire Windows ne s'appelle pas Windows mais WinNT (un truque dans le genre).

Le code que j'utilise est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Function CheminSystem()
 Dim RetVal As Long
 Dim SysDir As String
 SysDir = Space$(256)
 RetVal = GetSystemDirectory(SysDir, Len(SysDir))
 If RetVal <> 0 Then
 CheminSystem = Left$(SysDir, RetVal)
 End If
 End Function

J'ai une erreur sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SysDir = Space$(256)

Pourquoi??? Et comment m'en sortir?

Merci beaucoup.

[Arkham46]

bjr,

quel est le code et la description de l'erreur?

une erreur sur des fonctions de base telles que space provient souvent d'un problème dans les références

1 - allez dans le menu : outils => références
2 - faire une modif (ajout ou suppression d'une référence au hasard)
3 - cliquer sur OK pour valider et ainsi remettre les références en état
4 - retourner dans les références et annuler la modif précédente

[jojo86]

Ce code fait justement partis d'un module permettant de cocher automatiquement certaines references...

Mais je ne comprends pas pourquoi il bug...

[Arkham46]

Ce code fait justement partis d'un module permettant de cocher automatiquement certaines references...

ça peut expliquer l'erreur, vba n'aime pas trop qu'on "joue" avec les références.
ce n'est pas fait pour être modifier durant l'exécution

je n'ai pas d'autre idée que celle donnée précédemment