Salut,
voilà j'aimerais savoir s'il y a une macro ou un code qui permettrait avant
de fermer un classeur de l'enregistrer sous un nom qui serait le texte d'une
cellule d'une feuille du classeur.
Je sais qu'avec thisworkbook.saveas on peut mais c comment écrire le chemin
du fichier qui me pose problème.
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
Jacky
Bonsoir, Ceci peut-être A adapter.... '-------------- Sub jj() disque = "C:" '****nom du disque*****a adapter**** rep = "numero" '****ici le nom des éventuels répertoires***** 'nom = Sheets("feuil1").[A1] & ".xls" ' si le nom est dans une cellule 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 '-------------- Salutations JJ
"Faya49" a écrit dans le message de news:
Salut, voilà j'aimerais savoir s'il y a une macro ou un code qui permettrait avant
de fermer un classeur de l'enregistrer sous un nom qui serait le texte d'une
cellule d'une feuille du classeur. Je sais qu'avec thisworkbook.saveas on peut mais c comment écrire le chemin
du fichier qui me pose problème.
Merci d'avance a ceux qui pourront m'aider.
Bonsoir,
Ceci peut-être
A adapter....
'--------------
Sub jj()
disque = "C:" '****nom du disque*****a adapter****
rep = "numero" '****ici le nom des éventuels répertoires*****
'nom = Sheets("feuil1").[A1] & ".xls" ' si le nom est dans une cellule
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
'--------------
Salutations
JJ
"Faya49" <Faya49@discussions.microsoft.com> a écrit dans le message de
news:D99FA9CC-F4AA-4577-9C98-8F78A701D076@microsoft.com...
Salut,
voilà j'aimerais savoir s'il y a une macro ou un code qui permettrait
avant
de fermer un classeur de l'enregistrer sous un nom qui serait le texte
d'une
cellule d'une feuille du classeur.
Je sais qu'avec thisworkbook.saveas on peut mais c comment écrire le
chemin
Bonsoir, Ceci peut-être A adapter.... '-------------- Sub jj() disque = "C:" '****nom du disque*****a adapter**** rep = "numero" '****ici le nom des éventuels répertoires***** 'nom = Sheets("feuil1").[A1] & ".xls" ' si le nom est dans une cellule 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 '-------------- Salutations JJ
"Faya49" a écrit dans le message de news:
Salut, voilà j'aimerais savoir s'il y a une macro ou un code qui permettrait avant
de fermer un classeur de l'enregistrer sous un nom qui serait le texte d'une
cellule d'une feuille du classeur. Je sais qu'avec thisworkbook.saveas on peut mais c comment écrire le chemin
