pb avec copie de feuille excel

[loiclass]

Bonjour à tous,

J'ai une macro qui me sert à copier une feuille d'un classeur et la joindre à un mail.
Tout fonctionne correctement.

J'ai juste un petit soucis au moment ou j'ouvre le fichier excel en pièce jointe, excel m'affiche un message d'erreur à l'ouverture.

Je joint une capture d'écran.

Ci dessous ma macro:

ub Archive()
'
' Macro7 Macro
'



'Enregistrer la feuille souhaitée

Worksheets("fiche suivi").Copy

ActiveWorkbook.SaveAs Filename:= _
"chemin", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'Fermer la feuille enregistrée
Workbooks("nom_fichier").Close

'ouvrir fenetre outlook
Set oOutlook = CreateObject("Outlook.Application")
Set oNewMail = oOutlook.CreateItem(olMailItem)

With oNewMail
.Attachments.Add "chemin" '
.Recipients.Add "adresse" '
.Subject = "demande"
.Body = "texte du message"
.display '
End With

'supprimer feuille
Kill ("chemin")

End Sub

Merci de votre aide.

 

[Compte Supprimé 979]

Re : pb avec copie de feuille excel

Bonjour LoiClass

En nom de fichier tu mets "chemin" !?
1) Si tu veux utiliser une variable, il faut enlever les guillemets et ajouter & ".xls" à la fin
2) si'il s'agit bien du nom (dont je doute), il faut ajouter ".xls" à la fin

Exemple de code

Dim Chemin as String, sFic as string
Chemin = "C:\Temp\":sFic = "NomFichier.xlsx"
ActiveWorkbook.SaveAs Filename:= Chemin & sFic, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

A+​