Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Save copy as sur un serveur

Attila451

XLDnaute Occasionnel
Bonjour,
J'ai une macro qui marche pour faire une sauvegarde automatique sur mon disque dur:

Le fichier original TESTCOPIE est enregistré en sauvegarde avec la date du jour:

Sub ENR()

Dim datesauv As String
datesauv = Format(Now, "dd-mm-yy")

With ActiveWorkbook
.SaveCopyAs Filename:="C:\Users\F017540\GGGGG\TESTCOPIE" & " " & datesauv & ".xlsx"
End With

End Sub



Le problème est que le fichier XL est mis en partage sur un serveur. J'ai procédé de la même manière en copiant le chemin du fichier en partage:

file:///\\inetgefco.net\Dfs\FR-800\HQ-049\OVS\OVS\BO_MARSEILLE\SUIVI%20CLIENTS\MMMMM\Sauvegardes\TESTCOPIE.xlsx

et j'ai collé à la place du chemin sur C qui fonctionne sur mon pc:

Sub ENR()

Dim datesauv As String
datesauv = Format(Now, "dd-mm-yy")

With ActiveWorkbook
.SaveCopyAs Filename:="file:///\\inetggggg.net\Dfs\FR-800\HQ-049\OVS\OVS\BO_MARSEILLE\SUIVI%20CLIENTS\MMMMM\Sauvegardes\TESTCOPIE" & " " & datesauv & ".xlsx"
End With
End Sub

Par contre, ça beugue, j'ai un message me disant impossible de trouver le chemin ou que le fichier existe déjà...

Quelqu'un a t-il une piste svp ?
Merci d'avance pour votre aide !
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…