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 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 - 5 juil. 2021 à 17:03
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 ^^
A voir également:

1 réponse

f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 1 701
2 juil. 2021 à 18:01
Bonjour,
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
0
Bonjour,

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
0
f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 1 701 > Jeremie
5 juil. 2021 à 11:11
Bonjour,

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?
0
Jeremie > f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024
5 juil. 2021 à 11:15
Bonjour,

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
0
f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024 1 701 > Jeremie
5 juil. 2021 à 16:41
Re,

Oui, ce que je vous ai propose
0
Raymond PENTIER Messages postés 58252 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 février 2024 17 105 > f894009 Messages postés 17180 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 février 2024
5 juil. 2021 à 16:55
!!! :-)
0