sauvegarder et revenir a une cell.Résolu

Question

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

Voila!  un peu d'aide s.v.p.  Merci!

jordane45 · Answer

Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

J'ai édité ton message pour les mettre.

gclipse · Answer

d'accord, j'en prend note et merci! 
 
--

jordane45 · Answer

Pour ce qui est de ta question....
Si j'ai bien compris... tu veux que la cellule C10  soit sélectionnée à l'ouverture de ton classeur ??
 
Tu peux le faire à l'ouverture de ton classeur :

Dans ThisWorkbook

Private Sub Workbook_Open()
    Sheets(1).Activate
    Range("C10").Select
End Sub

gclipse · Answer

cela fonctionne très bien , un gros merci!
 
--

Sauvegarder et revenir a une cell.

4 réponses

Votre réponse