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

Jeremie -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention - 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 ^^

Afficher la suite

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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
1. Jeremie
  
  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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > 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?
  
  0
3. Jeremie > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
  
  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
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Jeremie
  
  Re,
  
  Oui, ce que je vous ai propose
  
  0
5. Raymond PENTIER Messages postés 58230 Date d'inscription Statut Contributeur Dernière intervention 17 496 > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
  
  !!! :-)
  
  0

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

1 réponse

Discussions similaires

Newsletters