[vba] sauvegarder sur le serveur

Ronan · 3 Août 2005

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 · 3 Août 2005

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 · 3 Août 2005

Merci Thierry!

[vba] sauvegarder sur le serveur

Ronan

Guest

_Thierry

XLDnaute Barbatruc

Ronan

Guest

Discussions similaires