gclipse
Messages postés12Date d'inscriptionsamedi 21 juin 2008StatutMembreDernière intervention 7 janvier 2015
-
Modifié par jordane45 le 24/07/2014 à 17:32
gclipse
Messages postés12Date d'inscriptionsamedi 21 juin 2008StatutMembreDernière intervention 7 janvier 2015
-
24 juil. 2014 à 19:28
Bonjour, a vous tous.
je suis vraiment bloquer, j'explique, après avoir sauvegarder et fermer Excel (2010), lors d'une nouvelle ouverture de mon classeur je voudrais que la cellule "C10" soit prête a écrire. C'est ma première tentative en VBA et il doit y avoir pas mal d'erreur .:)
voici mes codes:
Module 1:
Sub Rectangle2_Cliquer()
'
' Rectangle2_Cliquer Macro
' enregistrer-sous et quitter
'
Dim NomFichier As String
NomFichier = Range("C10")
'
ChDir "C:\Users\elitebook\Documents\CLIENTS"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\elitebook\Documents\CLIENTS\" & NomFichier, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True
Sheets("feuil1").Range("C10").Select
'
End Sub
-Module 2:
Sub imprimer()
'
' imprimer Macro
' imprimer
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub-
Thisworkbook:
Sub imprimer()
'
' imprimer Macro
' imprimer
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub