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 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 - 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 ^^

1 réponse

f894009 Messages postés 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 1 655
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 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 1 655 > 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 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022
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 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 1 655 > Jeremie
5 juil. 2021 à 16:41
Re,

Oui, ce que je vous ai propose
0
Raymond PENTIER Messages postés 56699 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 1 octobre 2022 17 178 > f894009 Messages postés 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022
5 juil. 2021 à 16:55
!!! :-)
0