Enregistrer un fichier avec une macro

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2009

• #2

Re : Enregistrer un fichier avec une macro

Bonjour xabi

essaye le code ci-dessous :

Code:

Application.GetSaveAsFilename

et également celui là :

Code:

Application.Dialogs(xlDialogSaveAs).Show

enfin, si j'ai bien compris ta demande...

bon après midi
@+

 

Vote positif 0 Vote négatif

X

xabi64

XLDnaute Occasionnel

• 17 Juin 2009

• #3

Re : Enregistrer un fichier avec une macro

merci pierrot je vais essayer.
mais est-ce que c'est possib de prédéfinir un dossier ou l'enregistrer sans que l'utilisateur ai besoin de chercher le dossier ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2009

• #4

Re : Enregistrer un fichier avec une macro

Re

pour définir un chemin par défaut :

Code:

Application.Dialogs(xlDialogSaveAs).Show "C:\MesDocumens\Excel"

pour l'enregistrer sans que l'utilisateur ait à choisir :

Code:

ThisWorkbook.SaveAs "C:\MesDocumens\Excel\nomfichier.xls"

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Juin 2009

• #5

Re : Enregistrer un fichier avec une macro

Bonsoir Pierrot Xabi64, le forum
Pierrot et si tu veux que la boîte de dialogue affiche aussi le ,nom du fichier encours c'est
quoi stp après Mes documents\ ????
merci d'avance
a+
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2009

• #6

Re : Enregistrer un fichier avec une macro

Bonsoir Papou,

je procède ainsi dans ce cas

Code:

ChDir "C:\MesDocumens\Excel"
Application.Dialogs(xlDialogSaveAs).Show "monfichier.xls"

bonne soirée
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Juin 2009

• #7

Re : Enregistrer un fichier avec une macro

bonsoir Pierrot Xabi, le forum
Merci de ta réponse
a+
papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2009

• #8

Re : Enregistrer un fichier avec une macro

Re

cela fonctionne également ainsi :

Code:

Application.Dialogs(xlDialogSaveAs).Show ""C:\MesDocumens\Excel\mytest.xls"

plus rapide...

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Juin 2009

• #9

Re : Enregistrer un fichier avec une macro

Re Pierrot
merci encore pour ce code en plus
a+ bonne soirée
Papou

 

Vote positif 0 Vote négatif

X

xabi64

XLDnaute Occasionnel

• 18 Juin 2009

• #10

Re : Enregistrer un fichier avec une macro

Bonjour tout le monde,

Pierrot j'ai essayé ce que tu m'as dit mais c'est pas ce qu'il me faut.
J'ai résolu mon problème et dès que j'ai 5minut je te dit comment j'ai fait.
Et merci encore.

A plus +

 

Vote positif 0 Vote négatif

X

xabi64

XLDnaute Occasionnel

• 18 Juin 2009

• #11

Re : Enregistrer un fichier avec une macro

re,

voila le code que j'ai

If c1 = "Documentations machines" And c2 = "COMBIBLOC" Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("E:\FICHIERS SERVEUR COMMUN\AIDE AMP\Documentations machines\COMBIBLOC\A RENOMMER.doc")
a.WriteLine ("Cause : ") + t2

a.WriteLine ("Descriptif rapide : ") + t3

a.WriteLine ("Action : ") + t4
Worksheets("Param").Range("D2").Hyperlinks(1).Follow
End If


En gros, j'enregistre mon fichier (A RENOMMER.doc)dans un dossier prédéfini et j'ouvre directement le dossier ce qui fait que l'utilisateur n'a plus qu'a renommer le fichier.

Voila je pense qu'on peut cloturer la discussion.

 

Vote positif 0 Vote négatif