Discussion :

[macx56]

Bonjours,
J’ai un souci au niveau de l’envoie de mon fichier par mail.

J’ai créé la macro pour l’envoie, mais je rencontre deux soucies, l’un est que les données sont dans le corps du mail et non en pièce jointe. L’autre est que ceux qui le reçoivent utilise un téléphone portable pour lire le fichier mais il n’y arrive pas. Je pense que c’est le fait que le fichier prend en charge les macros, donc je souhaiter que pour l’envoie de l’email, qu’il envoi le fichier sous un format excel normal tel que .xl .

Voici mon programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Envoie_mail()
 
    ActiveSheet.Range("A1: P23").Select ' la plage de cellules à envoyer
    ActiveWorkbook.EnvelopeVisible = True
 
    With ActiveSheet.MailEnvelope
        .Item.To = "macx@123.fr"
        .Item.Subject = "le sujet"
        .Item.Send
    End With
 
End Sub

Merci d'avance Maximilien

[macx56]

Excuser moi, mais si personne à une solution à mon problème j'ai pensé à le détourné sur la partie formatage en .xl
Si on met à part l'envoie de mail et ce problème de pièce jointe. Il me faudrait un programme qui, finalement, créé un doublon de mon fichier en format .xl ou .xls donc sans le code.
PS: Vu que cette action sera effectuée plusieurs fois, un message d’erreur(à partir de la 2nd activation de la macro) va m'indiquer le fameux "Il y a déjà un fichier portant ce nom.Voulez-vous remplacer ce fichier par celui sélection" donc y inclure dans cette aparté une petite ligne qui indique par défaut "True" à cette question

Merci
Cordialement Maximilien

[illight]

Tu as regardé du côté de la fonction FileCopyAs ? je pense que ça répondrait à ton besoin pour l'enregistrement de ton fichier au format que tu souhaites

Tu l'as au format xlsm je pense => le FileCopyAs peut surement te l'enregistrer en copie en xlsx. Par contre, je te conseille de garder le chemin et le nom de ton nouveau fichier dans une variable, pour après pouvoir le joindre à ton mail

[macx56]

Ok merci je vais y jeter un oeil

[macx56]

J'ai testé mais sa bloc.
En utilisant ta formule, j'ai fait cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fileCopy "G:\Stage M\Missions annexes\Planning1.xlsm", "C:\Test\Planning2.xl"

J'ai peut etre trouver

[illight]

Pardon,j eme suis trompé dans la fonction : C'est SaveCopyAs qu'il faut utiliser

la fonction FileCopy te permet de copier d'un fichier vers un autre, mais il faut que ces fichiers aient la même extension. Donc ça marchera pas pour ton cas.

Si tu utilise la méthode SaveCopyAs, tu pourras (peut-être ?) sauvegarder ton fichier Excel en copie dans un "autre format".

Sinon, tu peux utiliser le SaveAs, avec les arguments suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges

En ayant au préalable mis le nom de ton fichier en xlsx. Le problème est que si tu fais ça, je ne sais pas si les macros vont continuer de tourner par la suite

quand tu dis ça bloque, tu veux dire quoi par là ?

[macx56]

C'est que il y'avait un blocage au niveau de la macro comme quand il y'a une erreur de mise.

Je vais voir ce que je peux faire

J'ai trouvé un truc très simple par hasart

ActiveSheet.Copy
suffi à créé un nouveau fichier avec les données de la feuille.
Cependant j'aimerais changer le nom de ce nouveau fichier, le sauvegarder au nom "Planning " & semaine & ".xls" puis le fermer

Le problème c'est qu'il change le nom du fichier source. Avez-vous une solution?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Changement_format()
'Changement de format xlsm (prenant en charge les macro) en xls
 
    Dim semaine As String
    semaine = ActiveSheet.Name
 
    With ActiveSheet
        .Copy
        .SaveAs "C:\Stage\Planning " & semaine & ".xls"
    End With
 
End Sub

[illight]

D'où l'utilisation du SaveCopyAs

[macx56]

Justement excel ne veut pas exécuter lorsque je met .SaveCopyAs au lieu de .SaveAs
Mais il va sauvegarder la feuille qui à lancer la procédure et savecopyas va bien copier sous le bon format mais tous le fichier(les macros existent toujours) et quand on souhaite l'ouvrir, il y'a un méssage qui dit que le format du fichier est différents de son extention et je me demande si ceux qui devrons ouvrir le mail par téléphone vont réussir.