Prendre une cellule comme nom de fichier
Fermé
Slylia
Messages postés
58
Date d'inscription
jeudi 27 mai 2010
Statut
Membre
Dernière intervention
4 février 2011
-
Modifié par Slylia le 21/06/2010 à 11:13
thev Messages postés 1855 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 13 mai 2024 - 21 juin 2010 à 18:11
thev Messages postés 1855 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 13 mai 2024 - 21 juin 2010 à 18:11
A voir également:
- Prendre une cellule comme nom de fichier
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
1 réponse
thev
Messages postés
1855
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
13 mai 2024
683
21 juin 2010 à 18:11
21 juin 2010 à 18:11
' création classeur nom cellule I1
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Range("I1").Value '
' édition PDF
Application.ActivePrinter = "Vente Partner PDF sur Ne00:"
ActiveWorkbook.Sheets(1).PrintOut Copies:=1
' fermeture et suppression classeur nom cellule I1
ActiveWorkbook.Close
Kill Range("I1").Value & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Range("I1").Value '
' édition PDF
Application.ActivePrinter = "Vente Partner PDF sur Ne00:"
ActiveWorkbook.Sheets(1).PrintOut Copies:=1
' fermeture et suppression classeur nom cellule I1
ActiveWorkbook.Close
Kill Range("I1").Value & ".xls"