Concaténation de variable VBA dans une formule somme

[tapesec]

Bonjour amis d'excel,

Je me tourne vers vous pour une question de concaténation de variable.

J'ai deux classeurs excel contenant chacun un tableau, je voudrais aller chercher des données dans les cellules du 2ème tableau pour remplir automatiquement avec une macro le premier.

Comme je dois effectuer cette action plein de fois et que tous ces fichiers sont sur un serveur d'entreprise j'ai utilisé un chemin absolue voyez l'exemple ci dessous :

Range("D19:E20").Select
ActiveCell.FormulaR1C1 = _
"=SUM('\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\[scp.xls]aujourdhui'!R17C13,'\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\[scp.xls]aujourdhui'!R17C14,'\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\[scp.xls]aujourdhui'!R17C15,'\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\[scp.xls]aujourdhui'!R17C16)"

Quand je fais comme ça, cela fonctionne, mais bon j'ai ce genre de calcul a faire 50 fois et j'ai pas envie de tout retaper a chaque changement d'emplacement de mes classeurs alors j'ai donc fait une constante qui reprends la première partie de mon adresse:

Public Const CheminB$ = "'\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\"

Voilà ma question est, comment faire pour insérer ma constante CheminB$ dans ma formule pour que ça revienne au même que tout taper, toutes mes tentatives donnent une erreur de syntaxe, si vous avez l'amabilité de me montrer la concaténation d'une constante en VBA, moi je ne connais que le PHP.

Merci

 

[tototiti2008]

Re : Concaténation de variable VBA dans une formule somme

Bonjour tapesec,

à tester

Const CheminB$ = "'\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\"
Range("D19:E20").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('" & CheminB & "[scp.xls]aujourdhui'!R17C13:R17C16)"

 

[tapesec]

Re : Concaténation de variable VBA dans une formule somme

Non, navré cela ne fonctionne pas

 

[tapesec]

Re : Concaténation de variable VBA dans une formule somme

Personne n'aurait une idée ?

 

[tototiti2008]

Re : Concaténation de variable VBA dans une formule somme

Re,

Pas toujours facile à l'aveugle
J'avais mis une apostrophe de trop, essaye

Const CheminB$ = "\\11.218.142.218\sdcsr\sdcsr_commun\UOC\Effectifs SDRCSR\"
Range("D19:E20").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM('" & CheminB & "[scp.xls]aujourdhui'!R17C13:R17C16)"

 

[tapesec]

Re : Concaténation de variable VBA dans une formule somme

Cela fonctionne niquel merci !, j'avais confondu le & avec $ ....