bouton sauvegarde

[pat12]

Bonjour,
J'ai un classeur Excel sur mon pc dans un dossier Mes Documents\Gestion et j'ai une sauvegarde sur un serveur qui est en réseau.
Les deux classeurs on le même nom.
Je souhaite faire un bouton qui écrase la sauvegarde a chaque foi que je clique dessus.
Si vous avez une idée.
Merci

 

[JCGL]

Re : bouton sauvegarde

Bonjour à tous,

Un fichier où il faut renseigner le chemin de la Cible

Utilisation de :

Option Explicit

Sub Sauvegarde()
Dim Cible
Cible = "G:\Sauvegarde.xls" 'A modifier par le chemin exact
Application.DisplayAlerts = 0
ActiveWorkbook.SaveAs Filename:=Cible, FileFormat:=xlNormal
Application.DisplayAlerts = 1
End Sub

A+ à tous

 

[pat12]

Re : bouton sauvegarde

Merci JCGL
Je ferai un essai demain
@+

 

[pat12]

Re : bouton sauvegarde

Super Merci
J'ai une autre question, existe t'il un moyen de ne pas copier le bouton « GO « sur l'exemple dans le deuxième classeur sur le serveur.
Actuellement le fichier est copié à l'identique
Merci

 

[JCGL]

Re : bouton sauvegarde

Bonjour à tous,

Option Explicit
Sub Sauvegarde()
Dim Cible
Cible = "G:\Sauvegarde.xls"
Application.DisplayAlerts = 0
 ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=Cible, FileFormat:=xlNormal
Application.DisplayAlerts = 1
End Sub

A+ à tous

 

[pat12]

Re : bouton sauvegarde

Merci je teste Vendredi.

 

[pat12]

Re : bouton sauvegarde

La commande fonctionne mais elle supprime les boutons sur les deux enregistrements sur mon pc et sur le serveur je souhaiterai carder le bouton sur mon pc et non sur le serveur.
Peux être qu’avec deux boutons un pour enregistrer le fichier sur le serveur sans bouton et un pour enregistrer le fichier normalement sur le pc.
Rajouter un message qui oblige d'enregistrer le serveur avant le pc.
Et encore merci de votre aide.@+

 

[JCGL]

Re : bouton sauvegarde

Bonjour à tous,,

Un seul bouton qui fait les deux :

• Sauvegarde du fichier avec le bouton
• Sauvegarde du fichier sur le serveur sans le bouton (renseigner la Cible)

Option Explicit

Sub Sauvegarde()
Dim Cible
Cible = "C:\Sauvegarde.xls"
Application.DisplayAlerts = 0
ActiveWorkbook.Save
ActiveSheet.Shapes("Logo_GO").Delete
ActiveWorkbook.SaveAs Filename:=Cible, FileFormat:=xlNormal
Application.DisplayAlerts = 1
End Sub

A+ à tous

 

[pat12]

Re : bouton sauvegarde

Et non ce systéme suprime le bouton sur le pc.
Merci