Incrémenter fichier excel dans formule

Résolu/Fermé
gwen - 15 déc. 2009 à 19:01
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 17 déc. 2009 à 13:12
Bonjour,
Je dispose d'un répertoire avec 1000 fichiers excel (1 fichier par client). J'ai créer un autre fichier excel dans ce même répertoir reprenant la liste de ces clients dans la 1ère colonne, le numéro de fichier excel correspondant à ce client dans la 2ème colonne et le résultats d'une cellule du fichier client dans la 3ème colonne.
Je voudrais partir de cette 3ème colonne et glisser vers le bas pour copier le contenu de la formule mais le numéro du fichier excel ne s'incrémente pas.
le contenu de la formule est : ='\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\[473.xls]STAT'!$E$18.
Je voudrais juste passer par un glissé de 473 à 474 puis 475...
Peut-on m'aider ?

Merci d'avance,
A voir également:

3 réponses

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
15 déc. 2009 à 20:57
Bonjour,
Si les numéros se suivent, tu peux utiliser une macro du type

For i = 0 To 999
Range("C1").Offset(i,0).Value = "='\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\[" & (473+i) &".xls]STAT'!$E$18"
Next i

Sinon, il est possible de faire une recherche sur les fichiers contenu dans le répertoire, ou autre.
0
Bonjour,

Merci beaucoup pour la macro qui fonctionne à merveille. Tu viens de me faire gagner un temps précieux !

A +
0
Re bonjour,

Une dernière question. J'ai aussi une 4ème colonne où il y a simplement un lien hypertexte me permettant d'acceder directement au fichier client concerné en cliquant dans la cellule. Est il possible d'incrémenter toute cette colonne par macro comme celle de la colonne précédente pour les formules afin que les n° fichiers xls se suivent ?

file:///\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\1.xls - STAT!A1

Merci d'avance,
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
17 déc. 2009 à 12:44
Bonjour,

Oui, dans la boucle For, tu ajoutes la ligne :

ActiveSheet.Hyperlinks.Add Anchor:=Range("D1").Offset(i,0), _
Address:= "\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\" & (i+1) & ".xls - STAT!A1 ", _
TextToDisplay:= "\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\" & (i+1) & ".xls - STAT!A1 "
0
Bonjour et merci pour la réponse à ma question qui me facilite énormément la vie !

quand je vois la complexité des macros je me demande comment tu fais. Est ce uniquement tes connaissances sur celles-ci ou existe t'il un bouquin reprenant les macros les plus utilisées ou fais tu la manip à la main sur excel en enregistrant et envoie ensuite le résultat de la macro ?

En tout cas, je suis bluffer !
merci pour tout
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
17 déc. 2009 à 13:12
L'enregistreur de macro est une bonne méthode pour débuter sachant qu'il faut toujours essayer de comprendre ce que produit chaque ligne de code et ensuite, l'adapter à ses besoins. Tu trouveras de bon tutos sur ce site ou d'autres. Pour ma part, j'ai fais comme le gland qui veut devenir chêne, je me suis planté pour grandir :-) Il faut apprendre de ses erreurs.

0