Enregistrer une feuil a partir d'une cellule qui n'est pas dans la même feuil
Fermé
Jeremie
-
2 juil. 2021 à 15:38
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 5 juil. 2021 à 17:03
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 5 juil. 2021 à 17:03
A voir également:
- Enregistrer une feuil a partir d'une cellule qui n'est pas dans la même feuil
- Aller à la ligne dans une cellule excel - Guide
- Comment enregistrer une video youtube - Guide
- Audacity enregistrer son pc - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
1 réponse
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 709
2 juil. 2021 à 18:01
2 juil. 2021 à 18:01
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
5 juil. 2021 à 10:28
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
5 juil. 2021 à 11:11
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?
5 juil. 2021 à 11:15
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
5 juil. 2021 à 16:41
Oui, ce que je vous ai propose
5 juil. 2021 à 16:55