GuillaumA
XLDnaute Occasionnel
Bonjour,
J'ai le code suivant pour envoyer des mails:
Ma question est: Comment faire pour qu'il crée des .xls lorsque la version de l'utilisateur est 2003 et en .xlsx lorsqu'il utilise 2007 ?
Si c'est possible bien entendu.
Amicalement,
Guillaume A.
J'ai le code suivant pour envoyer des mails:
Code:
Sub EnvoyerMail()
Dim i As Integer
Dim NomDeLaFeuille As String
Dim NomDesClasseurs(1 To 11)
Dim ZonePJ As Range
Dim ZoneD As Range
Dim ZoneCC As Range
Set ZonePJ = Range("C19:C29")
Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
Dim debutnom As String
debutnom = Range("C38")
Answer = MsgBox(Range("C39"), vbYesNo)
If Answer = vbYes Then
For i = 19 To 29
If Not IsEmpty(Range("C" & i)) Then
NomDeLaFeuille = Range("C" & i)
[COLOR="red"]NomDesClasseurs(i - 19 + 1) = chemin & "\" & debutnom & NomDeLaFeuille & ".xls"[/COLOR]
Sheets(NomDeLaFeuille).Visible = True
ThisWorkbook.Sheets(NomDeLaFeuille).Copy
ActiveWorkbook.SaveAs (chemin & "\" & debutnom & NomDeLaFeuille)
ActiveWorkbook.Close
Sheets(NomDeLaFeuille).Visible = False
End If
Next i
Call SendMailCDO(NomDesClasseurs)
For i = 1 To 11
If NomDesClasseurs(i) <> "" Then Kill NomDesClasseurs(i)
Next
ZonePJ.ClearContents
End If
End Sub
Ma question est: Comment faire pour qu'il crée des .xls lorsque la version de l'utilisateur est 2003 et en .xlsx lorsqu'il utilise 2007 ?
Si c'est possible bien entendu.
Amicalement,
Guillaume A.