Bonjour et merci de prêter attention à mon sujet!
Je cherche à écrire un programme VBA qui écrit des formules dans une feuille de calcul excel. Voici mon code:
Sub calculerTotalCompilations()
Dim dossierFichier
Dim classeurOuvert, nomGroupe
dossierFichier = ThisWorkbook.Path
nomGroupe = "Sherco - Mars 2016.xlsx"
classeurOuvert = dossierFichier & "\" & nomGroupe
reference = classeurOuvert & "'!Tableau2[[#All],[Colonne3]])"
Range("K2").FormulaR1C1 = "=SUM('Sherco - Mars 2016.xlsx'!Tableau2[[#All],[Colonne3]])"
Range("L2").FormulaR1C1 = "=SUM('" & reference
End Sub
L'avant-avant-dernière ligne, il écrit bien la formule dans la cellule, même s'il affiche "#REF!" parce que la feuille "nomGroupe" est fermée. Première question: comment éviter cette erreur? Je ne veux pas ouvrir la feuille de calcul puisqu'il s'agit d'une simple lecture.
Ensuite, quand j’exécute le module, ça fait apparaître le message: "Erreur d'exécution '1004' - Erreur définie par l'application ou par l'objet. La ligne surlignée est l'avant-dernière, c'est elle qui pose problème. Deuxième question: pourquoi cette erreur? Cette ligne est pourtant assez similaire à la précédente.
Quelqu'un pourrait-il m'aider pour ces deux problèmes? J'utilise Excel 2013
Merci d'avance!
Je cherche à écrire un programme VBA qui écrit des formules dans une feuille de calcul excel. Voici mon code:
Sub calculerTotalCompilations()
Dim dossierFichier
Dim classeurOuvert, nomGroupe
dossierFichier = ThisWorkbook.Path
nomGroupe = "Sherco - Mars 2016.xlsx"
classeurOuvert = dossierFichier & "\" & nomGroupe
reference = classeurOuvert & "'!Tableau2[[#All],[Colonne3]])"
Range("K2").FormulaR1C1 = "=SUM('Sherco - Mars 2016.xlsx'!Tableau2[[#All],[Colonne3]])"
Range("L2").FormulaR1C1 = "=SUM('" & reference
End Sub
L'avant-avant-dernière ligne, il écrit bien la formule dans la cellule, même s'il affiche "#REF!" parce que la feuille "nomGroupe" est fermée. Première question: comment éviter cette erreur? Je ne veux pas ouvrir la feuille de calcul puisqu'il s'agit d'une simple lecture.
Ensuite, quand j’exécute le module, ça fait apparaître le message: "Erreur d'exécution '1004' - Erreur définie par l'application ou par l'objet. La ligne surlignée est l'avant-dernière, c'est elle qui pose problème. Deuxième question: pourquoi cette erreur? Cette ligne est pourtant assez similaire à la précédente.
Quelqu'un pourrait-il m'aider pour ces deux problèmes? J'utilise Excel 2013
Merci d'avance!