Copier dans un sous répertoire

[friscogreencar]

Bonjour,

A partir d'un doc xls, je le copie dans word : c:\\temps\\A.doc.
J'enregistre ce dernier avec le nom d'une cellule de mon xls :
NomDoc=range('B1').doc (OK ça marche)
mais je veux l'enregistrer dans un sous-répertoire existant à partir du valeur d'une cellule du XLS :
Rep=Range(A1')
ActveDocument.SaveAs Filename:= c:\\temp\\rep
Et ça ne marche pas.

Merci à celui ou celle qui me trouve une solution

friscogreencar

 

[Hellboy]

Bonsoir friscogreencar

Une tentative:

'    Ne pas oublié de mettre un \ à la fin de Rep
'    Exemple:
'    Rep = 'C:\Test\'
    ActveDocument.SaveAs Filename:=Rep & NomDoc

 

[friscogreencar]

bonsoir Hellboy

je n'ai pas bien compris.

En premier lieu mes anti-slash n'apparaissent pas alors que je les écris !!

je veux récupérer la valeur de la cellule B2 dans laquelle est écrit Machin
je fais Rep=range('B2')

puis copier mon doc dans le sous répertoire C: \\ temp \\ Machin \\
Mais je ne veux pas utiliser Machin, car dans une autre feuille B2 vaut Truc.
je fais donc : ActiveDocument.SaveAs Filename=:C: \\ temp \\ rep \\ NomDoc

et ça ne marche pas

merci

 

[Hellboy]

re

Pour les anti-slash je crois qu'il faut en écire 4 pour que un seul apparaisse ou tu peut le remplacer sans espace en avant ou après par '\' sans les doubles guillemets

Bon là tu me mélange.

Si

Rep = Range('b2') (Machin)
NomDoc = Range('b1') (allo.doc)

Essaie cette formulation:

        Dim Rep    As String, NomDoc    As String
        ActveDocument.SaveAs Filename:='C:\temp\' & Rep & '\' & NomDoc

 

[friscogreencar]

Merci beaucoup HellBoy, ça marche super

@+