XL 2010 Macro enregistrer sous sur le bureau

  • Initiateur de la discussion Initiateur de la discussion TCO58
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

TCO58

XLDnaute Nouveau
Bonjour,

J'ai besoin de votre aide, j'aimerais faire une macro qui "enregistre sous" la feuille en TXT sous le nom FEC01 et ensuite qui envoi ce fichier par mail via OUTLOOK. J'aimerais que cela fonctionne sur n'importe quel ordinateur qui a OUTLOOK donc que l'enregistrement se fasse sur tous les bureaux de n'importe quel ordinateur ou le fichier Excel sera enregistrer.
J'ai mis ce code mais ca marche pas.

Sub FECJANVIER()
'
' FECJANVIER Macro
'
'
Columns("A:M").Select
Selection.Copy
Application.CutCopyMode = False
ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\FEC01.txt", _
FileFormat:=xlText, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

Comment faire pour que cela fonctionne ?

Par avance merci
 
Re

Houps, j'avais oublié un s 😉
Pour la peine, une petite macro tout droit sortie du four 😉
VB:
Sub Penitence()
sBureau = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox sBureau
End Sub
Tu sais désormais trouvé le chemin du Bureau 😉
 
Re

Essaies ta macro ainsi modifiée
VB:
Sub FECJANVIER_bis()
Dim strBur$
strBur = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'Columns("A:M").Copy
'Application.CutCopyMode = False
' ou colles-tu le contenu de A:M ??
ChDir strBur
ActiveWorkbook.SaveAs Filename:=strBur & "\" & "FEC01.txt", FileFormat:=xlText
Application.Dialogs(xlDialogSendMail).Show
End Sub
 
Re

Essaies ta macro ainsi modifiée
VB:
Sub FECJANVIER_bis()
Dim strBur$
strBur = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'Columns("A:M").Copy
'Application.CutCopyMode = False
' ou colles-tu le contenu de A:M ??
ChDir strBur
ActiveWorkbook.SaveAs Filename:=strBur & "\" & "FEC01.txt", FileFormat:=xlText
Application.Dialogs(xlDialogSendMail).Show
End Sub
Merci beaucoup, cela fonctionne par contre cela renomme ma feuille EXCEL en FEC01 et j'aimerais quelque ne soit pas renommée si possible. Comment faire ?

Par avance merci
 
Merci beaucoup, cela fonctionne par contre cela renomme ma feuille EXCEL en FEC01 et j'aimerais quelque ne soit pas renommée si possible. Comment faire ?

Par avance merci
Alors je me suis mal exprimé je pense, j'ai plusieurs fauille dans mon classeur et je veux qu'il exécute cette manipulation sur la feuille "ECRITURE01". je vais l'exécuter avec un bouton d'une autre feuille.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
3 K
Retour