Changer un nom de fichier automatiquement par une variable [Résolu]

Réponse 2 / 6

robbybasch Messages postés 100 Date d'inscription Statut Membre Dernière intervention

Bonjour
merci de votre réponse qui fonctionne parfaitement. Mais comme vous le dites dans le post, il est nécessaire d'ouvrir le fichier de l'année précédente. La comptable qui va utiliser ce fichier ne pensera pas forcement à ouvrir les deux documents en même temps, c'est là que cela risque de bloquer. C'est pour cela que je m'orientais vers une macro et que j'ai fait appel à la liste car je ne connais pas le langage.
Néanmoins c'est super sympa d'avoir répondu si rapidement, je vous remercie encore via55. Je ne connaissais pas la fonction indirect que j'ai ajoutée de suite à mon répertoire de connaissance.
CDL
Robby

Réponse 3 / 6

robbybasch Messages postés 100 Date d'inscription Statut Membre Dernière intervention

Excusez moi, c'est encore moi... je suis en train de penser (dans l'info on n'arrête pas de penser même la nuit), par la fonction indirect j'ouvre mes deux fichiers une 1ère fois en fin d'année, je mets à jour l'année suivante par cette fonction et là... il faudrait une macro qui permettent de garder dans la cellule année-1 le contenu donnée par la fonction indirect, cela pourrait même être à coté de la cellule. Je masquerai la colonne ou se trouve la fonction indirect. Y aurait-il une âme dévouée pour me faire cela en macro ???
CDL
Robby

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

Bonjour

Pour pouvoir lire dans un classeur fermé il faut indiquer le chemin complet du fichier dans la formule mais avec le chemin complet la fonction INDIRECT ne fonctionne pas
Une autre solution consisterait à indiquer le chemin complet dans la référence d'un nom défini et d'utiliser ce nom dans les formules. Pour changer d'année il suffira de changer l'année dans la référence du nom.
voir ici : https://www.commentcamarche.net/faq/32961-vba-excel-lire-dans-un-classeur-ferme

Cdlmnt

robbybasch Messages postés 100 Date d'inscription Statut Membre Dernière intervention > via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention

merci
J'essaie tout cela demain.. et vous tiens au courant.
CDL
Robby

Réponse 4 / 6

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Vonjour

Une méthode à adapter
Macro dite de Walkenbach

Sub lire_ferme()
Dim chemin As String, milesime as integer
     chemin = ThisWorkbook.Path ' A ADAPTER
     milesime = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C1") 'R2C1=A2, NOM DU CLASSEUR A ADAPTER
    Msgbox "nomduclasseur" & milesime
End Sub

Michel

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

robbybasch Messages postés 100 Date d'inscription Statut Membre Dernière intervention

Bonsoir Michel
Excuse moi, mais je suis complétement ignare sur les macros. Sur excel lui même sans macro je me débrouille mais je suis zéro pointé dans les macros. Donc si tu peux m'éclaircir le code cela me serait d'un grand secour. je vous donne les infos suivantes :
le chemin est : F:\Poney Club du Moulin\Comptabilité\
dans ce dossier j'ai l'actuelle compta : 2014_comptabilité.xlsm avec entre autres une feuille 'bilan' et une feuille 'compte de résultat' et le futur 2015_comptabilité.xlsm avec entre autres une feuille 'bilan' et une feuille 'compte de résultat' qui sont actuellement vides car l'année n'est pas encore commencée sauf que dans le fichier 2015 je dois lire les infos 2014 et les placer dans cette feuille 2015..
Merci par avance de votre aide
CDL
Robby

Réponse 6 / 6

robbybasch Messages postés 100 Date d'inscription Statut Membre Dernière intervention

Bonjour
Ne connaissant pas grand chose au VBA, j'ai cherché, tatonné à partir de ce que mes deux profs m'ont indiqué, par ailleurs je les remercie grandement car sans eux je serai tjs en train de chercher et j'ai fini par trouver la bonne solution (à mes yeux, peut être y a t'il plus simple). Je vous la communique si quelqu'un d'autres est à la recherche du même problème que le mien.
CDL
Robby
Et un grand merci à via55 et michel_m

Sub ImporterDonneesSansOuvrir()

Dim Chemin As String, Fichier As String
Chemin = "F:\Poney Club du Moulin\Comptabilité\"
Fichier = "2014_Comptabilité Poney Club.xlsm"
'Plage D8 à D21
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$8:$C$21"
With Sheets("Compte de résultat général")
.[D8:D21] = "=plage"
.[D8:D21].Copy
Sheets("Compte de résultat général").Range("$D$8:$D$21").PasteSpecial xlPasteValues
'.[D8:D21].Clear
End With

'Plage1 D27 à D55

ThisWorkbook.Names.Add "plage1", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$27:$C$55"
With Sheets("Compte de résultat général")
.[D27:D55] = "=plage1"
.[D27:D55].Copy
Sheets("Compte de résultat général").Range("$D$27:$D$55").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Plage2 D61 à D63

ThisWorkbook.Names.Add "plage2", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$61:$C$63"
With Sheets("Compte de résultat général")
.[D61:D63] = "=plage2"
.[D61:D63].Copy
Sheets("Compte de résultat général").Range("$D$61:$D$63").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Plage3 D69 à D76

ThisWorkbook.Names.Add "plage3", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$69:$C$76"
With Sheets("Compte de résultat général")
.[D69:D76] = "=plage3"
.[D69:D76].Copy
Sheets("Compte de résultat général").Range("$D$69:$D$76").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Plage4 D80 à D82
ThisWorkbook.Names.Add "plage4", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$80:$C$82"
With Sheets("Compte de résultat général")
.[D80:D82] = "=plage4"
.[D80:D82].Copy
Sheets("Compte de résultat général").Range("$D$80:$D$82").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

'Plage5 D90 à D98
ThisWorkbook.Names.Add "plage5", _
RefersTo:="='" & Chemin & "[" & Fichier & "]Compte de résultat général'!$C$90:$C$98"
With Sheets("Compte de résultat général")
.[D90:D98] = "=plage5"
.[D90:D98].Copy
Sheets("Compte de résultat général").Range("$D$90:$D$98").PasteSpecial xlPasteValues
' .[D27:D55].Clear
End With

End Sub

Changer un nom de fichier automatiquement par une variable

6 réponses

Votre réponse

Discussions similaires