Création de fichiers dans un dossier particulier de puis vba

Version imprimable

29/01/2025, 15h24
Vincentb74

Création de fichiers dans un dossier particulier de puis vba

Bonjour la forum, bonjour à tous,

Bien que plutôt à l'aise avec le vba, je me trouve confrontée à un vrai souci.
En effet, j'ai une application avec laquelle je créé des fichiers vendeurs chaque fin de mois.

Le principe:
Au moment de la création des fichiers, je dois mettre à jour la feuille récapitulatif
Pour cela, j'ai un petit sous-programme:

ws_Recapitulatif.Activate
ps_Mois = "Février 2025"
Range("H2").Value = ""
Range("A2").Value = ps_Mois

For zi_Nbr = 6 To 35
Range("D" & zi_Nbr).Formula2R1C1 = "=IF(RC[-2]<>"""",'H:\Gestion Ventes\Travail\ " & ps_Mois & "[Vendeur" & Format(zi_Nbr - 5, "00") & ".xlsm]Mensuel'!R47C4,"""")"
Next zi_Nbr

C'est cette dernière formule qui me pose problème car voici le résultat sur la feuille Excel:

=SI(B6<>"";'H:\Gestion Ventes\Travail\[ Février 2025[Vendeur01.xlsm]Mensuel] Février 2025[Vendeur01.xlsm]Me'!$D$47;"")
au lieu de
=SI(B6<>"";'H:\Gestion Ventes\Travail\[ Février 2025[Vendeur01.xlsm]Mensuel'!$D$47;"")

Comme vous le voyez, j'ai des caractères ajoutés en fin de ligne => Février 2025[Vendeur01.xlsm]Me ???

Je suis un peu désappointé.
Merci par avance de l'aide que vous pourrer m'apporter.
Respectueusement,

Vincent
29/01/2025, 15h47
Nain porte koi

Hello,

quand j'ai des doutes sur une formule à mettre dans une cellule via VBA, je met la formule dans Excel (et vérifie que j'ai le bon résultat :D), et j'affiche son contenu avec Range("A1").Formula ou FormulaR1C1 dans votre cas ; en général ça me donne pas mal d'indices sur ce que je dois mettre dans le VBA

Edit : vous avez de crochets "[" et "]" dans vos noms de dossiers ? Le nom du fichier est " Février 2025[Vendeur01.xlsm" ? ça me semble très bizarre cette syntaxe
29/01/2025, 17h05
Vincentb74

Citation:

Envoyé par Nain porte koi

Hello,

quand j'ai des doutes sur une formule à mettre dans une cellule via VBA, je met la formule dans Excel (et vérifie que j'ai le bon résultat :D), et j'affiche son contenu avec Range("A1").Formula ou FormulaR1C1 dans votre cas ; en général ça me donne pas mal d'indices sur ce que je dois mettre dans le VBA

Edit : vous avez de crochets "[" et "]" dans vos noms de dossiers ? Le nom du fichier est " Février 2025[Vendeur01.xlsm" ? ça me semble très bizarre cette syntaxe

Alors, auparavant, le fichier "Récapitulatif.xlsm" était indépendant. J'ai regoupé les fichiers dans le fichier principal.
Du coup, ma formule doit évoluée.

J'ai essayé de coller la formule dans la cellule mais excel la refuse:
J'ai créé cette application il y a plus de 10 ans et j'ai décidé de le mettre à jour en regroupant les 4 fichiers initiaux:
Gestion_Ventes
Gestion_Objectifs
Gestion_Produits
Gestion_Recapitulatif

Tout fonctionne parfaitement sauf la génération des fichiers :(

Merci beaucoup pour votre réponse.
Respectueusement,
Vincent

Bonjour à tous,
Peut-être en utilisant INDIRECT.

Code:

1
2
3
4
5
6
    With Feuil1 ' A PARAMETRER !!!
        Dim zi_Nbr As Long
        For zi_Nbr = 6 To 35
            .Range("D" & zi_Nbr).Formula2R1C1 = "=IF(RC[-2]<>"""",INDIRECT(""'H:\Gestion Ventes\Travail\" & ps_Mois & "[Vendeur" & Format(zi_Nbr - 5, "00") & ".xlsm]Mensuel'!R47C4""),"""")"
        Next zi_Nbr
    End With

ps. Penser à remplacer Feuil1 par le nom de code de la feuille concernée.

Citation:
Envoyé par Valtrase
Bonjour à tous,
Peut-être en utilisant INDIRECT.
Code:

1 2 3 4 5 6 With Feuil1 ' A PARAMETRER !!! Dim zi_Nbr As Long For zi_Nbr = 6 To 35 .Range("D" & zi_Nbr).Formula2R1C1 = "=IF(RC[-2]<>"""",INDIRECT(""'H:\Gestion Ventes\Travail\" & ps_Mois & "[Vendeur" & Format(zi_Nbr - 5, "00") & ".xlsm]Mensuel'!R47C4""),"""")" Next zi_Nbr End With
ps. Penser à remplacer Feuil1 par le nom de code de la feuille concernée.
Bonjour Valtrase
Merci beaucoup pour votre solution qui foncitonne parfaitement.
Merci également à Nain Porte Koi

Cette question est résolue ainsi.

Respectueusemenent,
Vincent