Récupérer des données à partir d'un fichier EXCEL

Version imprimable

13/03/2009, 20h41
cati_78

Récupérer des données à partir d'un fichier EXCEL

Bonjour,

Je me permets de solliciter votre aide sur le point suivant :

Je souhaite réaliser une macro permettant de rechercher un fichier EXCEL via une boîte de dialogue, de récupérer la valeur de plusieurs cellules sur un onglet (soit un copier-coller) sans ouvrir ce fichier.

Je ne sais pas comment procéder pour faire un copier-coller de données, tout en fermant le fichier source.

Merci d'avance pour votre aide.
13/03/2009, 21h06
SilkyRoad

bonsoir

Citation:

Je souhaite réaliser une macro permettant de rechercher un fichier EXCEL via une boîte de dialogue,

Comment choisir un fichier sur le PC et récupérer son nom (utilisation de GetOpenFilename) ?

Citation:

de récupérer la valeur de plusieurs cellules sur un onglet (soit un copier-coller) sans ouvrir ce fichier.

http://silkyroad.developpez.com/VBA/ClasseursFermes/

bon week end
michel

Bonjour,

Je crois que tu devrais pouvoir te débrouiller avec ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim FileToOpen
    Dim shAncien As Worksheet
    Dim shNouveau As Worksheet
 
    Set shAncien = ActiveSheet
 
    FileToOpen = Application.GetOpenFilename()
    Workbooks.OpenText Filename:= _
        FileToOpen, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma _
        :=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
 
    Set shNouveau = ActiveSheet
 
    shNouveau.Cells(1, 1) = shAncien.Cells(1, 1)
 
'   Active celui que tu veux fermer.
    shAncien.Activate
    shNouveau.Activate
'   ********************************
 
    ActiveWorkbook.Close

Si tu as besoin d'aide, n'hésite pas!

01/04/2009, 20h03
cati_78

Bonsoir,

En testant, le fichier de référence s'ouvre et je n'arrive pas à faire de copier coller de plusieurs cellules (fichier origine => fichier final) qui ne sont pas côte à côte dans la feuille. Par ailleurs, je me permets de vous demander la démarche à suivre pour supprimer les clignotements (provoqués par le basculement des fichiers).

Merci d'avance pour votre aide.
02/04/2009, 09h38
CodeFacile

Rafraichissement écran
Pour éviter les scintillements écran , tu peux utiliser la commande suivante :
Code:

1 2 Application.ScreenUpdating = False
Pour le problème de copie de cellule non côte à côte , je ne comprend pas car tu fais de la copie cellule par cellule :
Code:

1 2 shNouveau.Cells(X, Y) = shAncien.Cells(X, Y)
08/04/2009, 20h21
cati_78

Merci. Cela fonctionne.