Comment integrer le contenu d'une variable dans une macro Résolu/Fermé

Question

Bonjour, 
Nous sommes dans une feuille qui gère la comptabilité d'une association
J'ai créé une macro afin de récupérer automatiquement les données de l'année n-1, pour les recopier dans l'année n. Jusqu’à présent tout est OK.
Mais je voudrais l'améliorer , en effet a chaque plan comptable il faut que j'aille dans la macro changer l'année en cours : voici le debut de la macro : 

Sub ImporterDonneesSansOuvrir()

Dim chemin As String, fichier As String
    chemin = "F:\Poney Club du Moulin\Comptabilité\"
    fichier = "2015_Comptabilité Poney Club.xlsm"
 
    'Actualisation feuille compte de résultat général
    'Plage D8 à D21 compte de résultat général
    ThisWorkbook.Names.Add "plagecrg", _
        RefersTo:="='" & chemin & "[" & fichier & "]Compte de résultat général'!$C$8:$C$21"

    With Sheets("Compte de résultat général")
        Worksheets("Compte de résultat général").Range("D8:D21").NumberFormat = "#,##0.00 $"
        Worksheets("Compte de résultat général").Range("C8:C21").NumberFormat = "#,##0.00 $"
        Worksheets("Compte de résultat général").Range("E8:E21").NumberFormat = "#,##0.00 $"
        Worksheets("Compte de résultat général").Range("C8:E21").NumberFormat = "#,##0.00 $"
        
        .[D8:D21] = "=plagecrg"
        .[D8:D21].Copy
       
         Sheets("Compte de résultat général").Range("$D$8:$D$21").PasteSpecial xlPasteValues
        

    End With

Ce qui m'intéresserait serait de passer 2015 (fichier = 2015_Comptabilité..." dans une variable qui existe pour d'autres calcul (elle se trouve dans l'onglet "données générales G3" du style fichier= Données générales G3 + "_Comptabilité Poney Club.xlsm"
Ainsi tout serait automatiser.
Merci de votre aide.
Cordielement Robby

Configuration: Windows 7 / Firefox 47.0

michel_m · Answer

Bonjour

dim An_0 as integerAn_0= sheets("données générales").range("G3")fichier =An_0 &"_Comptabilité Poney Club.xlsm" 
mais pourquoi
Worksheets("Compte de résultat général").Range("D8:D21").NumberFormat = "#,##0.$"puisSheets("Compte de résultat général").Range("$D$8:$D$21").PasteSpecial xlPasteValues 
car on ne sait pas trop sur quel classeur tu te situes.... peut-^tre fichier source
An_0-1

peut-^tre simplifier avec
Worksheets("Compte de résultat général").Range("C8:E21").NumberFormat = "#,##0.00 $" 

 
 Michel

Comment integrer le contenu d'une variable dans une macro

1 réponse

Discussions similaires