Besoin d'aide pour finaliser ma macro

[fenec]

Bonjour le forum

J’utilise actuellement cette macro qui me convient très bien, mon seul souci c’est que je ne parviens pas à la compléter pour mettre ma sauvegarde dans un fichier
Exemple: « c:\mes documents\dossiers en cours ».

Pour l’instant chaque sauvegarde va dans mes documents

Private Sub CommandButton7_Click()
ActiveWorkbook.SaveAs Filename:=[E17].Value & ".xls"

Workbooks.Open Filename:= _
"C:\Users\xxxxxx\Documents\Devis.xls"

End Sub

J’ai essayé comme ceci mais ca ne marche pas

Private Sub CommandButton7_Click()
ActiveWorkbook.SaveAs Filename:=[E17].Value & "C:\Users\xxxxxx\Documents\Dossiersencours.xls"

Workbooks.Open Filename:= _
"C:\Users\xxxxxx\Documents\Devis.xls"

End Sub

Merci de votre aide

 

[RENAUDER]

Re : Besoin d'aide pour finaliser ma macro

Bonjour,

Il existe l'utilisateur xxxxxx ?

Tu ne peux pas écrire

ActiveWorkbook.SaveAs Filename:=[E17].Value & "C:\Users\xxxxxx\Documents\Dossiersencours.xls

Tu peux écrire

ActiveWorkbook.SaveAs Filename:= "C:\Users\xxxxxx\Documents\" &[E17].Value &".xls"

A condition que xxxxx soit défini.

 

[Pierrot93]

Re : Besoin d'aide pour finaliser ma macro

Bonjour fenec, Eric

peut être comme ceci :

ActiveWorkbook.SaveAs Filename:= "C:\Users\xxxxxx\Documents\" &
[E17].Value & ".xls"

bon après midi
@+

 

[fenec]

Re : Besoin d'aide pour finaliser ma macro

Bonjour a tous les deux

Merci pour vos reponses rapide j'ai donc modifié comme suis

Private Sub CommandButton7_Click()
ActiveWorkbook.SaveAs Filename:="C:\Users\toto\Documents\Dossiers en cour" & [E17].Value & ".xls"

Workbooks.Open Filename:= _
"C:\Users\toto\Documents\DEVIS.xls"

End Sub

mais elles ne vont pas dans le dossier toujours dans mes documents

merci quand meme

 

[fenec]

Re : Besoin d'aide pour finaliser ma macro

Re,

AUtant pour moi je viens de trouver j'ai oublié un \

Private Sub CommandButton7_Click()
ActiveWorkbook.SaveAs Filename:="C:\Users\toto\Documents\Dossiers en cour\" & [E17].Value & ".xls"

Workbooks.Open Filename:= _
"C:\Users\toto\Documents\DEVIS.xls"

End Sub

Meric vous êtes super

 

[RENAUDER]

Re : Besoin d'aide pour finaliser ma macro

Bonjour,
C:\Users\toto\Documents n'est pas plutôt C:\Users\toto\Mes Documents

Sous XP, Mes Documents équivaut à C:\Documents and Settings\Toto\Mes documents
Sous Windows 7 Mes Documents équivaut à C:\Utilisateurs\Toto\Mes Documents

 

[fenec]

Re : Besoin d'aide pour finaliser ma macro

Re,

Viens de vérifier tout fonctionne parfaitement

J'ai bien écris ceci:

"C:\Users\toto\Documents\Dossiers en cour\" & [E17].Value & ".xls"

Merci encore

Bonne soirée