Discussion :

[clem92500]

Bonjour,

J'utilise actuellement une macro qui ouvre une serie de fichier Excel presents dans un dossier...
Ma macro fonctionne parfaitement sur mon PC (entreprise) mais j'aimerai mettre cette macro en partage..
Cependant d'un autre poste, lorsque ma macro tente d'ouvrir mes fichiers, l'adresse du repertoire les contenants n'est pas la bonne...
Auriez vous une idee pour faire fonctionner ma macro depuis les autres poste de l'entreprise?

Merci Beaucoup

[zit_zit]

tu pourrai mettre un bou de code ou le type d'erreur que tu as??

[clem92500]

Oui biensur,

L'erreur est de la forme:

Erreur d'execution '1004'

'C:\OGAN\Base de donnees\SC1.xls introuvable.verifier l'orthographe du nom du classeur et la validité de l'emplacement.

Un exemple type de ma ligne de code d'appel d'un fichier est :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'------------Chargement du Fichier  1-------GT1----------
 
Dim i As Integer
 
    ChDir _
        "C:\OGAN\Base de données BNA"
    Workbooks.Open Filename:= _
        "C:\OGAN\Base de données BNA\GT1.xls"
 
Range("A3:AP200").Select
 
'Copie du fichier
 
Selection.Copy
 
Windows("OGAN_V2.xls").Activate
 
Range("A3").Select
 
ActiveSheet.Paste
Windows("GT1.xls").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = False
 
Windows("OGAN_V2.xls").Activate
Range("B3").Select
 
'Selection de la derniere case
 
Selection.End(xlDown).Select
 
i = ActiveCell.Row
i = i + 1

[clem92500]

Dsl mais la vraie erreur est :

Erreur d'execution '1004'

' C:\OGAN\Base de données BNA\GT1.xls introuvable.verifier l'orthographe du nom du classeur et la validité de l'emplacement.

Merci de votre aide

[zit_zit]

le probleme vient du fait que l'adresse de ta macro C:\OGAN\Base de données BNA\GT1.xls marche car tu l'execute a partir de ton poste

il faut que du serveur tu ailles a ton poste
il faut que tu mettes un truc du genre:

c:\ton_compte_sur_le_serveur\OGAN\Base de données BNA\GT1.xls

il faut aussi que tu laisse un acces aux autres personnes sinon ils ne pourront pas acceder a ton fichier.

[clem92500]

Ok...
J'ai mis l'adresse reseau de chaque fichier pour l'ouverture...

Ca fonctionne toujours sur mon poste et je vais voir cet apres midi si ca fonctionne à partir d'un autre poste...

Merci beaucoup de ton aide