Copier Coller une feuille de données avec mise en page et logo

[Titico69]

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

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

bonjour titico69 le forum
sans fichier on va dire que c'est la feuille active que tu veux copier
a+
papou

sub copier()
activesheet.copy
activeworkbook.saveas (le nom souhaité avec le chemin)
activeworkbook.close 1
end sub

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

Oui mais le problème si j'utilise cette fonction, a chaque fois je vais ecraser le fichier. Le nom que j'utlise est a chaque fois différentes...

je ne sais pas si je suis clair....

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

Je joint le fichier sans doute plus simple pour comprendre ou me faire comprendre....

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

avec c'est mieux.

Merci

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

Re titico69 le forum
si ton fichier est dans le même dossier que là ou tu veux enregistrer, avec l'inputbox pour le nom du nouveau classeur
a+
papou

Sub copier()
    Dim chemin$, rep$
    chemin = ThisWorkbook.Path
    ActiveSheet.Copy
1    rep = InputBox("Veuillez Entrer le nom du Nouveau Fichier", "Nouveau Fichier")
    If rep = "" Then GoTo 1
    ActiveWorkbook.SaveAs (chemin & "\" & rep & ".xls")
    ActiveWorkbook.Close 1
End Sub

 

[chris]

Re : Copier Coller une feuille de données avec mise en page et logo

Bonjour

Si tu regardes attentivement le code de Paritec, il est écrit

activeworkbook.saveas (le nom souhaité avec le chemin)

Donc cela n'écrase rien

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

Re titico69 le forum
ton fichier en retour
a+
papou

EDIT Bonsoir Chris

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

je ne pas être douée car je n'y arrive pas....

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

Re Titico69 le forum
voilà ton fichier avec les modifs
a+
papou

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

c'est super, merci.

est-il possible de ne pas copier les 2 boutons et de ne pas fermer le fichier créé?

Et encore merci

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

Re Titico69 le forum
oui c'est possible mais ce sera pour demain
a+
papou

 

[Titico69]

Re : Copier Coller une feuille de données avec mise en page et logo

pas de soucis, c'est deja tres sympa

merci encore

 

[Paritec]

Re : Copier Coller une feuille de données avec mise en page et logo

Bonjour Titico69 le forum
ton fichier en retour avec tes modifs
a+
papou