sos création classeur vba

[coco]

Bonjour,


J'ai un petit souci qui j'espère va trouver sa solution.

Je travaille sur un classeur nommé exemple.xls

A partie de ce classeur je veux pouvoir creéer un autre classeur dont le modèle est un classeur appelé base.xls
Voilà la macro que j'ai faite.

Sub nouveau_classeur
chemin = Worksheets("accueil").Range("p2")
If TextBox1 = "" Then
MsgBox "Veuillez inscrire le nom de votre classeur"
Else
text = TextBox1.text
ChDir (chemin)
FileCopy "base.xls", (text & ".xls")
End If
End sub

Quelques explications : dans la feuille accueil en P2 est stocké le chemin du répertoire où se trouvent mes classeurs.
Mon problème est que ma macro fonction bien quand l'appli tourne en local : chemin c:\repertoire\
mais ne fonctionne pas si l'appli est stocké sur réseau : \\serveur\repertoire

Quelles fonctions où commande utilisées ?

Merci d'avance pour vos conseils.

coco

 

[Abel]

Bonjour coco,

Je n'ai pas testé mais essaie ceci :

ton chemin réseau a peut être un nom logique, du style I:\> correspond à \\SERVEUR\REPERTOIRE.
Utilise alors le chemin logique dans ta macro.

Le hic est si tu utilises ta macro sur des machines différentes et que ces chemins y sont définis différemment ou pas du tout.
Tu peux y palier en mettant un NomUtilisateur.bat sur le serveur qui est appelé à l'ouverture de la session de NomUtilisateur et dans lequel tu défini par défaut l'unité logique I.

Maintenant il y a peut être plus simple en faisant directement depuis Excel.

Abel