Macro Enregistrer sous suivant cellule dans dossier specifique

[thom02]

Bonjour.


Je souhaite créer un macro qui liée à un bouton permet à l’utilisateur d’enregistrer sous.

- Dans un dossier spécifique C:\blablabla
- Avec un nom de fichier spécifique (d’après la cellule (Feuil7 D4))

Pour l’instant j’ai :

Application.Dialogs(xlDialogSaveAs).Show CStr(Feuil7.Range("D4").Value)


Qui me permet bien d’enregistrer avec le nom voulu mais dans le dossier où se trouve le fichier source, à moi d’aller ensuite naviguer jusqu’au dossier C:\blablabla.

Comment faire pour que « l’enregistrer sous » s’ouvre déjà dans C:\blablabla

D’avance merci pour votre aide !!

T.

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour thom,

Application.Dialogs(xlDialogSaveAs).Show "C:\blablabla\" & CStr(Feuil7.Range("D4").Value)

 

[thom02]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour thom,

Application.Dialogs(xlDialogSaveAs).Show "C:\blablabla\" & CStr(Feuil7.Range("D4").Value)

Bonjour tototiti2008 merci pour ta réponse rapide!!
Malheureusement cela ne fonctionne pas j'arrive tjrs dans mon dossier source.
Une idée?
D'avance merci!!

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

en effet, ça a fonctionné sur un exemple chez moi puis ça ne fonctionne plus...

peut-être :

ChDrive "C"
ChDir "C:\blablabla"
Application.Dialogs(xlDialogSaveAs).Show "C:\blablabla\" & CStr(Feuil7.Range("D4").Value)

 

[thom02]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

en effet, ça a fonctionné sur un exemple chez moi puis ça ne fonctionne plus...

peut-être :

ChDrive "C"
ChDir "C:\blablabla"
Application.Dialogs(xlDialogSaveAs).Show "C:\blablabla\" & CStr(Feuil7.Range("D4").Value)

Snif :-(

Ca ne fonctionne pas non plus. Merci pour ton aide.
Aurais tu encore une idée?

 

[GuillaumA]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour,

Je suis aussi intéressé par cette macro.
Juste:
- est ce possible de cibler le bureau, malgré des Users différents
- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?


Merci à vous 🙂

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

Bonjour GuillaumA, si tu permet on va commencer par essayer de répondre à thom

visiblement, difficile de demander d'enregistrer sur un autre lecteur avec Dialogs

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")

 

[thom02]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour,

Je suis aussi intéressé par cette macro.
Juste:
- est ce possible de cibler le bureau, malgré des Users différents
- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?


Merci à vous 🙂

Si on s'y met à plusieurs on va trouver 🙂

- Est ce que cela change qqch si le dossier est sur le reseau? A première vue je ne penses pas.
@ Guillaume, demande à google sur base de 2 cellule c'est possible je me souviens avoir vu un exemple. au pire, tu crèes dans ton fichier une 3ème cellule qui agrège tes 2 cellules

Si tu trouves la solution pour le dossier, pourrais tu stp la partager.
Merci

 

[thom02]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

Bonjour GuillaumA, si tu permet on va commencer par essayer de répondre à thom

visiblement, difficile de demander d'enregistrer sur un autre lecteur avec Dialogs

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")

Wouuuuuuu un tout grand merci !!!!

Ca fonctionne super merci!!!😀

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

- est ce possible de cibler le bureau, malgré des Users différents

à priori oui :

Environ("HOMEDRIVE") & Environ("HOMEPATH")

devrait donner le chemin du bureau

- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?

sans doute, mais je ne comprend pas bien, tu peux préciser ?

 

[Pierrot93]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour à tous,

une autre solution pour cibler le bureau :

Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

bon après midi
@+

 

[thom02]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

Bonjour GuillaumA, si tu permet on va commencer par essayer de répondre à thom

visiblement, difficile de demander d'enregistrer sur un autre lecteur avec Dialogs

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")

C'est a n'y rien comprendre.... la fenetre s'ouvre correctement, dans le bon dossier, avec la bonne proposition de nom d'enregistrement mais lorsque je clicque "Enregistrer" rien ne se passe 😱

Avez vous une idée?
Merci

 

[GuillaumA]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re-bonjour à tous!

à priori oui :

Environ("HOMEDRIVE") & Environ("HOMEPATH")

devrait donner le chemin du bureau

Comment le rajouter à la macro?

- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?

sans doute, mais je ne comprend pas bien, tu peux préciser ?

Et bien dans la cellule A1 j'ai un nom générique : nom-
dans la cellule A2, l'utilisateur tape le nom qu'il souhaite: GEORGE
Le résultat est que lorsqu'il enregistre par le bouton de macro, cela ouvre le bureau et le nom suivant s'affiche: nom-GEORGE

Cordialement,
Guillaume A.

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour thom02,

C'est a n'y rien comprendre.... la fenetre s'ouvre correctement, dans le bon dossier, avec la bonne proposition de nom d'enregistrement mais lorsque je clicque "Enregistrer" rien ne se passe

Dans mon message j'avais mis

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)

ce qui signifie qu'il faut enregistrer le fichier ensuite, avec un truc du genre :

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
 
ActiveWorkbook.SaveAs AdrEnregistr

 

[tototiti2008]

Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour GuillaumA,

Comment le rajouter à la macro?

à quelle macro ? pour la ligne de thom, ça donnerait, avec "nom-" en A1 et "GEORGE" en A2

AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:= Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\" & Range("A1").Value & Range("A2").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
 
ActiveWorkbook.SaveAs AdrEnregistr