Incrémenter fichier excel dans formule

Résolu
gwen -  
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
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
gwen
 
Bonjour,

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

A +
0
gwen
 
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
Réponse 2 / 3
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
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
gwen
 
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
Réponse 3 / 3
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
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