Enregistrer classeur sous - nom = valeur de 3 celulles

[cartoiide]

Bonjour,

Je voudrais enregistrer un fichier excel dont le comportera la valeur de 2 cellule (ex : A1 - B3 - C5). Après quelques recherches, j'ai trouvé une procédure qui permet de faire ce travail mais en ne prenant la valeur que d'une seule cellule (A1). Comment dois-je adapter cette procédure ?

Merci de votre aide

[cpp]

Sub Macro14()

Dim str As String
Dim dir As String
dir = "C:/Mes Documents/"
Range("A1").Select
str = dir & ActiveCell.Text & ".xls"
ActiveWorkbook.SaveAs Filename:= _
str, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

[/cpp]

 

[mikebzh]

:??: Ta question n'a aucun sens, il doit manquer des mots, ou alors pardon c'est moi qui ne comprends pas !
Je devine que tu veux enregistrer un fichier ayant le nom contenu dans plusieurs cellules concaténées ??? du style
toto titi tata dans trois cellules pour faire un chemin du style toto/titi/tata
Précises ta pensée et nous pourrons t'aider

 

[zeb]

En voilà encore un qui utilise des Select et des ActiveTrucs et qui se posent du coup des questions bêtes.

V1:

Sub EnregistrerA1B3()
    Dim name As String
    
    name = "C:/Mes Documents/"
    name = name & Range("A1").Text
    name = name & Range("B3").Text
    name = name & ".xls"
    ActiveWorkbook.SaveAs Filename:=name
End Sub

V2 :

Sub EnregistrerA1B3()
    ActiveWorkbook.SaveAs Filename:="C:/Mes Documents/" & _
           Range("A1").Text & _
           Range("B3").Text & _
           ".xls"
End Sub

 

[cartoiide]

:??: Ta question n'a aucun sens, il doit manquer des mots, ou alors pardon c'est moi qui ne comprends pas !
Je devine que tu veux enregistrer un fichier ayant le nom contenu dans plusieurs cellules concaténées ??? du style
toto titi tata dans trois cellules pour faire un chemin du style toto/titi/tata
Précises ta pensée et nous pourrons t'aider

En effet il manquait le mot "mot" !

 

[cartoiide]

En voilà encore un qui utilise des Select et des ActiveTrucs et qui se posent du coup des questions bêtes.

V1:

Sub EnregistrerA1B3()
    Dim name As String
    
    name = "C:/Mes Documents/"
    name = name & Range("A1").Text
    name = name & Range("B3").Text
    name = name & ".xls"
    ActiveWorkbook.SaveAs Filename:=name
End Sub

V2 :

Sub EnregistrerA1B3()
    ActiveWorkbook.SaveAs Filename:="C:/Mes Documents/" & _
           Range("A1").Text & _
           Range("B3").Text & _
           ".xls"
End Sub

Bonjour,

Merci pour ta réponse. Je chois la 2è formule qui est très simple à comprendre. Merci encore c'est éxactement ce que je cherchais.