Copier sur une nouvelle page avec une macro
Bonjour a tous
j'ai un petit pobleme avec une marco
je veux copier une page d'un ficher sur une nouvelle page.
la première page fonctionne je l'enresitre sous XXXX
quand je répete la fonction, excel ouvre une seconde page mais lui donne le nom de classeur2, allors ma macro ne fonctionne plus.
ma question: commant lui donner la bonne commande?
je vous remerci d'avance
Tomma
Sub Enregistre_Sous()
Workbooks.Add
Windows("Ausstellerliste.xls").Activate
'Windows("Anmedungsbestaetigung_mail").Activate
Cells.Select
Selection.Copy
Windows("classeur1").Activate
Cells.Select
ActiveSheet.Paste
Dim reponse As String, nom As String
reponse = MsgBox("Wollen Sie dieses Dokument speichern ?", vbYesNo)
If reponse = vbYes Then
nom = InputBox("Gebe Sie dem Dokument einen Namen bitte" & Chr(13) _
& "z.b. Namen des Austeller", , "z.b. Mousel-Donkels")
If nom = "" Then Exit Sub
Application.GetSaveAsFilename (nom) & ".xls"
End If
End Sub
Bonjour
essaye de remplacer
Windows("classeur1").Activate par
Windows(1).ActivateCordialement
ps, tu devrais remplacer les termes en allemand pour ta question car on ne comprends rien en testant le fichier)
Salut
excuser moi pour les terme en allemend
j'ai fait la correction
Sub Enregistre_Sous()
Workbooks.Add
Windows("ficher_existant_tomma.xls").Activate
Cells.Select
Selection.Copy
Windows("classeur1").Activate
Cells.Select
ActiveSheet.Paste
Dim reponse As String, nom As String
reponse = MsgBox("voulez-vous enregrister ce document ?", vbYesNo)
If reponse = vbYes Then
nom = InputBox("donner un nom a ce document" & Chr(13) _
& "par exemble XXX", , "par ex. Mousel-Donkels")
If nom = "" Then Exit Sub
Application.GetSaveAsFilename (nom) & ".xls"
End If
End Sub
merci Tomma
salut a tous
ca marche
Windows(1).Activate
meci beaucoup
Tomma