[vba] sauvegarder sur le serveur

[Ronan]

Bonjour a tous,

je souhaiterai sauvegarder un fichier sur un serveur.
Pour tester, j'ai sauvegardé sous le c: ca marche tres bien.

Comment faut il faire pour sauvegarder directement sous le serveur ?

Voici la macro :

   Sheets(Array('Feuil1', 'Feuil2', 'Graph1')).Copy
     Application.DisplayAlerts = False
     ActiveWorkbook.SaveAs Filename:='ro5.xls'
     ActiveWorkbook.Close

Merci de votre aide

 

[_Thierry]

Bonjour Ronan, le Forum

Tu dois indiquer le Chemin vers ton Serveur, c'est tout

Option Explicit

Const FullPath As String = '\\mc-server\data\Users\Cash\Daily Diary\Current Month\TEST.xls'

Sub SaveAs()
Sheets(Array('Feuil1', 'Feuil2', 'Graph1')).Copy
ActiveWorkbook.SaveAs Filename:=FullPath
End Sub

Si tu as des mapping d' une Lettre pour ton Serveur la Constante donnera plutot ceci :

Const FullPath As String = 'I:\Data\Users\Cash\Daily Diary\Current Month\TEST.xls'

Bon aprèm
[ol]@+Thierry[/ol]

 

[Ronan]

Merci Thierry!