XL 2010 exporter onglet vers répertoire

mix770

XLDnaute Impliqué
Bonjour le Forum,

j'avais une macro pour envoyer un onglet par mail, mais cela pose des Pb avec les outlook OWA web.

donc je vais sur une autre piste, je souhaite exporter un onglet avec un nom mais l'envoyer vers un dossier ex: D:/Appli/BPE/Résultats.


Merci à vous

ma macro actuelle

Sub Mail()
Sheets("Original").Copy
With ActiveSheet
.Name = "Parka_Janv_18"
.UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
.Columns("g:g").Cut Destination:=Columns("az:az")
.Columns("az:az").EntireColumn.Hidden = True
End With
ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
ActiveWorkbook.Close SaveChanges:=False
End Sub
 

Roland_M

XLDnaute Barbatruc
bonsoir

Code:
Sub SaveExporteFeuil()
Sheets("Original").Copy
With ActiveSheet
 .Name = "Parka_Janv_18"
 .UsedRange.Value = ActiveSheet.UsedRange.Value
'.Shapes("Bouton").Delete
 .Columns("g:g").Cut Destination:=Columns("az:az")
 .Columns("az:az").EntireColumn.Hidden = True
End With

'D:/Appli/BPE/Résultats
'FileFormat:=
'xlWorkbookNormal =xls
'xlOpenXMLWorkbook =xlsx
'xlOpenXMLWorkbookMacroEnabled =xlsm
'save xlsx !
ActiveWorkbook.SaveAs Filename:="D:/Appli/BPE/Résultats", FileFormat:=xlOpenXMLWorkbook = xlsx, CreateBackup:=False
ActiveWindow.Close
ThisWorkbook.Activate: Range("A1").Select

'ActiveWorkbook.SendMail Recipients:=Range("az2:az" & Range("az65535").End(xlUp).Row), Subject:=[a1]
'ActiveWorkbook.Close SaveChanges:=False
End Sub
 

mix770

XLDnaute Impliqué
Bonjour,
désolé pour le temps de réaction, je test la macro et cela bloque sur cette ligne:
ActiveWorkbook.SaveAs Filename:="D:/Appli/BPE/Résultats", FileFormat:=xlOpenXMLWorkbook = xlsx, CreateBackup:=False.

je suis sur une réflexion car le fichier généré sur le D est remis à jour chaque mois et regroupé pour consolider les infos en un seul tableau.

explication:
chaque pole a un tableau avec à exporter 1 onglet "résultat_exploitation" qui se met à jour chaque mois et 1 récap par mois (janv; fevr; etc).

est il possible qu'il y ait un fichier excel implanté sur le D appelé "pole_2018"
- que chaque mois se mette à jour l'onglet "résultats_exploitation" et qu'un nouvel onglet s'ajoute chaque mois (résultat_ janvier; résultat_fevrier; etc)
il ne faut que les valeurs, ne pas conserver le lien.

le but est ensuite de regrouper les fichier dans un seul endroit avec une consolidation des différents éléments en 1 seul.
merci à vous
 

Pièces jointes

  • pole_2018.xlsx
    34.7 KB · Affichages: 25