Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

GEODATA DAYS 2024

#1 Wed 18 January 2006 11:34

kikoo
Juste Inscrit !
Date d'inscription: 18 Jan 2006
Messages: 2

[ArcGIS 9.x] Définir un emplacement de sauvegarde automatiquement

--------------------------------------------------------------------------------

Bonjour,

J'ai un script VB pour me permettre d'automatiser certaines tâches sous ArcMap.

Par exemple j'appele la fonction ExecuteSaveAs

Code:

Public Sub ExecuteSaveAs()
Dim pCBs As ICommandBars
Set pCBs = ThisDocument.CommandBars
pCBs.Find(ArcID.File_SaveAs).Execute
End Sub

Cependant en utilisant cette fonction, je suis forcée de sélectionner manuellement l'emplacement où va se faire la sauvegarde.
J'aimerais ne faire aucun clic manuellement afin que tout soit complètement automatisé.
Quelqu'un aurait il une idée ?

merci,

Hors ligne

 

#2 Wed 18 January 2006 15:01

Ludovic L
Membre
Lieu: Tours
Date d'inscription: 23 Jun 2005
Messages: 333

Re: [ArcGIS 9.x] Définir un emplacement de sauvegarde automatiquement

Bonjour,

Completement intuitivement sans verifier que ca existe peut-etre en remplacant
pCBs.Find(ArcID.File_SaveAs).Execute

par
pCBs.Find(ArcID.File_Save).Execute

Vous avez essayé ?
Cordialement
Ludovic


Conservatoire d'espaces naturels Centre-Val de Loire
Responsable SIG et informatique

Hors ligne

 

#3 Wed 18 January 2006 15:36

kikoo
Juste Inscrit !
Date d'inscription: 18 Jan 2006
Messages: 2

Re: [ArcGIS 9.x] Définir un emplacement de sauvegarde automatiquement

en fait je veux enregistrer les fichiers à des endroits différents à chaque fois
je viens de trouver la solution :

Code:

Public Sub TestSauvegardeMXD()
    Dim pApp As IApplication
    Set pApp = Application
 
    pApp.SaveAsDocument ("c:\temp\MaSauvegarde.mxd")
    MsgBox "Le fichier a été sauvegardé.", vbInformation
 
End Sub

Hors ligne

 

Pied de page des forums

Powered by FluxBB