Discussion :

[OBADJ]

Bonjour,

J'ai fait une formule SI en enregistrement macro, mais comment fait ton pour que la formule marche sur n'importe quel autre fichier. EN GROS INDIQUER LE NOM DE FICHIER EXCEL DANS LA FROMULE SI de base.... JE SAIS PAS SI JE SUIS CLAIR

Code :

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

1
2
 ActiveCell.FormulaR1C1 = _
    "=RC[-1]+SUMIF('BASE CALCUL SIN'!C[-12],'SUIVTRANS EN COURS'!RC[-9],'BASE CALCUL SIN'!C[-5])"

En gros je veux lui dire que c'est la feuille "SUIVTRANS EN COURS" du fichier "compteassu2018" par exemple.

[Menhir]

EN GROS INDIQUER LE NOM DE FICHIER EXCEL

Tu comptes l'indiquer comment le nom de fichier ? Saisie dans une cellule ? InputBox ? UserForm ? Résultat d'une recherche ?

[OBADJ]

Tu comptes l'indiquer comment le nom de fichier ? Saisie dans une cellule ? InputBox ? UserForm ? Résultat d'une recherche ?

Résultat d'une recherche dans cette fameuse feuille dans un autre fichier excel... Tu vois ce que je veux dire ? En gros je fais mon SOMMESI et je vais chercher mes éléments dans une autre feuille d'un autre classeur...

[Menhir]

Tu n'as pas compris ma question : le nouveau nom de fichier (celui qui est à mettre à la place de l'ancien), il vient d'où ? Comment la macro peut-elle le connaitre ? Il est à mettre en dur dans le code ? Si c'est le cas, je ne vois pas trop l'intérêt de la macro : autant le faire directement dans la formule.

[Patrice740]

Bonjour,

Un truc tout simple :
1) Tu écris la bonne formule manuellement dans la cellule active
2) Une petite sub :

Code :

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

1
2
3
Sub x()
  Debug.Print ActiveCell.FormulaR1C1
End Sub

[OBADJ]

Bonjour,

Un truc tout simple :
1) Tu écris la bonne formule manuellement dans la cellule active
2) Une petite sub :

Code :

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

1
2
3
Sub x()
  Debug.Print ActiveCell.FormulaR1C1
End Sub

En gros c'est comme ça ? J'ai mis ma formule et ensuite je mets ta ligne

Code :

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

1
2
3
4
ActiveCell.FormulaR1C1 = _
    "=RC[-1]+SUMIF('BASE CALCUL SIN'!C[-12],'SUIVTRANS EN COURS'!RC[-9],'BASE CALCUL SIN'!C[-5])"
Debug.Print ActiveCell.FormulaR1C1
End Sub

[Patrice740]

Bonjour,

En gros c'est comme ça ? J'ai mis ma formule et ensuite je mets ta ligne

Non, j'ai écris :

1) Tu écris la bonne formule manuellement dans la cellule active

[OBADJ]

Bonjour,


Non, j'ai écris :

Tu n'as pas compris ce que je voulais... Je dois le faire en code VBA ma formule je suis obliger de la mettre dans mon codage

[Patrice740]

RE,

Tu n'as pas compris ce que je voulais... Je dois le faire en code VBA ma formule je suis obliger de la mettre dans mon codage

C'est toi qui n'a pas compris ce que je t'ai proposé :
Il s'agit simplement de trouver un exemple de formule contenant le nom d'un des fichiers, formule qu'il faudra ensuite écrire avec le VBA.

Donc pour cela :
1) Tu ouvres en plus du fichier qui contient la macro, un des fichiers concerné, et dans une cellule du fichier de la macro, tu écris à la main la formule que tu souhaiterais y voir dans ce cas.
2) Ensuite tu lis cette formule avec la petite sub.
Et maintenant, tu dispose d'un exemple de la formule qui contient le nom d'un des fichiers concerné.
Il n'y a plus qu'a effectuer un traitement de ce texte :
concaténer la partie située avant le nom, le nom lu sur la feuille et la partie située après le nom.