Enregistrement via Macro

Famu · 20 Mai 2003

Bonjour,
C'est tout simple :

J'ai fait une macro pour, à partir d'un fichier "1" .XLS déja ouvert, :

-Ouvrir un fichier "2" .XLS
-Lancer un Ms Query dans le fichier "2" .XLS
-Sauvegarder les données réactualisées en faisant un "enregistrement sous" (Save as) afin de repréciser la directorie
-Fermer le fichier "2". XLS

Je suis de nouveau dans mon fichier "1" .XLS.

Le problème, est lorsqu'il exécute la Macro, il me demande de choisir par "oui, non, ou annulé" afin s'il doit écraser le fichier "2". XLS. Jaimerais supprimer ce choix et lui imposer, dans tous les cas, "OUI" (Vbyes).

Qqu'un connaît-il la syntaxe ?

Merci à tous pour vos réponses.

Benoit Cornille · 20 Mai 2003

Salut,

A la fermeture du fichier, cette instruction est nécéssaire :
Workbook("TonFichier").Close Savechanges = False '(ou True)
Il n'y auras plus la boite de message.

Benoit

Longue vie et prospere

Famu · 20 Mai 2003

Ok Benoit, mais en faisant comme ceci, je ne re-précise pas la directorie de la sauvegarde et ce n'est pas bien.
Merci quand même.

Benoit Cornille · 20 Mai 2003

Re :
Tu n'a qu'a indiquer le répertoire et le nom de fichier, avec l'instruction FileName

Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier en cours.

Longue vie et prospère

Famu · 20 Mai 2003

Pas mal...Je vais manger et juste après, je met cela en pratique.
Bon appétit et encore merci. Je te tiens au courant.

Famu · 20 Mai 2003

Voilà, je suis de retour. J'ai essayé, mais je pense avoir fait qqes fautes car pb.
1er essai :
Workbooks("P:\Temps et Méthodes\Base de données SU\SU#2.xls").Close Savechanges = True

2° essai :
Workbooks(Filename:="P:\Temps et Méthodes\Base de données SU\SU#2.xls").Close Savechanges = True

Y a t-il qqe chose qui de choc ?

Benoit Cornille · 21 Mai 2003

Salut,
SaveAs marche aussi.

Sub fermer()
Application.DisplayAlerts = False
strPath = "c:\xls"
ActiveWorkbook.SaveAs Filename:=strPath & "\" & ActiveWorkbook.Name
Application.DisplayAlerts = True
End Sub

Ceci enregistre le classeur actif, dans le repertoire que tu choisis.
Si je dis chaque fois autre chose, c'est que les possibilité sont énormes.

Longue vie et prospère

Enregistrement via Macro

Famu

Guest

Benoit Cornille

Guest

Famu

Guest

Benoit Cornille

Guest

Famu

Guest

Famu

Guest

Benoit Cornille

Guest

Discussions similaires