Pb Collage Copie collage special feuile sans formules
Bonjour le forum
desirant faire un copie collage special feuilles sans formules mais avec les valeurs dfans une autre classeur, le sauvegarder et envoie par mail, j' ai construit le code ci dessous qui me met une erreur à cette ligne
.Range("A1").PasteSpecial xlPasteValues
Code ci dessous
Sub envoi_Feuille_v5()
Application.DisplayAlerts = False
Dim wb As Workbook, nfeuil$, nclass$, chemin$, nm As Name
chemin = ActiveWorkbook.Path
nfeuil = "Resultat_Mensuel"
nclass = nfeuil & "_" & Format(Date, "yyyy_mm_dd_") & ".xlsm"
'Créer copie dans le classeur
Sheets("Bilan").Select
ActiveSheet.Copy before:=Worksheets(1)
ActiveSheet.Name = nfeuil
With Worksheets(nfeuil)
.UsedRange.Copy
.Range("A1").PasteSpecial xlPasteValues
'Déplacement copie dans nouveau classeur
.Move
End With
Set wb = ActiveWorkbook
'Suppression des noms exportés dans le nouveau classeur
For Each nm In wb.Names
nm.Delete
Next nm
'Enregistrement
wb.SaveAs chemin & nclass
' wb.SaveAs chemin & "\Temp\" & nfeuil & "_" & Format(Date, "yyyy_mm_dd_") & ".xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=chemin & "\Temp\" & nfeuil & "_" & Format(Date, "yyyy_mm_dd_") & ".xls"
msg.Display
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Merci d' avance pour toute aide
Cordialement
Salut,
essaye avec ca....
.PasteSpecial Paste:=xlPasteValuesBonjour vaffancolor
Merci pour ta réponse rapide, toujours blocage sur la meme ligne de code
.Range("A1").PasteSpecial Paste:=xlPasteValues
Cordialement
Valo
A voir...
.Range("...").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd Bonjour vaffancolor et le forum
Ta deuxieme propoisition ne fonctionne pas non plus, mais j' ai fais autrement en sauvegardant déja l' onglet copie/Coller special valeurs dans un autre classeur et une autre macro pour l' envoi.
Merci d' avoir éssayé de m' aider
Cordialement