macro pour fermeture de fichier et enregistrer sous

[meldja]

Bonjour,
Désolé, à chaque fois que j'utilise la recherche, je ne trouve rien alors je vais poser une question certainement déjà traitée.
Est-il possible par macro de fermer un fichier Excel et de l'enregistrer sur le bureau depuis n'importe quel PC.
Ceci me semble compliqué parce que lorsque j'ai enregistré la macro pour enregistrer sous (fermer le fichier par macro, je ne peux pas le faire), j'ai le chemin d'accès avec mon nom d'utilisateur :
ChDir "C:\Documents and Settings\jamel\Bureau"
Je ne vois donc pas comment ce serait possible sur un autre PC avec un autre nom d'utilisateur ?? Enfin, sait-on jamais ?
Merci d'avance

 

[gilbert_RGI]

Re : macro pour fermeture de fichier et enregistrer sous

Bonjour

comme ceci

ChDir ("C:\Documents and Settings\" & Application.UserName & "\Bureau")

Cordialement

RGI

 

[meldja]

Re : macro pour fermeture de fichier et enregistrer sous

Merci,
Mon premier problème doit être réglé,
mais comment ajouter la fermeture du fichier parce que pour l'instant, je n'ai que l'enregistrement sous :
ChDir "C:\Documents and Settings\" & Application.UserName & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jamel\Bureau\FormationExcel.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Merci d'avance

 

[fanfan38]

Re : macro pour fermeture de fichier et enregistrer sous

Bonjour
Si tu veux enregistrer sous
saveas
Pour connaitre le chemin du fichier
chemin=activeworkbook.path (le fichier doit avoir été enregistre)
exemple:
ActiveWorkbook.SaveAs Filename:=Trim(chemin) & "/" & "essai.xls"
Pour arreter: Application.quit

A+ François

 

[meldja]

Re : macro pour fermeture de fichier et enregistrer sous

Bonjour,
J'ai un message d'erreur avec le code suivant :
ChDir "C:\Documents and Settings\" & Application.UserName & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Application.UserName & "\Bureau\FormationExcel.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

 

[gilbert_RGI]

Re : macro pour fermeture de fichier et enregistrer sous

ce code fonctionne chez moi

Sub essai()
ChDir "C:\Documents and Settings\" & Application.UserName & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Application.UserName & "\Bureau\FormationExcel.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit
End Sub

 

[gilbert_RGI]

Re : macro pour fermeture de fichier et enregistrer sous

il est possible d'ajouter pour ne pas avoir de boite d'alerte en cas d'écrasement de fichier

Sub essai()
Application.DisplayAlerts = False
ChDir "C:\Documents and Settings\" & Application.UserName & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Application.UserName & "\Bureau\FormationExcel.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
Application.Quit
End Sub

Salutations

RGI

 

[meldja]

Re : macro pour fermeture de fichier et enregistrer sous

J'ai toujours un message d'erreur de compilation avec ce code :
Application.DisplayAlerts = False
Sub Macro2()
ChDir "C:\Documents and Settings\" & Application.UserName & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Application.UserName & "\Bureau\FormationExcel.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
Application.Quit
End Sub
End Sub

 

[gilbert_RGI]

Re : macro pour fermeture de fichier et enregistrer sous

Bonsoir

ce fichier fonctionne

Cdlt

RGI

 

[Cousinhub]

Re : macro pour fermeture de fichier et enregistrer sous

Bonjour,
et si tu remplaces :

Application.UserName

par :

Environ("username")

Est-ce mieux?

 

[meldja]

Re : macro pour fermeture de fichier et enregistrer sous

Merci Gilbert RGI et bhbh,
En fait, le code de bhbh marhce nickel. J'ai fait comme il m'a dit, j'ai remplacé Application.username par Environ("username") et c'est bon.
Y a-t-il une explication au fait que le premier code marche bien chez Gilbert et pas chez moi.
En tout cas, encore merci à vous deux

 

[Pierrot93]

Re : macro pour fermeture de fichier et enregistrer sous

Bonjour à tous

l'un renvoie le nom utilisateur office "Application.UserName" et l'autre le nom de celui qui utilise la cession windows en cours, "Environ("username")", chez Gilbert ce nom doit être identique mais pas chez toi.

De toute évidence le plus approprié dans ce cas, recherche du dossier "bureau" de l'utilisateur, c'est "Environ("username")".

bonne journée
@+

 

[meldja]

Re : macro pour fermeture de fichier et enregistrer sous

Merci pour l'explication Pierrot