Script VBS afin de lancer une procédure de remplacement

Le
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 "\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


--
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
j
Le #20390671
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" 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
Le #20391901
Ok merci beaucoup
Vraiment très intéressant !!!
Alain

""
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" 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


--










Publicité
Poster une réponse
Anonyme