Sauvegarde de feuille dans un repertoire defini suivant un nom
1 réponse
CYRIL254
Bonjour,
J'aimerais pouvoir sauvegarder une feuille dans un repertoire specifique
suivant une cellule quand on sauvegarde le classeur (5repertoires).(VBA) et
suivant le 3 cellules pour le nom du fichier.
Quelqu'un a t'il une explication de la procedure a suivre ?
Merci par avance.
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
Rai
CYRIL254 wrote:
Bonjour, J'aimerais pouvoir sauvegarder une feuille dans un repertoire specifique suivant une cellule quand on sauvegarde le classeur (5repertoires).(VBA) et suivant le 3 cellules pour le nom du fichier. Quelqu'un a t'il une explication de la procedure a suivre ? Merci par avance.
Bonjour,
si j'ai bien tout compris ton explication ... en premier il te faut composer ton nom de fichier : 'cas où tu fournis tous les éléments dans les cellules (y compris lettre du lecteur, , . et extension) NomFic=range("A1") & range("B1") & range("C1") & range("D1")
'cas où les cellules ne contiennent pas tous les éléments (à adapter) NomFic="C:" & range("A1") & "" & range("B1") & range("C1") & range("D1") &".xls"
en second il te faut enregistrer ton fichier, avec ce nom ThisWorkbook.SaveAs NomFic, xlNormal
bonne journée
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
CYRIL254 wrote:
Bonjour,
J'aimerais pouvoir sauvegarder une feuille dans un repertoire
specifique suivant une cellule quand on sauvegarde le classeur
(5repertoires).(VBA) et suivant le 3 cellules pour le nom du fichier.
Quelqu'un a t'il une explication de la procedure a suivre ?
Merci par avance.
Bonjour,
si j'ai bien tout compris ton explication ...
en premier il te faut composer ton nom de fichier :
'cas où tu fournis tous les éléments dans les cellules (y compris lettre du lecteur, , . et extension)
NomFic=range("A1") & range("B1") & range("C1") & range("D1")
'cas où les cellules ne contiennent pas tous les éléments (à adapter)
NomFic="C:" & range("A1") & "" & range("B1") & range("C1") & range("D1") &".xls"
en second il te faut enregistrer ton fichier, avec ce nom
ThisWorkbook.SaveAs NomFic, xlNormal
bonne journée
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
Bonjour, J'aimerais pouvoir sauvegarder une feuille dans un repertoire specifique suivant une cellule quand on sauvegarde le classeur (5repertoires).(VBA) et suivant le 3 cellules pour le nom du fichier. Quelqu'un a t'il une explication de la procedure a suivre ? Merci par avance.
Bonjour,
si j'ai bien tout compris ton explication ... en premier il te faut composer ton nom de fichier : 'cas où tu fournis tous les éléments dans les cellules (y compris lettre du lecteur, , . et extension) NomFic=range("A1") & range("B1") & range("C1") & range("D1")
'cas où les cellules ne contiennent pas tous les éléments (à adapter) NomFic="C:" & range("A1") & "" & range("B1") & range("C1") & range("D1") &".xls"
en second il te faut enregistrer ton fichier, avec ce nom ThisWorkbook.SaveAs NomFic, xlNormal
bonne journée
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
