Discussion :

[NEC14]

Bonjour,
Lorsque je clique sur un bouton de ma feuille de calcul, l'utilisateur est dirigé vers un répertoire dans lequel il pourra choisir un sous répertoire pour y sauvegarder sa feuille.
Ce que je souhaite réaliser, c'est que le nom du fichier soit directement inscrit dans la zone "Nom du fichier" de la boîte de dialogue.
Le nom du fichier doit être constitué des infos des cellules D17 et N15 de la feuille active.
Si je ne suis pas assez clair dites le moi.
Ci-joint mon début de code.
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Sauv1_Click()
Cells.Select
    Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show ("S:\AGENTS\BON DE COMMANDE\BC 2010")
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
        Application.ExecuteExcel4Macro "page.setup(,,0.00,0.00,0.00,false,false,1,1,1,,100,,1,,0.00,0.00,,)"
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"

[Didier Gonard]

Si je ne suis pas assez clair dites le moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"S:\AGENTS\BON DE COMMANDE\BC 2010"

Si BC2010 est ton nom de fichier, c'est OK, si ton fichier est Toto, il faut

mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"S:\AGENTS\BON DE COMMANDE\BC 2010\Toto"

donc pour toi, il suffit de mettre à la place de Toto range ou cells xx.value dans une variable ou en concaténation...

cordialement,

Didier

[NEC14]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"S:\AGENTS\BON DE COMMANDE\BC 2010"

Si BC2010 est ton nom de fichier, c'est OK, si ton fichier est Toto, il faut

mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"S:\AGENTS\BON DE COMMANDE\BC 2010\Toto"

donc pour toi, il suffit de mettre à la place de Toto range ou cells xx.value dans une variable ou en concaténation...

cordialement,

Didier

Ce n'est pas ce que je cherche à faire comme je l'ai expliqué plus haut. Il faut que dans le chemin de sauvegarde, les infos des cellules mentionnées s'affichent automatiquement.

[Didier Gonard]

Ce n'est pas ce que je cherche à faire comme je l'ai expliqué plus haut. Il faut que dans le chemin de sauvegarde, les infos des cellules mentionnées s'affichent automatiquement.

Oui, c'est ce que j'ai expliqué

il suffit de concaténer ou de mettre en variable avant :

Ormonth :
donc pour toi, il suffit de mettre à la place de Toto range ou cells xx.value dans une variable ou en concaténation..

si en D1 tu as "toto" et en E1 " est mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogSaveAs).Show ("S:\AGENTS\BON DE COMMANDE\BC 2010"& cells(1,4).value & cells(1,5).value)

t'ouvriras la boîte Enregistrer sous au niveau du chemin : S:\AGENTS\BON DE COMMANDE\BC 2010 en mettant en nom de fichier : "toto est mon fichier"

Si tu mets en C1 "Technique" et ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogSaveAs).Show (S:\AGENTS\BON DE COMMANDE\BC 2010\" & cells(1,3).value & "\" & cells(1,4).value & cells(1,5).value)

il ira alors au niveau du chemin : S:\AGENTS\BON DE COMMANDE\BC 2010\Technique en mettant en nom de fichier : "toto est mon fichier"


cordialement,

Didier

[NEC14]

Bonjour,

Merci beaucoup c'est exactement ce que je souhaitais faire.
J'avais mal lu ta première réponse et je te prie d'accepter mes excuses.
Cordialement