Enregistrer feuille par feuille avec non cellule
Hommenature
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
scinarf Messages postés 1119 Date d'inscription Statut Membre Dernière intervention -
scinarf Messages postés 1119 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Un peu lourdeau dans les macros, peut être pourriez vous m aidez
Voila suite à un publipostage je recherche une macro permettant de sauver chaque feuille dans un fichier diffèrent et en outre avec comme nom la combinaison de de deux cellules du tableau présent sur chaque feuille
Es ce possible ?
Grand merci
Pascal
Un peu lourdeau dans les macros, peut être pourriez vous m aidez
Voila suite à un publipostage je recherche une macro permettant de sauver chaque feuille dans un fichier diffèrent et en outre avec comme nom la combinaison de de deux cellules du tableau présent sur chaque feuille
Es ce possible ?
Grand merci
Pascal
A voir également:
- Enregistrer feuille par feuille avec non cellule
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Audacity enregistrer son pc - Guide
- Feuille a5 - Guide
3 réponses
Bonjour, Tout est possible.
Pour cela, je conseil de créer un nouveau classeur:
Dim Fichier As String
'Il faut définir le nom de la feuille
'i comme étant le numéro de la ligne sur laquelle le nom est présent
'j comme étant le numéro de la colonne sur laquelle le nom est présent
Fichier = Thisorkbooks.sheets("feuille").cells(i,j).text
WorkBooks.Add
ActiveWorkbook.SaveAs "C:\chemin\Fichier" & ".xls"
ensuite de copier la feuille que l'on souhaite copier:
workbooks("source").Sheets("nom de feuille").copy Before:=Workbooks(Fichier).Sheets(1)
workbooks(Fichier).save
Il faut arranger un peu mais tout est la.
Si vous n'y arrivez pas ne pas hésiter je vous aiderez en corrigeant votre code ou en vous donnant une base du code solide.
Pour cela, je conseil de créer un nouveau classeur:
Dim Fichier As String
'Il faut définir le nom de la feuille
'i comme étant le numéro de la ligne sur laquelle le nom est présent
'j comme étant le numéro de la colonne sur laquelle le nom est présent
Fichier = Thisorkbooks.sheets("feuille").cells(i,j).text
WorkBooks.Add
ActiveWorkbook.SaveAs "C:\chemin\Fichier" & ".xls"
ensuite de copier la feuille que l'on souhaite copier:
workbooks("source").Sheets("nom de feuille").copy Before:=Workbooks(Fichier).Sheets(1)
workbooks(Fichier).save
Il faut arranger un peu mais tout est la.
Si vous n'y arrivez pas ne pas hésiter je vous aiderez en corrigeant votre code ou en vous donnant une base du code solide.
Bonjour
Mille pardon, je me suis sans doute mal exprimé mais l action de la macro est sur un fichier word (celui issu du publipostage) et non excel
Grand merci à vous
Pascal
Mille pardon, je me suis sans doute mal exprimé mais l action de la macro est sur un fichier word (celui issu du publipostage) et non excel
Grand merci à vous
Pascal
