Bonjour,
Je suis en train de réaliser un programme pour mon boulot en utilisant un fichier excel .
Je crée la page a copier;grave a une macro. Jusque là pas de problème
Mais quand je créer une macro pour enregistrer une feuille nomée "IMP" cela me pose quelque problème. J'arrive à copier la feuille mais il me manque le logo!!
J'utilise la macro ci dessous qui est déclenchée par un bouton "Save".
Auriez vous une idée ?
Merci de votre aide.....
Sub Saveto()
Dim newWbk As Workbook, feuilCal As Worksheet, pathMesDocuments As String, nomNewClasseur As String
'définir le chemin de MesDocuments
pathMesDocuments = "C:\Users\Corinne\Documents\essai\SAVE"
'définir la feuille à copier
Set feuilCal = ThisWorkbook.Sheets("IMP")
'créer un nouveau classeur avec une seulle feuille
Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)
'copier les cellules de la feuille "Calendrier"
feuilCal.Cells.Copy
'coller les valeurs dans le nouveau classeur, puis les formats, puis les largeurs de colonnes
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteValues
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
Application.CutCopyMode = False
'récupérer le nom à donner au nouveau classeur
nomNewClasseur = InputBox("Nom du nouveau classeur :")
'sauvegarder le classeur et le fermer
newWbk.SaveAs pathMesDocuments & "\" & nomNewClasseur & ".xls"
End Sub
Merci
Je suis en train de réaliser un programme pour mon boulot en utilisant un fichier excel .
Je crée la page a copier;grave a une macro. Jusque là pas de problème
Mais quand je créer une macro pour enregistrer une feuille nomée "IMP" cela me pose quelque problème. J'arrive à copier la feuille mais il me manque le logo!!
J'utilise la macro ci dessous qui est déclenchée par un bouton "Save".
Auriez vous une idée ?
Merci de votre aide.....
Sub Saveto()
Dim newWbk As Workbook, feuilCal As Worksheet, pathMesDocuments As String, nomNewClasseur As String
'définir le chemin de MesDocuments
pathMesDocuments = "C:\Users\Corinne\Documents\essai\SAVE"
'définir la feuille à copier
Set feuilCal = ThisWorkbook.Sheets("IMP")
'créer un nouveau classeur avec une seulle feuille
Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)
'copier les cellules de la feuille "Calendrier"
feuilCal.Cells.Copy
'coller les valeurs dans le nouveau classeur, puis les formats, puis les largeurs de colonnes
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteValues
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
Application.CutCopyMode = False
'récupérer le nom à donner au nouveau classeur
nomNewClasseur = InputBox("Nom du nouveau classeur :")
'sauvegarder le classeur et le fermer
newWbk.SaveAs pathMesDocuments & "\" & nomNewClasseur & ".xls"
End Sub
Merci