Discussion :

[awa123]

Bonjour,

je cherche tout simplement à aller sur un fichier fermé pour copier une plage de données et ensuite la coller sur le fichier sur lequel je suis.

pour l'instant la portion de code sur laquelle je travaille pour arriver à cette réalisation est celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
        With Worksheets(NomFeuille)
 
            'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
            plage_JSem.Copy .Range("A1")
 
             Select Case JSem(Cells(1, 6))
 
            Case Is = "lundi"
                 Chemin = "C:\Users\\Desktop\semaine.xlsm"    ' boucler sur toutes les feuilles du fichier
 
                ThisWorkbook.Names.Add "plage_a_copier", _
                                       RefersTo:="='" & Chemin & "Feuil1'!$A$1:$F$10"
 
                With Sheets("Feuil1")
                    .[A1:F10] = "=plage_a_copier"
                    .[A1:F10].Copy
                End With
 
                .Range("A2").PasteSpecial xlPasteValues
 
 
         Case Is = "dimanche"
                          MsgBox ("c'est dimanche")
            End Select
 
        End With

j'ai essayé d'adapter des bouts de ce que j'ai pu trouver sur le net mais en vain...

Merci infiniment

[Menhir]

je cherche tout simplement à aller sur un fichier fermé pour copier une plage de données et ensuite la coller sur le fichier sur lequel je suis.

A part attaquer directement l'écriture sur des secteurs de disque, je ne vois pas trop comment on pourrait lire ou écrire sur un fichier qui n'est pas ouvert.
L'ouverture peut être automatique, masquée, invisible, etc. mais le fichier sera forcément ouvert si tu veux traiter son contenu.

j'ai essayé d'adapter des bouts de ce que j'ai pu trouver sur le net

Effectivement, on ressent bien à la lecture de ce code, l'assemblage façon patchwork.

[clementmarcotte]

Bonjour,

C'est le genre de choses qui se font de la même manière, en gros, qu'avec une base de données:

Voir:

Le tutoriel de silkyroad

[Citrax]

Bonsoir, sans vouloir contredire les pro, il semble que lire sur classeur fermé par code est impossible, par contre par liaison c'est assez facile :

Il est parfois intéressant d'extraire des informations d'un fichier fermé :
- pour gagner du temps (éviter d'ouvrir, lire puis fermer le fichier)
- et quand le fichier est "corrompu" et refuse de s'ouvrir.

La méthode la plus simple consiste à établir un lien entre une feuille Excel et le fichier fermé :
Il suffit pour cela d'inscrire dans une cellule la référence à une cellule du fichier fermé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='C:\MES DOCUMENTS\[fichier_corrompu.xls]Feuil1'!A1

(cliquer ici pour plus de détails)

Il est par contre impossible de lire directement un classeur fermé par macro.
- On peut bien sur l'ouvrir, le lire puis le fermer en mode "masqué".
- Mais on peut aussi utiliser la technique précédente, c'est à dire inscrire dans une feuille de calcul un lien pointant sur une plage du classeur fermé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1) = "='c:\mes documents\[zaza.xls]Feuil1'!R3C5"

- Une autre technique, qui évite d'utiliser une feuille Excel, consiste à mettre en œuvre la fonction Excel 4 équivalente :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ExecuteExcel4Macro("'c:\mes documents\[zaza.xls]feuil1'!R3C5")

(source : Jacxl, merci a lui)