Discussion :

[Somadra]

Bonjour,

Je suis débutant en VBA et j'aurais besoin d'éclaircissement pour finaliser une macro.

Je travaille sur un fichier de collection de carte, fichier que j'ai partagé à plusieurs connaissance faisant la même collection

De nouvelles séries arrivant, je suis amené à rajouter des onglets pour les rajouter, et le but de la macro étant de récupérer toutes les infos saisie (carte possédées ou non) des anciennes versions du fichier. Le nouveau fichier s'appelant "Checklist.xslm", et l'ancien "Import.xslx".

Le processus se décompose en 2 étapes:
- Premièrement, j'ai fait une macro qui permet d'aller sélectionner l'ancien fichier, de l'ouvrir, et de stocker son chemin complet dans une cellule Excel, dans le fichier "Checklist" donc, dans l'onglet "IMPORT" en case "F11" (renommé "Nom_du_fichier")
- Deuxième étape, la macro pour récupérer les infos de l'ancien fichier, activé grâce à un bouton d'action dans le même onglet.

J'ai fait macro fonctionnelle, qui copie correctement les onglets ("Série1", "Série2", ...) mais j'ai le nom de l'ancien fichier inscrit dans le dur dans la macro, et souhaiterais que la macro fonctionne en récupérant le nom stocké dans la case "F11", comme ça si un utilisateur modifie le nom du fichier source la macro reste fonctionnelle. Et c'est là que ca bloque, je sais pas faire

Si quelqu'un pourrait éclairer ma lanterne ca serait super, surtout que cela me servira certainement pour des projets plus professionnels.

Merci d'avance,

Somadra

[lucasgaetan]

Bonjour Somadra,

tu aurais pu chercher un peu.... bon, avant tu devais avoir un truc du genre:

Code :

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

Workbooks.Open Filename:="C:\Users\xxxx\Desktop\Import.xslx"

tu as deux solutions, soit comme tu le disais, tu inscris le nom du fichier dans une celulle:

Code :

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

1
2
3
4
5
Dim Chemin_Fichier As String
   Chemin_Fichier = ThisWorkbook.Sheets("IMPORT").Range("F11").Value2
    If Chemin_Fichier <> False Then
        Workbooks.Open Filename:=Chemin_Fichier
    End If

mais tu peux aussi mettre un bouton pour le sélectionner manuellement (tuto ici) :

Code :

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

1
2
3
4
5
Dim Chemin_Fichier As String
    Chemin_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
    If Chemin_Fichier <> False Then
        Workbooks.Open Filename:=Chemin_Fichier
    End If

[Menhir]

Le processus se décompose en 2 étapes:
- Premièrement, j'ai fait une macro qui permet d'aller sélectionner l'ancien fichier, de l'ouvrir, et de stocker son chemin complet dans une cellule Excel, dans le fichier "Checklist" donc, dans l'onglet "IMPORT" en case "F11" (renommé "Nom_du_fichier")
- Deuxième étape, la macro pour récupérer les infos de l'ancien fichier, activé grâce à un bouton d'action dans le même onglet.

Pourquoi ne pas faire ça en une seule fois ?

J'ai fait macro fonctionnelle, qui copie correctement les onglets ("Série1", "Série2", ...) mais j'ai le nom de l'ancien fichier inscrit dans le dur dans la macro, et souhaiterais que la macro fonctionne en récupérant le nom stocké dans la case "F11", comme ça si un utilisateur modifie le nom du fichier source la macro reste fonctionnelle. Et c'est là que ca bloque, je sais pas faire

Fais une copie de ton code, de préférence entouré de balises CODE (le bouton #).

[Somadra]

Bonjour,

Merci pour vos premières réponses, et pour l'attention accordée.

J'ai cherché mais je tombe surtout sur des trucs qui permettent d'inscrire dans une case le nom d'un fichier et pas utiliser le nom y étant stocké, sinon je serais pas venu poser la question ^^"

Je préfère que le processus se passe en 2 fois, histoire d'avoir une "sécurité" en cas d'erreur dans le choix du fichier.

Un extrait du code ci-dessous, qui est très basique pour le coup, et que je vais certainement simplifier

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
29
30
 
Sub Recup_V1
 
    Windows("Import.xlsx").Activate
    Sheets("Serie1").Select
    Range("E7:F293").Select
    Selection.Copy
    ThisWorkbook.Activate
    Sheets("Serie1").Select
    Range("E8:F294").Select
    ActiveSheet.Paste
 
    Windows("Import.xlsx").Activate
    Sheets("Serie2").Select
    Range("H6:K293").Select
    Selection.Copy
    ThisWorkbook.Activate
    Sheets("Serie2").Select
    Range("H7:K294").Select
    ActiveSheet.Paste
 
    Application.CutCopyMode = False
 
    Windows("Import.xlsx").Close
 
    ThisWorkbook.Activate
    Sheets("IMPORT").Select
    Range("F21").Value = "IMPORT REUSSI"
 
End Sub

[Menhir]

Je préfère que le processus se passe en 2 fois, histoire d'avoir une "sécurité" en cas d'erreur dans le choix du fichier.

Rien ne t'empêche d'intégrer cette sécurité à ton code en demandant à l'utilisateur de confirmer la procédure une fois le fichier choisi.
Il suffit pour cela d'une simple MsgBox.
https://msdn.microsoft.com/fr-fr/VBA...sgbox-function

Un extrait du code ci-dessous, qui est très basique pour le coup, et que je vais certainement simplifier

Pour commencer, j'ai un peu retoucher ton code pour le simplifier.
Deux conseils : évite autant que possibles les Select/Selection qui compliquent inutilement le code et pour désigner un classeur privilégie Workbook plutôt que Windows.

Code :

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

1
2
3
4
5
6
Sub Recup_V1
    Workbooks("Import.xlsx").Sheets("Serie1").Range("E7:F293").Copy ThisWorkbook.Sheets("Serie1").Range("E8")
    Workbooks("Import.xlsx").Sheets("Serie2").Range("H6:K293").Copy ThisWorkbook.Sheets("Serie2").Range("H7")
    Workbooks("Import.xlsx").Close
    ThisWorkbook.Sheets("IMPORT").Range("F21").Value = "IMPORT REUSSI"
End Sub

J'ai fait macro fonctionnelle, qui copie correctement les onglets ("Série1", "Série2", ...) mais j'ai le nom de l'ancien fichier inscrit dans le dur dans la macro, et souhaiterais que la macro fonctionne en récupérant le nom stocké dans la case "F11", comme ça si un utilisateur modifie le nom du fichier source la macro reste fonctionnelle. Et c'est là que ca bloque, je sais pas faire

C'est simple à faire si tu me dis où se trouve cette cellule F11 : classeur (ThisWorkbook ?) et onglet.

J'ai cherché mais je tombe surtout sur des trucs qui permettent d'inscrire dans une case le nom d'un fichier et pas utiliser le nom y étant stocké, sinon je serais pas venu poser la question ^^"

Si tu me montres le code qui permet de renseigner la cellule F11, je te montrerai qu'on peut faire tout ça en une seule macro tout en gardant un niveau raisonnable de "sécurité".