Discussion :

[poosh]

bonjour,
d'une part je ne sais pas si je suis dans la bonne rubrique... désolé si ce n'est aos le cas


question:

je dispose d'un macro et d'un classeur excel permettant la creation d'une base de données avec un DTS ....

bon le truc c'est que j'arriv aps a lancer la macro sur mon classeur excel

donc j'aimerais savoir comment faire pour accrocher ma macro sur mon classeur ...

c'est quelques chose de tres urgent pour moi !!

merci

[SfJ5Rpw8]

et elle à qu'elle allure ta macro ..?

[ouskel'n'or]

et elle est où ta macro ?

[poosh]

mon application focntionnait sur configuration windows server 2003, office 2000 et sql server 2000

la j'utilise windows server 2003, sql server 2000 et office 2003:
ma question est ce que la focntion qui questionne le chemin et lexistance d'un dossier (DIR( ,vbdirectory)) focntionne encore sous excel 2003 ??

code qui bloque:
(debugeur microsoft visual basic met ce bout de prog en evidence (gras sur mon post) , desole je pensait avoir attache le fichier)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'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
If Dir(CurrentWb.Worksheets("INI").Range("ENV").Value + "\" + Ws.Range("AppNom").Value, vbDirectory) = "" Then
    MkDir (CurrentWb.Worksheets("INI").Range("ENV").Value + "\" + Ws.Range("AppNom").Value)
End If
If Dir(CurrentWb.Worksheets("INI").Range("ENV").Value + "\" + Ws.Range("AppNom").Value & "\" & Ws.Range("TraCode").Value, vbDirectory) = "" Then
    MkDir (CurrentWb.Worksheets("INI").Range("ENV").Value + "\" + Ws.Range("AppNom").Value & "\" & Ws.Range("TraCode").Value)
End If
If Dir(ls_obj, vbDirectory) = "" Then
    MkDir (ls_obj)
End If
If Dir(ls_cheminSQL, vbDirectory) = "" Then
    MkDir (ls_cheminSQL)
End If

on va cherhcer dans une feuille du classeur INI au champ ENV la valeur du champ ENV qui correspond au nom du serveur sur lequel effectuer le traitement

[poosh]

Ah la vache faudrait pas laisser les stagiaires faire n'importe koi

nan
en fait ma solution etait toute simple
afin d'atteindre l'arborescence
et donc de pouvoir tester l'existence ou non de celle ci (fonction Directory !)
il me fallait tout simplement autoriser/partager la racine
pour que la macro puisse fontionne



merci a vous deux

mon post etait pas clair car je voyais aps trop le probleme !!