Macro qui enregistre sous un nom précis et dans une emplacement précis

Bonjour,

Je souhaiterai modifié cette macro pour qu'elle enregistre le fichier qui a ete ouvert dans un dossier precis et avec un nom precis.

Pouvez vous m'aider?

Sub test()
  Dim sPath As String, sFic As String, Jour As Integer
  Dim Wbk As Workbook
  ' Définir le chemin
  sPath = "http://abc.com/rapportjour/"
  ' Définir le nom du fichier avec ## pour le jour à remplacer
  sFic = "stted_J_##.xlsx"
  ' Jour
  Jour = Day(Date)
  ' Remplacer les # avec le jour (il faudra voir si le jour est au format 00)
  sFic = Replace(sFic, "##", Jour)
  ' Ouvrir le fichier
  Set WbkAp = Workbooks.Open(sPath & sFic)
End Sub

Bonjour

Inutile de faire 2 post pour la même question...

Ta macro modifié

Sub bouton1()
 Dim spath As String, sFic As String
  spath = "http://abc.com/rapportjour/" ' Définir le chemin
  sFic = "stted_J_" & Format(Date, "dd") & ".xlsx"
  Workbooks.Open filename:=spath & sFic
End Sub

Pour le sauvegarder
ActiveWorkbook.SaveAs Filename:=spath & sFic

Tu marques sur ton fichier:

Je souhaite actualisé l'onglet A et B avec le fichier du jours

donc remplace le fichier actuelle et importe le fichier du jour J

( attention le fichier du jours a plusieurs onglet )

Dis au moins copier quoi sur A et quoi sur B....

A+ François

Bonjour,

ce que tu me propose ne répond pas à ma demande.

Je veux enregistré le fichier importé en lui donnant un nom et un emplacement precis

en gros, je veux enregistré en appellant le fichier " IMPORT" et qu'il soit dans l'emplacement D:\IMPORTJ\

Pouvez vous m'aider?

Il etait marqué où?

Sub bouton1()
 Dim spath As String, sFic As String
  spath = "D:\IMPORTJ\"
  sFic = "IMPORT.xlsx"
  ActiveWorkbook.SaveAs Filename:=spath & sFic
end sub

A+ François

Merci

Merci,

comment faire ces 2 macro en 1 seul macro?

Sub test()
  Dim sPath As String, sFic As String, Jour As Integer
  Dim Wbk As Workbook
  ' Définir le chemin
  sPath = "http://abc.com/rapportjour/"
  ' Définir le nom du fichier avec ## pour le jour à remplacer
  sFic = "stted_J_##.xlsx"
  ' Jour
  Jour = Day(Date)
  ' Remplacer les # avec le jour (il faudra voir si le jour est au format 00)
  sFic = Replace(sFic, "##", Jour)
  ' Ouvrir le fichier
  Set WbkAp = Workbooks.Open(sPath & sFic)
End Sub

Sub bouton1()
 Dim spath As String, sFic As String
  spath = "D:\IMPORTJ\"
  sFic = "IMPORT.xlsx"
  ActiveWorkbook.SaveAs Filename:=spath & sFic
end sub

merci d'avance

 Dim sPath As String, sFic As String, Jour As Integer
  Dim Wbk As Workbook
  ' Définir le chemin
  sPath = "http://abc.com/rapportjour/"
  ' Définir le nom du fichier avec ## pour le jour à remplacer
  sFic = "stted_J_##.xlsx"
  ' Jour
  Jour = Day(Date)
  ' Remplacer les # avec le jour (il faudra voir si le jour est au format 00)
  sFic = Replace(sFic, "##", Jour)
  ' Ouvrir le fichier
  Set WbkAp = Workbooks.Open(sPath & sFic)

  spath = "D:\IMPORTJ\"
  sFic = "IMPORT.xlsx"
  ActiveWorkbook.SaveAs Filename:=spath & sFic
end sub

A+ François

Super Merci.

Par contre j'ai une boite de message qui s'ouvre et qui me dit me propose de remplacé le fichier, est ce qu'il est possible de supprimé cette boite et d'enregistré directement?

Il me semble que c'est:

Application.DisplayAlerts = False

en début de macro

ne pas oublié de le remettre à true en fin de macro

A+ François