Discussion :

[cati_78]

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.

[SilkyRoad]

bonsoir

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) ?

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

[drakkar_agfa]

Bonjour,

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

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
    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!

[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.

[CodeFacile]

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

Code :

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

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 :

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

1
2
 
 shNouveau.Cells(X, Y) = shAncien.Cells(X, Y)

[cati_78]

Merci. Cela fonctionne.