enregistrer sous

[chinel]

Salut tout le monde !

je voudrais bien svp, saugarder ma feuille excel avec la boîte de dialogue qui s'ouvre "enregistrer sous" et prendre comme titre la valeur des cellules A1+B1+C1+D1

Merci de votre aide !

 

[Compte Supprimé 979]

Re : enregistrer sous

Salut Chinel,

A ma connaissance ce n'est pas possible d'avoir les 2 (boite de dialogue + chemin d'enregistrement)

Tu peux soit avoir la boite de dialogue

Application.Dialogs(xlDialogSaveAs).Show

Soit faire l'enregistrement dans le dossier

VPathFic = ThisWorkbook.Path & "\" & Range("A1") & Range("B1") & Range("C1") & Range("D1")
ThisWorkbook.SaveAs VPathFic

A+

 

[anthony.unac]

Re : enregistrer sous

Salut Chinel,

[...]

Soit faire l'enregistrement dans le dossier

VPathFic = ThisWorkbook.Path & "\" & Range("A1") & Range("B1") & Range("C1") & Range("D1")
ThisWorkbook.SaveAs VPathFic

A+

Bonjour,

Dans ce dernier cas, a quel moment (élément déclencheur) s'effectue l enregistrement du fichier ?

Cordialement
Anthony

 

[Compte Supprimé 979]

Re : enregistrer sous

Salut Anthony,

Tu peux utiliser un bouton ou tout autre évènement souhaité 😉
il suffit d'y placer le code.

A+

 

[anthony.unac]

Re : enregistrer sous

D'accord.

Je dois avouer que j'ai beaucoup de lacunes en vba et je me pose toujours la question de savoir quel évènement peut déclencher une macro ?

J'en connais que deux pour l instant :
****************************
1/ A l'aide d'un bouton
2/ Avant d'imprimer (BeforePrint)

Anthony

 

[Compte Supprimé 979]

Re : enregistrer sous

Re,

Lorsque tu es dans l'éditeur VBA (ALT+F11)
si tu doubles clique sur une feuille pour aller voir le code,
tu verras en haut de ta feuille de code, 2 menu déroulant.

Dans le premier sélectionnes "Worksheet" dans le second tu trouveras tous les évènements concernant la feuille

Sinon en plus de la FAQ de ce forum et de ce sujet tu as ce lien ICI

A+

 

[mutzik]

Re : enregistrer sous

bonjour,

perso, j'aurais fait comme ceci :
Sub Dossier()
Dim choixDossier
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
choixDossier = .SelectedItems(1)
End If
End With
End Sub

ce code te permet de choisir le répertoire (le repertoire choisi se met dans la variable choixDossier)
il ne reste plus qu'à ajouter le code de sauvegarde suivant les paramètres (cellules ...) que tu veux

 

[anthony.unac]

Re : enregistrer sous

Re,

Lorsque tu es dans l'éditeur VBA (ALT+F11)
si tu doubles clique sur une feuille pour aller voir le code,
tu verras en haut de ta feuille de code, 2 menu déroulant.

A+

Trop bien le truc, effectivement c'est la ou il y a tout les évènements.
J ai retrouvé par exemple mon BeforePrint mais il y a aussi Open ou Save etc...
Merci
A noter tout de même que la liste des évènements dans le Worksheet n'a rien a voir avec celle du Workbook.

Anthony