Enregistrer sous

[reinruof77]

Bonjour a tous et toutes

voila j'ai un code qui me permet d'enregistrer la feuil1 sans les macro mais je voudrais lui indiquer ou enregistrer (T:\bureau\2012 puis la date du jour) mais je ne sais pas l'adapter pourriez vous m'aider?

voici mon code:

Private Sub CommandButton3_Click()
strNom = Application.GetSaveAsFilename(ActiveSheet.Name, "Fichier Excel (*.xls),*.xls")
    
    If strNom <> False Then
    Sheets("Feuil1").Copy
    ActiveWindow.SmallScroll Down:=-54
    ActiveWorkbook.SaveAs strNom
   End If
End Sub

Merci de votre aide:

 

[dodoc5]

Re : Enregistrer sous

Sous Excel 2010 ça donne :

ActiveWorkbook.SaveAs Filename:= _
casDir + "\Référentiel_" + ComboBoxVal + ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ou casDir est un string contenant le chemin d'accès de mon choix.
donc ça devrait être pour toi quelque chose comme

Dim DateAuj As String
DateAuj = Date

"T:\bureau\2012" + DateAuj + ".xls"
à insérer au bon endroit dans la fonction GetSaveAsFilename

 

[WUTED]

Re : Enregistrer sous

Bonjour reinruof77, dodoc5,

Juste par curiosité :

Quel est l'intérêt de continuer à utiliser GetSaveAsFilename si tu imposes le chemin complet de ta sauvegarde?

WUTED

 

[dodoc5]

Re : Enregistrer sous

Moi j'en sais rien je fais comme j'ai pu trouver =P

Mes chemins d'accès changent selon l'excel pour ma part donc l'enregistrement de différents excel dans différents dossier ce fait automatiquement.

 

[reinruof77]

Re : Enregistrer sous

Merci pour vos réponse Mais je ne comprend pas tout (Je débute en visual basic)
Pourriez vous m'expliquer un peu.

Pour moi le but est d'enregistrer la feuille saisie dans un autre dossier et sans les macro, en fait j'enregistre tous les recommandés reçu et je voudrais que lorsque je déclenche la macro la feuil1 soit enregistrer dans un dossier a la date du jour.

Je suis ouvert a toutes proposition descentes.🙄

Merci de votre aide

 

[reinruof77]

Re : Enregistrer sous

Personne pour m'aider???

 

[WUTED]

Re : Enregistrer sous

Re reinruof77,


J'étais juste étonné que tu utilises une boite de dialogue "Enregistrer sous...", supposée être utile si tu laisses le choix à l'utilisateur, or là, tu sais précisément où tu veux sauver ton fichier.

Aprés au niveau du code, regarde ce que j'ai trouvé sur le forum, enregistrer un fichier sans les macros dorigine et qui a été posté par Staple1600 :

Sub copie1feuilleNOMACROS()
  Application.DisplayAlerts = False
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs Filename:="C:\Test\test2.xls", FileFormat:=xlNormal
  ActiveWindow.Close
End Sub

Adapté à ton problème, ça devrait donner quelque chose dans ce style :

Sub copie1feuilleNOMACROS()
  Application.DisplayAlerts = False
  Sheets("Feuil1").Copy
  ActiveWorkbook.SaveAs Filename:="T:\bureau\2012\" & Day(Date) & "-" & _
  Month(Date) & ".xls", FileFormat:=xlNormal
End Sub

Bonne soirée,
WUTED

 

[reinruof77]

Re : Enregistrer sous

Super merci de ton aide.