Macro - Sauver fichier dans folder...

[jbdubreuil]

Bonjour le forum,

J'ai un fichier que j' update tous les mois avec une macro qui marche tres bien.
J'aimerais ameliorer la macro en remplacant la date que je mets manuellement dans Nom_Fichier = "\\06-2008" & "-" & F.Name
par une une variable qui serait dans le fichier (exemple: cellule A1 de l'onglet "PARA".)

Comment est ce possible?

Merci par avance,

Je vous joins le code ci dessous au cas ou...


Sub Eclater_Classeur()
Dim Nom_Fichier As String
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In ThisWorkbook.Worksheets
'ici remplacer le nom avec le nom du répertoire adéquat
Nom_Fichier = "\\2008\06-2008" & "-" & F.Name
'ici équivalent collage spécial Valeurs
F.UsedRange.Value = F.UsedRange.Value
F.Copy
ActiveWorkbook.SaveAs (Nom_Fichier)
ActiveWindow.Close
Next F
Application.ScreenUpdating = False
End Sub

 

[nougitch]

Re : Macro - Sauver fichier dans folder...

Bonjour,
Je pense qu'avec le code suivant cela devrait marcher.
Sinon joint un fichier.
++

Sub Eclater_Classeur()
Dim Nom_Fichier As String
Dim F As Worksheet
Application.ScreenUpdating = False
For Each F In ThisWorkbook.Worksheets
'ici remplacer le nom avec le nom du répertoire adéquat
Nom_Fichier = Sheets("Para").Range("A1").Value & "-" & F.Name
'ici équivalent collage spécial Valeurs
F.UsedRange.Value = F.UsedRange.Value
F.Copy
ActiveWorkbook.SaveAs (Nom_Fichier)
ActiveWindow.Close
Next F
Application.ScreenUpdating = False
End Sub

 

[jbdubreuil]

Re : Macro - Sauver fichier dans folder...

Bonjour,

Merci pour la reponse rapide.
J'aurai du y penser mais j'avoue ne pas encore avoir les bons reflexes en VBA.
Ca marche parfaitement.
Merci 🙂

 

[jbdubreuil]

Re : Macro - Sauver fichier dans folder...

Enfin une derniere question:
Je veux que le fichier se ferme automatiquement sans sauvegarde.
Comment puis je ajouter ce code?

Merci

 

[Pierrot93]

Re : Macro - Sauver fichier dans folder...

Bonsoir,

pour une fermeture de fichier sans sauvegarde, essaye avec le code ci dessous, ferme le classeur où se trouve la procédure :

ThisWorkbook.Close False

bonne soirée
@+