Enregistrer une feuil a partir d'une cellule qui n'est pas dans la même feuil
Jeremie
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je début sur excel en VBA et j''aimerais enregistrer une feuil à partir d'une cellule ( cellule F8 ) dans laquelle il y a le nom de la feuil en question. De plus, la cellule ( F8 ) ne se situe pas dans la feuil que j'aimerais enregistré mais dans une feuil intitulé "Poste"
J'ai essayé ce code mais il ne fonctionne pas :
Sub Archivage()
Sheets("Poste").Activate
i = Range("F8").Value
Sheets(i).SaveAs "\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location\" & Range("L19").Value & ".xls"
End Sub
Si quelqu'un a la solution ^^
Je début sur excel en VBA et j''aimerais enregistrer une feuil à partir d'une cellule ( cellule F8 ) dans laquelle il y a le nom de la feuil en question. De plus, la cellule ( F8 ) ne se situe pas dans la feuil que j'aimerais enregistré mais dans une feuil intitulé "Poste"
J'ai essayé ce code mais il ne fonctionne pas :
Sub Archivage()
Sheets("Poste").Activate
i = Range("F8").Value
Sheets(i).SaveAs "\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location\" & Range("L19").Value & ".xls"
End Sub
Si quelqu'un a la solution ^^
A voir également:
- Enregistrer une feuil a partir d'une cellule qui n'est pas dans la même feuil
- Audacity enregistrer son pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Enregistrer une conversation - Guide
1 réponse
Bonjour,
Une facon de faire
Une facon de faire
Sub Archivage()
With Sheets("Poste")
Sh = .Range("F8")
Fichier = .Range("L19")
End With
Sheets(Sh).Copy
'enregistrement dans un nouveau classeur
Application.DisplayAlerts = False 'desactive les alertes Excel
With ActiveWorkbook
'.Title = ActiveSheet.Name 'titre pour propriete/detail du classeur
'.Subject = ActiveSheet.Name ' objet pour propriete/detail du classeur
.SaveAs Filename:="\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location\" & Fichier & ".xls" 'sauvegarde le nouveau classeur
.Close True 'ferme le nouveau classeur avec sauvegarde
End With
Application.DisplayAlerts = True 'active les alertes Excel
End Sub
Merci pour ton aide mais la feuil ne s'enregistre pas au bon endroit et son nom deviens un mélange de la case F8 et de la feuil en question.
J'ai essayé une autre macro qui se raproche plus du résultats espéré :
With Sheets("Poste").Activate
i = Range("F8").Value
Sheets(i).SaveAs "\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location" & Range("F8").Value & ".xls"
MsgBox "Contrat enregesitré dans > Partage > A SAV > LOCATION > Archive Contrat de Location", vbInformation, "Enregistrement"
End With
Application.DisplayAlerts = True
ne s'enregistre pas au bon endroit et son nom deviens un mélange
C'est bien vous qui avez ecrit ceci au depart
Sheets(i).SaveAs "\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location\" & Range("L19").Value & ".xls"et pourquoi post <3>,ceci sans le "\" apres location, vu dans le message de votre boite a dialogue Archive Contrat et bien un repretoire:
Sheets(i).SaveAs "\\10.92.231.25\Partage\A SAV\LOCATION\Archive Contrat de Location" & Range("F8").Value & ".xls"Dans mon exemple:
feuille "POSTE"
F8 c'est le nom de feuille
L19 c'est le nom du fichier
Maintenant qu'est ce qui ne va pas?
C'est bon j'ai trouvé la solution !!!!!
Code :
With Sheets("Poste")
sh = .Range("F8")
Fichier = .Range("L19")
End With
Sheets(sh).Copy
With ActiveWorkbook
Dim Path As String
Dim filename As String
Path = "Y:\A SAV\LOCATION\Archive Contrat de Location\"
filename = Range("L19")
ActiveWorkbook.SaveAs Path & filename & ".xls", FileFormat:=xlNormal
Application.DisplayAlerts = False
End With
Oui, ce que je vous ai propose