[vba] sauvegarder sur le serveur

  • Initiateur de la discussion Ronan
  • Date de début
R

Ronan

Guest
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 :

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

Merci de votre aide
 

_Thierry

XLDnaute Barbatruc
Repose en paix
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]
 

Discussions similaires

Réponses
2
Affichages
159

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 301
dernier inscrit
cathnjp