enregistrer sous selon nom de cellule Fermé

Question

Bonjour,

Je souhaiterais savoir s'il est possible de créer une macro qui permette l'enregistrement d'un fichier selon un nom de cellule ?

Par exemple, la cellule C2 se nomme "trucmachin", je voudrais avoir un bouton ou autre me permettant d'enregistrer directement le doc en "trucmachin" sans passer par "enregistrer sous" et de préférence dans un dossier spécifié !

Merci par avance...

Je précise que je ne connais absolument rien à VBA :( malheureusement d'ailleurs !

pou pouille · Answer

bonjours,
voici un exemple, penser à renseigner le chemin complet en A2 ex:
C:\...
http://www.cijoint.fr/cjlink.php?file=cj200911/cijcYoTqpx.xls

shadtita · Answer

Re,

Alors...j'avoue que je n'ai pas bien compris..Puis-je avoir quelques explications supplémentaires ?

Merciiii

Shadtita · Answer

Le nom de ma cellule est aléatoire (il s'agit de n° de devis), je voudrais donc qu'il enregistre selon une cellule.

J'ai essayé comme Pou pouille le propose, j'arrive à enregistrer selon le chemin proposé... mais pas selon le nom de la cellule.

Merci en tout cas pour ce début de réponse !

pou pouille · Answer

Re,
dans mon fichier si dans la case A2 on met l'emplacement avec le nom du fichier désiré
ici j'ai mis l'emplacement C:
ouveauclasseur.xls
donc le document est enregistrer dans le dossier C:\  avec comme nom nouveauclasseur.xls
quand on clic sur le bouton le document est enregistrer.

Shadtita · Answer

Oui, ça a très bien marché et c'est super parce que je ne connaissais pas !

Cependant, je voudrais que ça l'enregistre selon le nom d'une autre cellule (la cellule comportant mon nom de devis) et cela à un certain endroit...

Comment as tu fait pour le code ? tu le connaissais ? ou c'est via une macro que tu l'as créé ?

pou pouille · Answer

Re,
quel est l'emplacement de cette cellule ?? si c'est en C2 alors tu remplace la case A2 par ceci :
="c:\" & C2
j'ai appris en cherchant un peut sur des forums, et en écrivant un peut mes macro.

Shadtita · Answer

Ma cellule est B-C 14 (B-C parce que c'est une cellule fusionnée)

j'écris le chemin et après je fais &BC14 ?

J'essaye mais ça ne fonctionne pas, cela donne &BC14 comme nom :(

pou pouille · Answer

Re,
oui tu écrit : le chemin que tu souhaite ( attention à bien utiliser les " ")
="c:\" & B14
et bien respecter les espaces avant et après le signe &
(il suffit de metre B14 pour la cellul fusionnée)

Shadtita · Answer

Bon alors plusieurs choses :

- ça marche, j'ai réussi... mais uniquement lorsque B14 est remplie, sinon il me met un message d'erreur...
- y a t il une solution pour ne pas faire apparaître le chemin sur la feuille (qu'il n'y ait que le bouton)

Encore une fois, merci !

pou pouille · Answer

Re,
plusieurs possibilités:
1- tu fait masqué la colonne
2- tu indique le chemin dans ton code vba
pour cela il faut que tu ouvre Microsoft visual basic ( Alt+F11)
et que dans la feuil 1 ;Private Sub CommandButton1_Click()
tu change Fichier = Range("A2").Value
par
Fichier = "C:\...\" & Range("A2").Value
bien sur il faut indiquer un chemin pour C:\...\
et dans A2 tu ne garde que le nom de ton fichier

Shadtita · Answer

C'est bien ça que je dois mettre :

Private Sub CommandButton1_Click()
Dim Fichier As Variant
Fichier = "W:
omdemonchemin\" & Range("B14").Value
ActiveWorkbook.SaveAs Filename:= _
        Fichier
End Sub

parce qu'en écrivant ça, ça ne fonctionne pas et je n'arrive pas à trouver d'où vient le problème.

Je vais être embêtante, mais une fois que j'aurais réussi cette étape, est-il possible qu'en + de s'enregistrer sous un nom spécial, dans un endroit spécial, ... ça s'enregistre en PDF ? ... *non ne tapez pas* !

pou pouille · Answer

essayez en ecrivant cette fonction sur la meme ligne
ActiveWorkbook.SaveAs Filename:=Fichier
chez moi cela fonctionne.
deplus le lecteur W (qui je pense est un lecteur réseau doit etre accessible en écriture).
si possible envoyez le fichier sur http://www.cijoint.fr/index.php sans donnée confidentielle et postez le lien fournis. merci

Shadtita · Answer

Je ne sais pas pourquoi mais maintenant ça marche !
Aléluia ! J'adore quand ça marche !

Pour mon histoire de PDF maintenant :D as tu une idée ?

pou pouille · Answer

heu , la j'ai bien une idée mais ca va etre un peut plus compliqué. pour commencer , une petite recherche s'impose sur le forum ( je pense que ce sujet à déja du etre abordé)
mon idé est que ce doit etre une propiété de la fonction savefilename as ...
peut etre activer une option dans les préférences de visual basic editor
si vous avez pdf creator .. un début de solution https://forums.commentcamarche.net/forum/affich-1214587-vba-macro-pour-convertir-en-pdf

Shadtita · Answer

ok je vais chercher sur le forum, sinon je referai peut-être un sujet non ? vu que tu es le seul à venir à mon secours xD

En tout cas merci beaucoup pour tout ça déjà !

ps : je n'ai pas trop compris => "une propiété de la fonction savefilename as ... peut etre activer une option dans les préférences de visual basic editor "

Merci encore je mets en "résolu" ^^

pou pouille · Answer

je prendrais un peut de temps ce soir pour réfléchir au problème pour le pdf
(c'est quelque chose que je n'ais encore jamais réalisé, donc il faut que je me renseigne avant)

Shadtita · Answer

c'est très gentil merci.
je le ferais bien de mon coté mais je n'ai absolument aucune idée de comment m'y prendre...

En tout cas j'observe bien VBA pour comprendre comment ça marche (héhé) !

Shadtita · Answer

re

me voilà de nouveau avec un petit souci !

Le fichier que j'ai créé, je l'ai enregistré dans "modèles" pour que personne n'écrase le fichier d'origine.
Et je l'ai mis sur tous les postes de l'entreprise...sauf que le chemin pour mes boutons n'est pas le même selon l'ordinateur !!

Comment puis-je faire pour que mon bouton fonctionne quelque soit l'ordi ?
(je rappelle le bouton => enregistrer selon nom de cellule + dans un dossier spécifié + pas encore mais bientot, en PDF)

Merci à vous !

pou pouille · Answer

bonjours , qu'appelle tu chemin pour les boutons ?
je vois pas très bien la.

Shadtita · Answer

Dites que je m'exprime mal ! ^^

J'appelle chemin en fait, la destination du fichier pour l'enregistrement.
Et en fait, a priori le chemin est le même... 

Les ordis sont en réseau, et mon ordi est le serveur, ça devrait marcher ou pas ?

Pikaju, peux tu m'expliquer la logique de la macro stp ? j'ai besoin de savoir ce que ça veut dire !

Dim var As String
var = ActiveWorkbook.Path
ActiveWorkbook.SaveAs (var & "\" & [A1] & ".xls") 

que demande-t-on à mon petit ordinateur ?

Shadtita · Answer

wahou c'est trop bien !
Merci beaucoup !
je vais re relire tout ça hihihi.

Désolée pour mon "exprimation" (héhé) mais je ne connais pas les termes exacts !

J'essaye et je te tiens au courant ! Merci encore de m'avoir expliqué tout ça !

Shadtita · Answer

Arf, je croyais avoir compris mais mais mais !

Quand je test, la dernière ligne est surlignée en jaune :

Private Sub CommandButton1_Click()
Dim vas As String
Var = "W:
omdelentreprise\TRANSACTIONS\Commandes\"
ActiveWorkbook.SaveAs Filename:=(Var & "\" & [B12] & ".xls")
      
End Sub

pardon pardon pour ma bêtise !

et pendant que j'y pense, à la fin tu mets ".xls" : y aurait il moyen de passer par là pour que ça se transforme en PDF ?

*ah si j'avais mon technicien sur place**soupir*

pijaku · Answer

Et oui lapon compris...
Non mon code tu n'y touches pas!!!!!
Il fait tout, tout seul! C'est lui qui va chercher le chemin tout seul avec ActiveWorkbook.Path et c'est lui qui va chercher le nom du fichier en A1. Tout, tout seul!! C'est à cela que servent les macros. 
Bon code :

Private Sub CommandButton1_Click() 
Dim var As String 
var = ActiveWorkbook.Path 
ActiveWorkbook.SaveAs (var & "\" & [A1] & ".xls") 
End sub

épissétou.

Pour le pdf, comment dire... Faut pas rêver, ça serait trop simple. As tu Adobe Acrobat Standard? (pas le reader, celui un p'tit peu plus évole?)

Shadtita · Answer

Ben j'sais pas moi ça pourrait ^^

Je ne sais pas ce que l'on a ici, je sais que pour créer des PDF on utilise CutePDF (on fait imprimer, CutePDF et hop hop hop !)

cela dit...ça ne marche pas :(

il faut que j'écrive en A1 le fameux chemin peut-etre non ?

Shadtita · Answer

Mais heuuuu !!!

Comment il peut savoir où je veux le mettre si je lui dis paaaaaaaaaaas !

en plus quand j'essaye comme ça, en mettant juste ton code, il me surligne encore en jaaaaaaaaaaaune !

pijaku · Answer

Ben tu lui dis, en gras : ActiveWorkbook.SaveAs (var & "\" & [AZ36589] & ".xls")

EDIT : pardon tu parlais sans doute du chemin...
Ben tu lui dis, en gras : var = ActiveWorkbook.path
ActiveWorkbook.SaveAs (var & "\" & [AZ36589] & ".xls")

Shadtita · Answer

ne me gronde pas :''( je vais pleurer...je comprends pas :(

tu me disais que AZ36589 c'est le nom de mon fichier... et maintenant c'est ma destination de fichier :''(

pijaku · Answer

Oui j'ai répondu trop vite. Voir édith dans mon post 29

Shadtita · Answer

...je dois mettre ça en gras ....

vraiment je t'admire pour ta patience !

Shadtita · Answer

hihi je fais ce que je peux pourtant...

que puis je faire alors pour que ça marche !

je veux que ça aille dans ce dossier  => "W:
omdelentreprise\TRANSACTIONS\Factures\"

pijaku · Answer

Alors, tu ouvres, sur le poste de travail de chaque utilisateur ton fichier. Tu l'enregistres sous : "W:
omdelentreprise\TRANSACTIONS\Factures\"
Tu le fermes.
Tu l'ouvres à nouveau écris un nom dans la cellule que tu as choisit (A1 dans mon exemple initial) par exemple écris : test puis lance la macro. Si tout fonctionne ferme le fichier et va voir dans "W:
omdelentreprise\TRANSACTIONS\Factures\" Normalement tu auras 2 fichiers : le tien et un appelé test.xls...
A priori, tu ne dois pas faire ça sur chaque poste puisque le chemin, vraisemblablement sera le même... Fais le sur 2 postes, si ça fonctionne c'est cool...

Shadtita · Answer

okai okai je vais essayer ça.

Mais est ce nécessaire de mettre le fichier dans le dossier ou on veut l'enregistrer ? 
Parce qu'en fait, je comptais enregistrer mon fichier dans "modèle" parce que j'ai peur que les gens le détruisent par mégarde en enregistrant par dessus !

Mon fichier est actuellement ici : W:
omdelentreprise\Moi\doc\modeles

pijaku · Answer

Mais est ce nécessaire de mettre le fichier dans le dossier ou on veut l'enregistrer ? Avec ma macro oui.
2 choix, soit tu empêches les utilisateurs d'enregistrer avec le même nom qu'à l'ouverture, soit on change la macro en lui indiquant le "chemin" de sauvegarde. Que préfères tu?

Shadtita · Answer

tatatata, ni l'un ni l'autre je veux les 2 ^^

Mais je peux le mettre dans le dossier s'il n'y a que ça hihi.

sinon pour le transformer en PDF simplement, as tu une idée ? (j'en profite vu que tu t'y connais à max !)

ps : je débauche à 17h donc si mon souci n'est point résolu je reviens demain, j'espère que tu seras là !

Edit, je viens de penser que dans mon fichier il y a 2 onglets, et donc 2 boutons pour enregistrer...mais dans 2 répertoires différents !!! (l'autre c'est pas "commande" mais "facture") donc je vais avoir un hic pour enregistrer non ?

pijaku · Answer

T'inquiète, je vais y passer la nuit...
Allons y pour les 2. Je t'en livre une de suite, la 2ème faut que je réfléchisse un minimum.
Pour enregistrer systématiquement dans un répertoire différent de celui ouvert : celui que tu m'as donné tout à l'heure...

Private Sub CommandButton1_Click() 
Dim var As String 
var = W:
omdelentreprise\TRANSACTIONS\Factures
ActiveWorkbook.SaveAs (var & "\" & [A1] & ".xls") 
End sub 

2ème solution : Accroches toi c'est plus difficile

Clic droit sur l'onglet de ta feuille "visualiser le code" sur la gauche de ta fenêtre VB tu vois une petite fenêtre avec :
Feuil1
Feuil2
Feuil3
This WorkBook
Double Cliquer sur This WorkBook

taper : (ou copier coller)

Private Sub Workbook_Open()
[AZ1] = [A1]
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [AZ1] = [A1] Then
MsgBox ("vous devez changer le nom du fichier")
End If
End Sub

Ca n'empêchera pas le vicieux qui se fiche de tout d'annuler, mais ça fait un beau rappel pour les imprudents.
La suite demain, si tu veux bien

Shadtita · Answer

hihi je vais te transformer en zombie ^^
merci de chercher encore c'est vraiment gentil !
bon je commence mes questions !

Qu'as tu changé dans la 1ère solution ? =>

Private Sub CommandButton1_Click()
Dim var As String
var = W:
omdelentreprise\TRANSACTIONS\Factures
ActiveWorkbook.SaveAs (var & "\" & [A1] & ".xls")
End sub 

pour ce qui est de la 2ème, si j'ai bien suivi, c'est s'il n'y a rien dans la cellule censée changer le nom, un message indique à l'utilisateur de le mettre ? ou est ce si le boulet qui n'a pas changé le nom enregistrer, un message lui indique de modifier le nom ?
parce que j'ai créé un bouton, mais il est possible que l'utilisateur clic sur la disquette pour enregistrer et patatra adieu mon beau travail (hihi)

c'est dommage qu'on soit en réseau, parce que ça marchait bien sinon pour enregistrer et tout ça !!!

Enregistrer sous selon nom de cellule

36 réponses

Discussions similaires