OVH Cloud OVH Cloud

Macro excel 2000 passe sous 2003

1 réponse
Avatar
poosh
bonjour,
j'aimerais savoir s'il existe des incompatibiltés ou des erreures connues
lorsque l'on passe de excel 2000 vers 2003.
Je m'explique:

apres avoir ouvert un classeur EXCEL,
je clic sur la macro macro.xla

toutjours sous le classeur excel je lui cree dans la barre de tache un
bouton macro.
Je lui specifie la macro à deroulée,

cette macro me permet de geenerer (grace au DTS Présent sur mon serveur) une
base de données
par l'intermediaire d'une interface.
Je clic sur un de mes boutons (de linterface)
et la j'obtiens l'erreur 52
"bad file name or number"

je lance le mode debug
et il est mise en evidence le fonction DIR()
qui doit me permettre de recuperer le chemin du repertoire
[suite de mon code (que je ne comprend pas totalement) si le chemin existe
je vide les repertoire fils sinon je le cree

CODE:
'Vérification de l'existence de l'arborescence cible
'Création des répertoires si nécessaires sauf celui correspondant à la
valeur de ENV
If Dir(CurrentWb.Worksheets("INI").Range("ENV").Value, vbDirectory) = "" Then
MsgBox "répertoire " & CurrentWb.Worksheets("INI").Range("ENV").Value &
" inexistant !", vbCritical
Exit Function
End If
]

Si ca peut vous aider,
je travail sur un windows server 2003 (pour linstant je travail direct sur
serveur, pas à partir d'un client), mon SGBD est MS SQL Serve 2000 (version
standard)
et cette configuration focntionnait sous windows server 2003 mais avec
office 2000.

1 réponse

Avatar
papou
Bonjour
Vérifie les éventuelles références manquantes dans Outils Références dans
l'éditeur Visual Basic
Si tu en trouves tu les décoches et tu enregistres le fichier.

Cordialement
Pascal

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

bonjour,
j'aimerais savoir s'il existe des incompatibiltés ou des erreures connues
lorsque l'on passe de excel 2000 vers 2003.
Je m'explique:

apres avoir ouvert un classeur EXCEL,
je clic sur la macro macro.xla

toutjours sous le classeur excel je lui cree dans la barre de tache un
bouton macro.
Je lui specifie la macro à deroulée,

cette macro me permet de geenerer (grace au DTS Présent sur mon serveur)
une
base de données
par l'intermediaire d'une interface.
Je clic sur un de mes boutons (de linterface)
et la j'obtiens l'erreur 52
"bad file name or number"

je lance le mode debug
et il est mise en evidence le fonction DIR()
qui doit me permettre de recuperer le chemin du repertoire
[suite de mon code (que je ne comprend pas totalement) si le chemin existe
je vide les repertoire fils sinon je le cree

CODE:
'Vérification de l'existence de l'arborescence cible
'Création des répertoires si nécessaires sauf celui correspondant à la
valeur de ENV
If Dir(CurrentWb.Worksheets("INI").Range("ENV").Value, vbDirectory) = ""
Then
MsgBox "répertoire " & CurrentWb.Worksheets("INI").Range("ENV").Value &
" inexistant !", vbCritical
Exit Function
End If
]

Si ca peut vous aider,
je travail sur un windows server 2003 (pour linstant je travail direct sur
serveur, pas à partir d'un client), mon SGBD est MS SQL Serve 2000
(version
standard)
et cette configuration focntionnait sous windows server 2003 mais avec
office 2000.