Bonjour,
J'ai besoin de modifier la formule contenue dans plusieurs centaines de fichiers et bien sûr pas question de le faire à la main.
J'ai essayé diverses méthodes, mais cela se termine en général par une erreur 1004.
Je fait cela
Quand j'insère le texte de la variable cela marche, mais par vba cela se termine par 1004.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Range("K3").Select Formule = "=SI(GAUCHE(CELLULE(""Filename"");NBCAR(DATA!J4))=DATA!J4;RECHERCHEV(CONCATENER(" & "K4" & ";"" "";" & "K5" & ";""."";" & "K6" & ");INDIRECT.EXT(DATA!J1);7;FAUX);"""")" ActiveCell.FormulaR1C1 = Formule
Avez-vous une idées.
Merci de votre aide
Partager