Bouton SAVE AS sur un serveur

Question

Bonjour, j'ai fait un fichier excel pour faire des soumissions dans lequel il y a un bouton Enregistrer qui enregistre sous le fichier sous un nom spécifique et dans un dossier spécifique.. Il marche parfaitement sur chacun des ordinateur de la compagnie qui l'utilise. Dernièrement, ils ont décidé de faire un serveur et d'y mettre le fichier excel. J'ai changé les macros pour pouvoir enregistrer les fichiers sur un dossier dans le serveur. J'ai ensuite créé un raccourci sur le Bureau (d'un ordinateur, pour faire les tests) du dossier d'enregistrement et du fichier excel. Malheureusement, au lieu d'aller dans le dossier voulu, ça enregistre dans le dossier Mes Documents.

Voici de quoi avait l'air le code avant de le changer :

Sub SaveAsA1()
    Dim newFile As String, fName As String, fName2 As String
    fName = Range("B14").Value
    fName2 = Range("F11").Value
    newFile = "Soumission #" & fName2 & " " & fName & " " & Format$(Date, "dd-mm-yyyy")
    ChDir _
    "C:\Documents and Settings\Ordi 2\Bureau\SOUMISSIONS"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=newFile
    Application.DisplayAlerts = True
End Sub

Je ne copierai pas l'autre code pour rien, la seule ligne que j'ai changée est :

"C:\Documents and Settings\Ordi 2\Bureau\SOUMISSIONS"

pour quelque chose comme

"Z:\SOUMISSIONS"

Est-ce que je dois passer par un autre chemin pour que excel reconnaisse le serveur? À moins que je dois me servir d'un IP? Je commence dans le VBA donc je ne connais rien aux codes avec un serveur.

Merci beaucoup!

Invité · Answer

L'utilisation de ChDir n'est pas "terrible" Mieux vaut mettre le chemin directement avec le nom du fichier Sub SaveAsA1() Dim newFile As String, fName As String, fName2 As String Dim sPath As String fName = Range("B14").Value fName2 = Range("F11").Value ' Définir le chemin de sauvegarde sPath = "\Monserveur\LeDossier\Sous-dossier\" ' Ou si tous les utilisateurs ont la même lettre : T en général sPath = "T:\LeDossier\Sous-dossier\" ' Nom du fichier newFile = "Soumission #" &amp; fName2 &amp; " " &amp; fName &amp; " " &amp; Format$(Date, "dd-mm-yyyy") ' INUTILE 'ChDir _ "C:\Documents and Settings\Ordi 2\Bureau\SOUMISSIONS" Application.DisplayAlerts = False ActiveWorkbook.SaveAs sPath &amp; newFile Application.DisplayAlerts = True End Sub A+...