Save as dans une macro MS Excel
Fermé
Caillou
-
18 juin 2008 à 20:05
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 20 juin 2008 à 10:09
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 20 juin 2008 à 10:09
A voir également:
- Save as dans une macro MS Excel
- Save as pdf - Télécharger - Bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
338
18 juin 2008 à 21:22
18 juin 2008 à 21:22
bonjour
soit tes données pour le nom de fichier en A2, B2 et C2.
Voici un petit bout de code qui devrait te convenir :
à plus
soit tes données pour le nom de fichier en A2, B2 et C2.
Voici un petit bout de code qui devrait te convenir :
Sub Enregistrer() Chemin = ActiveWorkbook.Path DateFich = Cells(2, 1).Value An = CStr(Year(DateFich)) Mois = CStr(Month(DateFich)) Jour = CStr(Day(DateFich)) DateFich = An & "-" & Mois & "-" & Jour RefClient = CStr(Cells(2, 2).Value) NomClient = Cells(2, 3).Value ActiveWorkbook.SaveAs Filename:=Chemin & "\" & DateFich & "_" & _ RefClient & "_" & NomClient & ".xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False End Sub
à plus
19 juin 2008 à 18:42
----------------------------------------------
Sub test()
ActiveWorkbook.ActiveSheet.Select
ActiveWorkbook.ActiveSheet.Copy
Calculate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Chemin = ActiveWorkbook.Path
DateFich = Cells(2, 1).Value
An = CStr(Year(DateFich))
Mois = CStr(Month(DateFich))
Jour = CStr(Day(DateFich))
DateFich = An & "-" & Mois & "-" & Jour
RefClient = CStr(Cells(2, 2).Value)
NomClient = Cells(2, 3).Value
ChDir "C:\Documents and Settings\caillou\Mes documents\Discount Request Form"
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & DateFich & "_" & _
RefClient & "_" & NomClient & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
----------------------------
j'aimerais qu'il aille s'enregistrer sous ChDir "C:\Documents and Settings\caillou\Mes documents\Discount Request Form", aussi est-ce que le user caillou peut créer probleme lorsque j'enverai mon ficher contenant la macro a divers users car lorsqu'ils se serviront de la macro j'aimerais que le fichier aille s'enregistrer sous leur lecteur C dans le document Discount Request Form qu'ils auront créé préalablement
Autre question, dans le code j,ai mis calculate car mon fichier aura des formules et ensuite il va faire son copie valeur, mais je veux m'assurer que le calcul sera fait avant de faire son copie valeur, le recalcul prend 5-10secondes, suis-je mieux de mettre un "wait" de quelques secondes et ensuite faire en sorte que la macro continue. Si oui est-ce que tu connais le code pour mettre ce "wait"
Merci beaucoup!
Caillou
19 juin 2008 à 18:54
remplace dans ton code :
par ceci :
pour ta deuxième question, plutôt qu'un wait utilise : DoEvents
à plus
19 juin 2008 à 19:33
-----------------------------------------------------------
ActiveWorkbook.ActiveSheet.Select
ActiveWorkbook.ActiveSheet.Copy
Calculate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Chemin = ActiveWorkbook.Path
DateFich = Cells(2, 1).Value
An = CStr(Year(DateFich))
Mois = CStr(Month(DateFich))
Jour = CStr(Day(DateFich))
DateFich = An & "-" & Mois & "-" & Jour
RefClient = CStr(Cells(2, 2).Value)
NomClient = Cells(2, 3).Value
Chemin2 = "C:\Documents and Settings\caillou\Mes documents\Discount Request Form"
ActiveWorkbook.SaveAs Filename:=Chemin2 & "\" & DateFich & "_" & _
RefClient & "_" & NomClient & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
-------------------
encore une fois merci
Caillou
20 juin 2008 à 10:09
es-tu certain du nom de tes répertoires inscrits dans la définition de "Chemin2" ?
à plus