XL 2010 Macro enregistrer sous sur le bureau

TCO58 · 20 Février 2020

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

Staple1600 · 20 Février 2020

Bonsoir le fil

Voir dans les archives du forum
(sujet traité moult fois)
Avec ce mot-clé: SpecialFolder et celui_là aussi: Desktop cela devrait être plus simple pour tes recherches

Rechercher des discussions

www.excel-downloads.com

TCO58 · 20 Février 2020

Staple1600 à dit:
Bonsoir le fil

Voir dans les archives du forum
(sujet traité moult fois)
Avec ce mot-clé: SpecialFolder et celui_là aussi: Desktop cela devrait être plus simple pour tes recherches

Rechercher des discussions

www.excel-downloads.com

Bonsoir,

je suis désolé mais je ne trouve pas grand chose s’y rapprochant

Staple1600 · 21 Février 2020

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

Staple1600 · 21 Février 2020

Re

Avec le s, le moteur de recherche aurait te prouver son efficience

https://www.excel-downloads.com/thr...efini-dans-une-cellue.20037464/#post-20267792

PS: Encore désolé, pour la coquille

Staple1600 · 21 Février 2020

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

TCO58 · 21 Février 2020

Staple1600 à dit:

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

TCO58 · 21 Février 2020

TCO58 à dit:
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.

Staple1600 · 21 Février 2020

Bonsoir le fil

Essaie en rajoutant (à la même place) ce que j'ai "gommé"
CreateBackup:=False

XL 2010 Macro enregistrer sous sur le bureau

TCO58

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Rechercher des discussions

TCO58

XLDnaute Nouveau

Rechercher des discussions

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TCO58

XLDnaute Nouveau

TCO58

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires