Bonsoir forum!
Question probablement niaiseuse, mais est-ce que c'est possible d'utiliser un code vba pour programmer des copies de tableaux provenant de différents dossiers dans un seul et même fichier qui n'est pas dans l'un de ces dossiers? Je m'explique : je suis gestionnaire, chaque employé a une feuille de temps dans son dossier personnel, mais j'aimerais rapatrier chaque tableau récapitulatif de leurs heures dans un seul classeur Excel, à des fins de calculs de paie. Malheureusement, étant donné la sensibilité de la donnée, je ne peux pas me permettre de la poster dans le forum.
Je précise que, même si je débute, je parviens à importer l'un des tableaux récapitulatifs sans problème dans le fichier de destination en autant que les deux classeurs soient dans le même dossier, avec le code ci-dessous que j'ai trouvé online. Mais y a-t-il un moyen d'ajouter un bout de code quelque part pour qu'il "comprenne" que les classeurs sont à différents endroits dans le serveur informatique??
Merci mille fois de votre temps!
Sub ExtractionAC()
Dim NCS As String 'Nom du classeur source
Dim CD As Workbook 'Nom du classeur de destination
Dim CS As Workbook 'Classeur source
Dim OD As Worksheet 'Onglet de destination
Dim CA As String 'Chemin d'accueil
'FDT_AC = "FDT_2021-2022_AC.xlsx" 'nom du classeur source + extension
Set CD = ThisWorkbook 'Classeur de destination
Set OD = CD.Worksheets("Feuil1") 'onglet de destination dans la feuille de destination
CA = "[Chemin d'accès + extension]" 'Définition du chemin d'accès
Set CS = Workbooks("FDT_2021-2022_AC.xlsx") 'Définition du classeur source (erreur si classeur non ouvert)
Set CS = Application.Workbooks.Open(CA) 'Définition du classeur source en l'ouvrant
CS.Worksheets(2).Range("a34:Z60").Copy OD.Range("d2") 'Copie de la plage utilisée du deuxième onglet du classeur source
End Sub
Question probablement niaiseuse, mais est-ce que c'est possible d'utiliser un code vba pour programmer des copies de tableaux provenant de différents dossiers dans un seul et même fichier qui n'est pas dans l'un de ces dossiers? Je m'explique : je suis gestionnaire, chaque employé a une feuille de temps dans son dossier personnel, mais j'aimerais rapatrier chaque tableau récapitulatif de leurs heures dans un seul classeur Excel, à des fins de calculs de paie. Malheureusement, étant donné la sensibilité de la donnée, je ne peux pas me permettre de la poster dans le forum.
Je précise que, même si je débute, je parviens à importer l'un des tableaux récapitulatifs sans problème dans le fichier de destination en autant que les deux classeurs soient dans le même dossier, avec le code ci-dessous que j'ai trouvé online. Mais y a-t-il un moyen d'ajouter un bout de code quelque part pour qu'il "comprenne" que les classeurs sont à différents endroits dans le serveur informatique??
Merci mille fois de votre temps!
Sub ExtractionAC()
Dim NCS As String 'Nom du classeur source
Dim CD As Workbook 'Nom du classeur de destination
Dim CS As Workbook 'Classeur source
Dim OD As Worksheet 'Onglet de destination
Dim CA As String 'Chemin d'accueil
'FDT_AC = "FDT_2021-2022_AC.xlsx" 'nom du classeur source + extension
Set CD = ThisWorkbook 'Classeur de destination
Set OD = CD.Worksheets("Feuil1") 'onglet de destination dans la feuille de destination
CA = "[Chemin d'accès + extension]" 'Définition du chemin d'accès
Set CS = Workbooks("FDT_2021-2022_AC.xlsx") 'Définition du classeur source (erreur si classeur non ouvert)
Set CS = Application.Workbooks.Open(CA) 'Définition du classeur source en l'ouvrant
CS.Worksheets(2).Range("a34:Z60").Copy OD.Range("d2") 'Copie de la plage utilisée du deuxième onglet du classeur source
End Sub
Dernière édition: