Discussion :

[MsieurDams]

Bonjour à toutes et à tous, accros au VBA sous Excel

Je suis en train de monter un classeur excel dont le but est de comparer deux feuilles entre elles et pointer les différences dans une troisième. Cette partie fonctionne parfaitement, c'est la partie acquisition des données que je souhaite améliorer.

En effet, je souhaiterais avoir un code permettant à l'utilisateur d'obtenir la fenêtre "ouvrir fichier", récupérer le contenu de la feuille 1 de ce fichier (quelque soit son nom, pour des raisons de portabilité de code), le copier et le rapatrier dans une feuille "N" de mon classeur.

J'arrive bien à provoquer l'ouverture du fichier, mais je dois avoir des problèmes pour désigner correctement sur quel fichier je veux faire ma copie, puisque je récupère invariablement des erreurs "Subscript Out of Range"...

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
27
28
Sub N()
    Dim wb As Workbook, wks As Worksheet
 
    'Vide le contenu de N avant de demander l'ouverture du fichier
    Sheets("N").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
 
    'Appelle la boite d'ouverture de fichier
    MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
 
If MonFichier <> False Then
    'Ouvre le fichier spécifié
    Workbooks.Open Filename:=MonFichier
    Set wb = Workbooks(MonFichier)
    Set wks = wb.Sheets(1)
 
    'Détecte le nombre de lignes et crée une zone de sélection
    Dim LastLig3 As Long
 
    LastLig3 = ActiveSheet.Range("A65536").End(xlUp).Row
    Range("A" & LastLig3 & ":J" & LastLig3).Select
    Selection.Copy
    Windows("comparaison.xls").Activate
    Sheets("N").Select
    ActiveSheet.Paste
End If

Le reste du code est à l'avenant, puisqu'il a été réalisé à l'enregistreur de macro

Je pense que le problème doit venir de la variable MonFichier, laquelle contient le chemin complet du fichier, et non juste le nom. Peut être faudrait-il que "j'expurge" le chemin de cette variable...

Merci pour vos lumières

[pgz]

Bonjour;

Tu peux essayer de remplacer

Code :

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

 Set wb = Workbooks(MonFichier)

Par

Code :

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

 Set wb = Workbooks.Open(MonFichier)

Par ailleurs, pour faire une copie tu n'est pas oubligé de faire une sélection : voir méthode copy de l'objet Range.

Cordialement,

PGZ

[fgiambelluco]

Bonjour

je récupère invariablement des erreurs "Subscript Out of Range"

Sur quelle ligne du code le plantage ?

[MsieurDams]

Ok merci, ça passe.
L'instruction suivante doit définir la plage de données à sélectionner.

Code :

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

1
2
3
4
5
    'Détecte le nombre de lignes et crée une zone de sélection
 
    Dim LastLig3 As Long
    LastLig3 = ActiveSheet.Range("A65536").End(xlUp).Row
    Range("A" & LastLig3 & ":J" & LastLig3).Copy

J'ai déjà utilisé cette instruction pour la partie comparaison. Par fainéantise () j'ai recopié cette ligne en espérant que ça fonctionne.
Sauf que LastLig3 revient toujours avec la valeur 1 (j'ai fait l'essai avec un fichier de 2000 lignes et la zone de sélection ne se fait que sur la première ligne)...

[pgz]

Re,

Si tu cherches la dernière cellule de la colonne A dans la feuille 1 du classeur qui vient d'être ouvert, alors tu peux essayer de remplacer

Code :

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

LastLig3 = ActiveSheet.Range("A65536").End(xlUp).Row

par

Code :

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

LastLig3 = wks.Range("A65536").End(xlUp).Row

ou encore

Code :

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

LastLig3 = wks.Range("A" & Application.Rows.count).End(xlUp).Row

C'est mieux?

PGZ

[MsieurDams]

C'est parfait.

Pour la suite, je m'en sors avec un

Code :

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

1
2
3
4
Workbooks("comparaison.xls").Activate
Sheets("N").Select
Range("A1").Select
ActiveSheet.Paste

Et ça fonctionne. Merci à tous

[mercatog]

Tu peux t'en passer de tes Activate et Select!
si tu mettais ton code "final", il peut être amélioré

[MsieurDams]

Oui, il doit être possible de tout regrouper en une seule ligne...
Quelque chose comme

Code :

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

Workbooks("comparaison.xls").Sheets("N") ...