Macro "enregistré sous"
Bonjour,
Je viens vers vous pour m' enlever une épine du pied
Je souhaite créer une macro afin de pouvoir cliquer sur un bouton "sauvegarder" , m' enregistrant un formulaire (excel) sous un autre chemin que celui du fichier source.
La création du bouton est faite....super !!!
Cet enregistrement ne devra concerné que la feuille active du classeur.
j' ai récupéré une série de code que j' ai essayé d' adapter à mon souhait...mais ça ne marche guère. Mon principal soucis est d' indiquer le chemin de la sauvegarde.
Cette sauvegarde devra être renommée selon le contenu de plusieurs cellules non collées.
Etes vous en capacité à m' aider un peu.
Merci d' avance.
Petit coucou à loureed si tu me lis....ca va te faire rire ma demande....
Nulenexcel.
Bonjour,
en premier lieu il faut faire un copie de la feuille active vers un nouveau classeur,
la commande suivante suffi à faire ce travail:
ActiveSheet.Copysuite à la commande précédente, le focus est mit sur le nouveau classeur.
il ne reste plus qu'à enregistrer le classeur.
ActiveWorkbook.SaveAs chemin & "\" & fichierBonjour,
Merci pour votre réponse,pas facile ce language VBA
J' ai donc créé les commandes avec le chemin de destination sur lequel le fichier devrait s' enregistrer (essai).
Sur cette dernière commande un code d' erreur d' exécution 13 apparait .J' imagine que c 'est sur le formalisme de l' écriture. J' ai essayé avec des () ou lieu des [] mais c 'est pire.
Ci-dessous le code en vert qui bloque:
Sub enregistrer()
ActiveSheet.Copy
ActiveWorkbook.SaveAs [E:\Documents\essai macro] & "\"
End Sub
petite question: dans la commande, que veut dire le code: &"\"
Merci d' avance.
Bonjour,
le "\" sert à séparer le répertoire des sous-répertoire et du fichier
Sub enregistrer()
'déclaration des variables
Dim chemin As String, fichier As String
'renseigner les variables
chemin = "E:\Documents\essai macro\"
fichier = "MonFichier.xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin & fichier
End SubJe reviens sur mon message précèdent, ou je me suis trompé sur le code le code en question/
Il faut lire:
ActiveWorkbook.SaveAs [E:\Documents\essai macro] & "\" fichier
toujours en erreur pour syntaxe, j' ai du louper un truc
Ou bien, je n' ai pas compris ce qu' il fallait renseigner pour fichier.
Bonjour,
Ou bien, je n' ai pas compris ce qu' il fallait renseigner pour fichier.
quel est le nom que vous voulez donner au fichier ?
ps/ vous ne devez pas mettre le chemin entre accolade, il doit être mit entre guillemet.
Merci,
ca marche.
Je vais maintenant essayer que que le fichier sauvegardé soit renommé selon certaines informations saisies dans les cellules du tableau concerné, au lieu de "mon fichier xlsm".
Bonjour,
j 'suis bien contente que tous fonctionne,
merci pour ce retour, si vous avez besoin d'aide pour assembler les valeurs de cellules pour renseigner les variables chemin et/ou fichier
je suis disponible,
bonne continuation, @+ isabelle
Bonjour,
le code d' hier fonctionne bien, aucun soucis. Maintenant, mon soucis est de renommé automatiquement le fichier sauvegardé selon les renseignements de certaines cellules en lieu et place de "MonFichier.xlsx", mais mon code ne passe pas . comme suit :
Sub enregistrer()
'déclaration des variables
Dim chemin As String, fichier As String
'renseigner les variables
chemin = "E:\Documents\essai macro\"
fichier = Range ("A11") & Range ("E16:E19")
ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin & fichier
End Sub
J' imagine que dans ce cas c' est le code qui n' est plus bon ?
Bonjour,
au plus simple :
fichier = [A11] & [E16] & [E17] & [E18] & [E19]dhany
j' essaie dès demain au boulot.
Bonsoir le forum, dhany
nulenexcel, vous devriez lire les quelques règles du forum qui se trouvent ci dessous dans ma signature !
Sinon vos journée de travail doivent être longue ! Message du 5 et on est le 9 !
Comme je vous comprend, quand on se plonge dans VBA c'est dur d'en sortir !
Avec un petit fichier c'est bien aussi, et regardez au dessus de la fenêtre d'édition de message il y a des petits carrés dont un avec ce symbole : [</>] :
Sélectionnez le texte de votre copie de code et cliquez dessus, des balises vont se mettre de chaque coté et à la place de ceci :
Sub enregistrer()
'déclaration des variables
Dim chemin As String, fichier As String
'renseigner les variables
chemin = "E:\Documents\essai macro\"
fichier = Range ("A11") & Range ("E16:E19")
ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin & fichier
End Sub
Vous aurez cela :
Sub enregistrer()
'déclaration des variables
Dim chemin As String, fichier As String
'renseigner les variables
chemin = "E:\Documents\essai macro\"
fichier = Range ("A11") & Range ("E16:E19")
ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin & fichier
End Subet c'est beaucoup plus lisible pour les intervenants ! Merci par avance.
@ bientôt
LouReeD
Nota : LouReeD avec un L R et D en majuscule !!!
Ha oui aussi : attention ! si votre message est tagué comme résolu, il y aura moins d'intervenants à vous aider car le sujet (justement) est résolu, seul ceux ayant participé à sa résolution peuvent avoir des notifications de modification s'il n'ont pas supprimer ce message du dossier "à suivre".
Donc une question par message et un message par question sI je puis dire
@ bientôt
LouReeD
Hey ! dhany ! Bientôt la barre des 5000 messages !!!! et ce en un peu plus d'un an !!!
J'y suis pas et j'ai 4 ans !!!!
Bravo @ vous et @ bientôt
LouReeD
exact, mais j'suis encore très loin des 10 000 messages pour être Fanatique d'Excel !
c'est pas demain la veille que j'vais rejoindre MFerrand, gmb, ou Jean-Eric !
dhany
Dites donc, toujours aux aguets ? Chasseur peut-être ? du moins à la retraite, toujours devant l'écran quelque soit l'heure !
@ bientôt
LouReeD
toujours devant l'écran ... sauf quand j'dois aller faire des courses, ou quand je dors !
mais j'suis pas chasseur, non : j'ai aucun fusil d'chasse, pas même un couteau d'chasse !
dhany