Enregistrer une feuil a partir d'une cellule qui n'est pas dans la même feuil

Signaler
-
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
-
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

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512
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
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512 > Jeremie
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?
>
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021

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
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512 > Jeremie
Re,

Oui, ce que je vous ai propose
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021
16 272 >
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021

!!! :-)
Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512 >
Messages postés
54290
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 juillet 2021

Bonjour Raymond

Ben oui, seul le chemin change, mais pas grave