Enregistrer fichier avec un chemin sans l'avoir sur le nom Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Camille65
Jeune membre
Jeune membre
Messages : 28
Inscrit le : 10 juin 2015
Version d'Excel : 2010

Message par Camille65 » 11 juin 2015, 14:37

Bonjour le forum,

j'ai créé une nouvelle macro qui fonctionne très bien, la voici :
Private Sub Workbook_Open()
variable = InputBox$("Veuillez renseigner le mois de référence")
Dim extension As String
    Dim chemin As String
    Dim nomfichier As String
   
    extension = ".xlsm"
    chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old"
    nomfichier = "Suivi coût TBM " & variable & extension

    With ActiveWorkbook
      
        SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     
    End With
Sheets("OFFICIEL").Select
Range("D3").Value = variable
Range("N4").Value = "Moyenne " & variable
Range("O4").Value = "Delta " & variable
End Sub
Mais j'aimerai que le nom du fichier enregistré ne comporte que la variable "nomfichier" alors qu'ici il y a aussi le "chemin" mais si je l'enlève de Filename, le fichier ne s'enregistre pas au bon endroit ...

J'espère que j'ai été claire,

Merci d'avance
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'613
Appréciations reçues : 296
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 12 juin 2015, 09:31

Bonjour,

essaie ceci
Private Sub Workbook_Open()
variable = InputBox$("Veuillez renseigner le mois de référence")
Dim extension As String
    Dim chemin As String
    Dim nomfichier As String
   
    extension = ".xlsm"
    chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old\"
    nomfichier = "Suivi coût TBM " & variable & extension

    With ActiveWorkbook
      
        SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     
    End With
Sheets("OFFICIEL").Select
Range("D3").Value = variable
Range("N4").Value = "Moyenne " & variable
Range("O4").Value = "Delta " & variable
End Sub
C
Camille65
Jeune membre
Jeune membre
Messages : 28
Inscrit le : 10 juin 2015
Version d'Excel : 2010

Message par Camille65 » 12 juin 2015, 10:01

Euh ... Il me semble que tu n'as rien changé , si ?? Peut-être que je me trompe mais je l'ai regardé plusieurs fois sans voir de différences...
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'613
Appréciations reçues : 296
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 12 juin 2015, 10:29

j'ai ajouté un \

dans l'instruction
chemin = "\\Hautacam\Suivi-OI-DAG-TBM\TBM\2015\Résultats\old\"
C
Camille65
Jeune membre
Jeune membre
Messages : 28
Inscrit le : 10 juin 2015
Version d'Excel : 2010

Message par Camille65 » 12 juin 2015, 10:46

Autant pour moi j'avais pas vu. Je te remercie beaucoup, c'est génial ça marche parfaitement comme je veux.

Merciiii :D :D
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message