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 !