Script VBS afin de lancer une procédure de remplacement
2 réponses
alain Lebayle
Bonjour,
J'ai développé un programme avec beaucoup de VBA qui est installé sur une
trentaine de postes sur un site. A la fermeture, le programme effectue une
sauvegarde vers le serveur, mais comme nous avons changé de nom de serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le
projet, aller dans le module et modifier le chemin d'accès. Remplacer
"ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau
aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie
puis referme...
Si oui, pouvez-vous m'indiquer la marche à suivre ?
Je vous remercie par avance !
Alain
Sub AA()
ThisWorkbook.Save
Application.DisplayAlerts = False
On Error GoTo Le_msg
ChDir "\\ALPHA\Les fichiers 2009"
ActiveWorkbook.SaveAs FileName:= _
"\\ALPHA\Les fichiers 2009\Fichiers 2009 Toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.DisplayAlerts = True
MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !"
Application.Quit
Exit Sub
Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !",
vbCritical, " Sauvegarde vers le serveur non réalisée!"
Application.Quit
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros excel par VBA Un exemple dont tu pourrais t'inspirer à http://jacxl.free.fr/cours_xl/api_vbs.html cf aussi VBcomponents dans http://jacxl.free.fr/cours_xl/vocabulaire_bis.html bon courage
"alain Lebayle" a écrit dans le message de news:
Bonjour, J'ai développé un programme avec beaucoup de VBA qui est installé sur une trentaine de postes sur un site. A la fermeture, le programme effectue une sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le projet, aller dans le module et modifier le chemin d'accès. Remplacer "ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie puis referme... Si oui, pouvez-vous m'indiquer la marche à suivre ? Je vous remercie par avance ! Alain
Sub AA() ThisWorkbook.Save Application.DisplayAlerts = False On Error GoTo Le_msg ChDir "ALPHALes fichiers 2009" ActiveWorkbook.SaveAs FileName:= _ "ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:úlse Application.DisplayAlerts = True MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !" Application.Quit Exit Sub Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !", vbCritical, " Sauvegarde vers le serveur non réalisée!" Application.Quit End Sub
--
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros
excel par VBA
Un exemple dont tu pourrais t'inspirer à
http://jacxl.free.fr/cours_xl/api_vbs.html
cf aussi VBcomponents dans
http://jacxl.free.fr/cours_xl/vocabulaire_bis.html
bon courage
J@C
"alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message de
news: e4pflccUKHA.1792@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'ai développé un programme avec beaucoup de VBA qui est installé sur une
trentaine de postes sur un site. A la fermeture, le programme effectue une
sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le
projet, aller dans le module et modifier le chemin d'accès. Remplacer
"ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau
aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie
puis referme...
Si oui, pouvez-vous m'indiquer la marche à suivre ?
Je vous remercie par avance !
Alain
Sub AA()
ThisWorkbook.Save
Application.DisplayAlerts = False
On Error GoTo Le_msg
ChDir "\ALPHALes fichiers 2009"
ActiveWorkbook.SaveAs FileName:= _
"\ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse
Application.DisplayAlerts = True
MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !"
Application.Quit
Exit Sub
Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !",
vbCritical, " Sauvegarde vers le serveur non réalisée!"
Application.Quit
End Sub
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros excel par VBA Un exemple dont tu pourrais t'inspirer à http://jacxl.free.fr/cours_xl/api_vbs.html cf aussi VBcomponents dans http://jacxl.free.fr/cours_xl/vocabulaire_bis.html bon courage
"alain Lebayle" a écrit dans le message de news:
Bonjour, J'ai développé un programme avec beaucoup de VBA qui est installé sur une trentaine de postes sur un site. A la fermeture, le programme effectue une sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le projet, aller dans le module et modifier le chemin d'accès. Remplacer "ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie puis referme... Si oui, pouvez-vous m'indiquer la marche à suivre ? Je vous remercie par avance ! Alain
Sub AA() ThisWorkbook.Save Application.DisplayAlerts = False On Error GoTo Le_msg ChDir "ALPHALes fichiers 2009" ActiveWorkbook.SaveAs FileName:= _ "ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:úlse Application.DisplayAlerts = True MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !" Application.Quit Exit Sub Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !", vbCritical, " Sauvegarde vers le serveur non réalisée!" Application.Quit End Sub
--
alain Lebayle
Ok merci beaucoup Vraiment très intéressant !!! Alain
"" a écrit dans le message de news:
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros excel par VBA Un exemple dont tu pourrais t'inspirer à http://jacxl.free.fr/cours_xl/api_vbs.html cf aussi VBcomponents dans http://jacxl.free.fr/cours_xl/vocabulaire_bis.html bon courage
"alain Lebayle" a écrit dans le message de news:
Bonjour, J'ai développé un programme avec beaucoup de VBA qui est installé sur une trentaine de postes sur un site. A la fermeture, le programme effectue une sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le projet, aller dans le module et modifier le chemin d'accès. Remplacer "ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie puis referme... Si oui, pouvez-vous m'indiquer la marche à suivre ? Je vous remercie par avance ! Alain
Sub AA() ThisWorkbook.Save Application.DisplayAlerts = False On Error GoTo Le_msg ChDir "ALPHALes fichiers 2009" ActiveWorkbook.SaveAs FileName:= _ "ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:úlse Application.DisplayAlerts = True MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !" Application.Quit Exit Sub Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !", vbCritical, " Sauvegarde vers le serveur non réalisée!" Application.Quit End Sub
--
Ok merci beaucoup
Vraiment très intéressant !!!
Alain
"j@c" <bidon@bidon.fr> a écrit dans le message de news:
eKBobYgUKHA.5584@TK2MSFTNGP05.phx.gbl...
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros
excel par VBA
Un exemple dont tu pourrais t'inspirer à
http://jacxl.free.fr/cours_xl/api_vbs.html
cf aussi VBcomponents dans
http://jacxl.free.fr/cours_xl/vocabulaire_bis.html
bon courage
J@C
"alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message
de
news: e4pflccUKHA.1792@TK2MSFTNGP04.phx.gbl...
Bonjour,
J'ai développé un programme avec beaucoup de VBA qui est installé sur une
trentaine de postes sur un site. A la fermeture, le programme effectue
une
sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le
projet, aller dans le module et modifier le chemin d'accès. Remplacer
"ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau
aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie
puis referme...
Si oui, pouvez-vous m'indiquer la marche à suivre ?
Je vous remercie par avance !
Alain
Sub AA()
ThisWorkbook.Save
Application.DisplayAlerts = False
On Error GoTo Le_msg
ChDir "\ALPHALes fichiers 2009"
ActiveWorkbook.SaveAs FileName:= _
"\ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse
Application.DisplayAlerts = True
MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !"
Application.Quit
Exit Sub
Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée
!",
vbCritical, " Sauvegarde vers le serveur non réalisée!"
Application.Quit
End Sub
Ok merci beaucoup Vraiment très intéressant !!! Alain
"" a écrit dans le message de news:
bien sûr, c'est possible on peut créer, supprimer ou modifier des macros excel par VBA Un exemple dont tu pourrais t'inspirer à http://jacxl.free.fr/cours_xl/api_vbs.html cf aussi VBcomponents dans http://jacxl.free.fr/cours_xl/vocabulaire_bis.html bon courage
"alain Lebayle" a écrit dans le message de news:
Bonjour, J'ai développé un programme avec beaucoup de VBA qui est installé sur une trentaine de postes sur un site. A la fermeture, le programme effectue une sauvegarde vers le serveur, mais comme nous avons changé de nom de
serveur,
il faut que je passe sur les 30 postes un par un, afin de déprotéger le projet, aller dans le module et modifier le chemin d'accès. Remplacer "ALPHA" par "BETA"
Pourrais t-on réaliser un script VBS qui une fois exécuté sur le bureau aille chercher le fichier dans C: l'ouvre puis déprotège et enfin modifie puis referme... Si oui, pouvez-vous m'indiquer la marche à suivre ? Je vous remercie par avance ! Alain
Sub AA() ThisWorkbook.Save Application.DisplayAlerts = False On Error GoTo Le_msg ChDir "ALPHALes fichiers 2009" ActiveWorkbook.SaveAs FileName:= _ "ALPHALes fichiers 2009Fichiers 2009 Toto.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:úlse Application.DisplayAlerts = True MsgBox "Sauvegarde terminée !", vbInformation, " Sauvegarde !" Application.Quit Exit Sub Le_msg: MsgBox "La sauvegarde vers le serveur n'a pas pu être réalisée !", vbCritical, " Sauvegarde vers le serveur non réalisée!" Application.Quit End Sub