Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel enregistrement

enregistrement

6 réponses
Avatar
tdm850
bonjour à tous,

je cherche une fois ma feuill excel terminer, à l'enregistrer sous le nom
d'une cellule précise (A1) dans répertoire précis sans à chaque fois passer
par enregistrer sous ...............
merci pour vos conseils
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour
'---------------
Avec le nom en" feuil1 A1" sans l'extension '.xls'(elle est rajouté
automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("feuil1").[A1] & ".xls"
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------

Salutations
JJ

"tdm850" a écrit dans le message de
news:
bonjour à tous,

je cherche une fois ma feuill excel terminer, à l'enregistrer sous le nom
d'une cellule précise (A1) dans répertoire précis sans à chaque fois
passer

par enregistrer sous ...............
merci pour vos conseils


Avatar
tdm850
Bonjour Jacky et merci de ta reponse.
juste je voudrais savoir ou copier cette superbe formule ??????
merci par avance


Bonjour
'---------------
Avec le nom en" feuil1 A1" sans l'extension '.xls'(elle est rajouté
automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("feuil1").[A1] & ".xls"
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------

Salutations
JJ

"tdm850" a écrit dans le message de
news:
bonjour à tous,

je cherche une fois ma feuill excel terminer, à l'enregistrer sous le nom
d'une cellule précise (A1) dans répertoire précis sans à chaque fois
passer

par enregistrer sous ...............
merci pour vos conseils







Avatar
Jacky
Re....
Regarde ici:
http://cjoint.com/?kfq3RTSc7X
JJ

"tdm850" a écrit dans le message de
news:
Bonjour Jacky et merci de ta reponse.
juste je voudrais savoir ou copier cette superbe formule ??????
merci par avance


Bonjour
'---------------
Avec le nom en" feuil1 A1" sans l'extension '.xls'(elle est rajouté
automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("feuil1").[A1] & ".xls"
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------

Salutations
JJ

"tdm850" a écrit dans le message de
news:
bonjour à tous,

je cherche une fois ma feuill excel terminer, à l'enregistrer sous le
nom



d'une cellule précise (A1) dans répertoire précis sans à chaque fois
passer

par enregistrer sous ...............
merci pour vos conseils









Avatar
tdm850
Bonsoir Jacky,
vraiment merci pour ton aide bravo ! ! !
j'ai presque honte voir carement honte de te demander comment tu as crée le
bouton sauvegarder.( je demarre vba, y a du boulot je sais )
sachant que mon fichier s'appele dossier, et je que veux le sauvegarder dans
c:numero
comment modifier ta formule
merci beaucoup


Re....
Regarde ici:
http://cjoint.com/?kfq3RTSc7X
JJ

"tdm850" a écrit dans le message de
news:
Bonjour Jacky et merci de ta reponse.
juste je voudrais savoir ou copier cette superbe formule ??????
merci par avance


Bonjour
'---------------
Avec le nom en" feuil1 A1" sans l'extension '.xls'(elle est rajouté
automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("feuil1").[A1] & ".xls"
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------

Salutations
JJ

"tdm850" a écrit dans le message de
news:
bonjour à tous,

je cherche une fois ma feuill excel terminer, à l'enregistrer sous le
nom



d'une cellule précise (A1) dans répertoire précis sans à chaque fois
passer

par enregistrer sous ...............
merci pour vos conseils














Avatar
Jacky
Re....
sachant que mon fichier s'appele dossier, et je que veux le sauvegarder
dans c:numero
Dans ce cas , il ne sera plus tenu compte de la demande de départ soit:

l'enregistrer sous le nom d'une cellule précise (A1)



Le dossier "numero" doit exister.
Ci-dessous 3 codes(modifiés selon la demande) , certes différents dans leurs
structures et par leurs contrôles, mais font exactement la même chose.
Il suffira de copier celui qui te convient le mieux et le coller à
l'emplacement de l'ancien dans le module 1

'------------code 1----------------
Sub jj()
disque = "C:" '****nom du disque*****a adapter****
rep = "numero" '****ici le nom des éventuels répertoires*****
'nom = Sheets("feuil1").[A1] & ".xls"
nom = "dossier.xls"
sav = disque & rep & nom
MsgBox sav '*******A supprimer après essai*******
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" & Chr(10) _
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")" & Chr(10)
_
& "Le chemin d'accès doit exister."
End Sub
'--------------------
'Le code ci-dessus est rédigé pour être très explicite.
'Il peut-être réduit à ceci avec les mêmes fonctionnalités.
"------------------code 2---------------
Sub jj2()
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:numerodossier.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" & Chr(10) _
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")" & Chr(10)
_
& "Le chemin d'accès doit exister."
End Sub
'-----------------
'Ou simplement à ceci, mais sans gestion d'erreurs et avec les messages
d'alertes d'Excel.
'------------------code 3-------------
Sub jj3()
ActiveWorkbook.SaveAs "C:numerodossier.xls"
End Sub
'-----------------***************-------------
j'ai presque honte voir carement honte de te demander comment tu as crée
le

bouton sauvegarder.( je demarre vba, y a du boulot je sais )


Celui que j'ai crée dans l'exemple est issu de la barre d'outils
"formulaire"
Pour afficher cette barre:
Clique droit sur une barre d'outils existante et cocher 'formulaires'
Sur la barre d'outils formulaire:
Sélection de l'icône 'bouton' par clique, puis un clique sur la feuille
et sans relâcher le bouton de la souris étirer vers la droite pour créer ce
fameux bouton.
A ce moment une fenêtre Excel va s'ouvrir et te demander quelle macro tu
veux lui attribuer.
Tu choisis celle que tu auras pris soin de placer auparavant dans le
module1.
Un clique droit sur le bouton te permettra certaines modifications, dont
celle de son texte.
------
Par la suite tu verras qu'il est plus aisé de se servir des boutons de la
barre d'outils 'commandes' ou 'contrôles' , plus facilement paramétrables.
Mais ça,......... c'est une autre histoire

Bon courage
JJ




"tdm850" a écrit dans le message de
news:
Bonsoir Jacky,
vraiment merci pour ton aide bravo ! ! !
j'ai presque honte voir carement honte de te demander comment tu as crée
le

bouton sauvegarder.( je demarre vba, y a du boulot je sais )
sachant que mon fichier s'appele dossier, et je que veux le sauvegarder
dans

c:numero
comment modifier ta formule
merci beaucoup



Avatar
tdm850
Bonjour Jacky,
je tenais a te remercier pour tout, c'etait un vrai plaisir de tomber sur
queldu'un comme toi
alors encore merci ................


Re....
sachant que mon fichier s'appele dossier, et je que veux le sauvegarder
dans c:numero
Dans ce cas , il ne sera plus tenu compte de la demande de départ soit:

l'enregistrer sous le nom d'une cellule précise (A1)



Le dossier "numero" doit exister.
Ci-dessous 3 codes(modifiés selon la demande) , certes différents dans leurs
structures et par leurs contrôles, mais font exactement la même chose.
Il suffira de copier celui qui te convient le mieux et le coller à
l'emplacement de l'ancien dans le module 1

'------------code 1----------------
Sub jj()
disque = "C:" '****nom du disque*****a adapter****
rep = "numero" '****ici le nom des éventuels répertoires*****
'nom = Sheets("feuil1").[A1] & ".xls"
nom = "dossier.xls"
sav = disque & rep & nom
MsgBox sav '*******A supprimer après essai*******
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" & Chr(10) _
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")" & Chr(10)
_
& "Le chemin d'accès doit exister."
End Sub
'--------------------
'Le code ci-dessus est rédigé pour être très explicite.
'Il peut-être réduit à ceci avec les mêmes fonctionnalités.
"------------------code 2---------------
Sub jj2()
On Error GoTo erreur
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:numerodossier.xls"
On Error GoTo 0
Exit Sub
erreur:
MsgBox "Le fichier n'a pas été sauvegardé." & Chr(10) _
& "La longueur du nom ne doit pas dépasser 218 caractères" & Chr(10) _
& "et ne doit pas contenir de caractères interdit (/<>*:;|"""")" & Chr(10)
_
& "Le chemin d'accès doit exister."
End Sub
'-----------------
'Ou simplement à ceci, mais sans gestion d'erreurs et avec les messages
d'alertes d'Excel.
'------------------code 3-------------
Sub jj3()
ActiveWorkbook.SaveAs "C:numerodossier.xls"
End Sub
'-----------------***************-------------
j'ai presque honte voir carement honte de te demander comment tu as crée
le

bouton sauvegarder.( je demarre vba, y a du boulot je sais )


Celui que j'ai crée dans l'exemple est issu de la barre d'outils
"formulaire"
Pour afficher cette barre:
Clique droit sur une barre d'outils existante et cocher 'formulaires'
Sur la barre d'outils formulaire:
Sélection de l'icône 'bouton' par clique, puis un clique sur la feuille
et sans relâcher le bouton de la souris étirer vers la droite pour créer ce
fameux bouton.
A ce moment une fenêtre Excel va s'ouvrir et te demander quelle macro tu
veux lui attribuer.
Tu choisis celle que tu auras pris soin de placer auparavant dans le
module1.
Un clique droit sur le bouton te permettra certaines modifications, dont
celle de son texte.
------
Par la suite tu verras qu'il est plus aisé de se servir des boutons de la
barre d'outils 'commandes' ou 'contrôles' , plus facilement paramétrables.
Mais ça,......... c'est une autre histoire

Bon courage
JJ




"tdm850" a écrit dans le message de
news:
Bonsoir Jacky,
vraiment merci pour ton aide bravo ! ! !
j'ai presque honte voir carement honte de te demander comment tu as crée
le

bouton sauvegarder.( je demarre vba, y a du boulot je sais )
sachant que mon fichier s'appele dossier, et je que veux le sauvegarder
dans

c:numero
comment modifier ta formule
merci beaucoup