Discussion :

[Neptune64]

Bonjour,

J'ai essayer mais je ne trouve pas la solution. J'aimerais enregistrer mon document dans un emplacement précis avec le nom du Range("B6") "nom_client.
Mon problème est que je n'arrive pas à faire les 2 choses. Soit le chemin est juste mais je n'arrive pas à ajouter le nom, soit le nom fonctionne mais pas le chemin !!

merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TEst()
Range("B6") = nom_client
 
ChDir "D:\Documents and Settings\Mes documents\Archive"
 
    ActiveWorkbook.SaveAs Filename:=nom_client, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 
End Sub

[Invité]

Bonjour

D'abord tu affectes la valeur de nom_client à la range, alors que c'est l'inverse.

Ensuite le ChDir ne sert à rien, concatène le chemin avec la valeur de la variable nom_client (en oubliant pas le \ entre les deux).

Philippe

[AlainTech]

Bonjour,

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B6") = nom_client

tu remplis la cellule B6 avec le contenu de la variable nom_client qui n'a été ni déclarée ni initialisée.
Autrement dit tu vides la cellules B6.
Est-ce bien ce que tu veux faire?

Une proposition mais qui pourrait être améliorée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
  Dim nom_client As String
  nom_client = Range("B6")
 
  ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\Mes documents\Archive\" & nom_client
 
End Sub

Zut, grillé, même à cette heure-ci...
Bonjour Philippe