Discussion :

[titilex]

Bonjour à tous,

Je viens à vous avec une petite problématique que je ne vois pas comment résoudre.
Pour info je suis plutôt en mode ''newbie'' en terme de programmation VBA.
Je vous expose le problème.
J'ai un classeur A qui me sert de fichier de transition pour réaliser des analyses de ventes.
J'ai un second classeur B qui représente les données d'entrées mensuelles (une feuille par semaine d'activités, soit 4 à 5 feuilles en fonction des mois).
Dans mon classeur A, j'ai mis en place un bouton qui me permet d'importer les feuilles du classeur B vers le A.
Ci-dessous le code que j'ai réussi à trouver qui me permet de réaliser cette opération.

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
Private Sub BOUT001_Click()
'IMPORTER DONNEES
 Dim i As Integer
 Dim nom As String
 Dim Nomdececlasseur As String
 Dim Nomcopie As String
 Dim chemin As Variant
 Application.DisplayAlerts = False
  chemin = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls")
   Workbooks.Open (chemin)
'classeur à copier
 Nomcopie = ActiveWorkbook.Name
 'on parcourt toutes les feuilles
 For i = 1 To Worksheets.Count
 Workbooks(Nomcopie).Activate
 'classeur à copier a adapter le nom
nom = Worksheets(i).Name
Nomdececlasseur = ThisWorkbook.Name
Sheets(nom).Select
 Sheets(nom).Copy After:=Workbooks(Nomdececlasseur).Sheets(1) 'classeur à coller a adapter le nom
Sheets(nom).Move After:=Sheets(Sheets.Count) 'on met les onglets dans l'ordre
Next
Workbooks(Nomdececlasseur).Sheets(1).Activate
Application.DisplayAlerts = True
End Sub

Cela fonctionne très bien. C'est à dire que le pop-up pour sélectionner le fichier s'ouvre, et je peux rechercher le fichier via l'explorer. Si je sélectionne le fichier, tout se passe bien. Les feuilles du classeur B vers le A se copie nickel. Mais si dans le pop-up je fais annuler, j'ai un bug qui apparaît, normal me dirait vous.

Que puis-je rajouter dans le code pour éviter le bug si je fais annuler ?

Merci d'avance.

[MarcelG]

Bonjour à toi, Bonjour au Forum,

Teste la valeur False à chemin.

Ton code pourrait par ailleurs être épuré. (Nom alloué inopportunément...)

[titilex]

Merci Marcel pour ta réponse rapide.

Mais désolé, quand je dis que je suis newbie, c'est pas des conneries.

Qu'entends tu par : Teste la valeur False à chemin

[MarcelG]

Salut,

Mais désolé, quand je dis que je suis newbie, c'est pas des conneries.

Pas grave.
Débranché que je suis, je na savais pas ce que signifie le terme

newbie

Le reste, je le sais.

Pour répondre à ta question,
Tu vérifies (If) si la variable affectée à GetOpen est fausse.
Si c'est le cas, la procédure s'arrêtera; autrement dit, tu sortiras de la procédure.

Pourrais-tu traduire cette indication (éventuellement en recherchant) et revenir avec le code.

A tout à l'heure.

[titilex]

Merci Marcel,

J'ai réussi à trouver comment programmer ça !

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
Private Sub BOUT001_Click()
'IMPORTER DONNEES
On Error Resume Next
 Dim i As Integer
 Dim nom As String
 Dim Nomdececlasseur As String
 Dim Nomcopie As String
 Dim chemin As Variant
 Application.DisplayAlerts = False
  chemin = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls")
If chemin = False Then
Exit Sub
End If
   Workbooks.Open (chemin)
'classeur à copier
 Nomcopie = ActiveWorkbook.Name
 'on parcourt toutes les feuilles
 For i = 1 To Worksheets.Count
 Workbooks(Nomcopie).Activate
 'classeur à copier a adapter le nom
nom = Worksheets(i).Name
Nomdececlasseur = ThisWorkbook.Name
Sheets(nom).Select
 Sheets(nom).Copy After:=Workbooks(Nomdececlasseur).Sheets(1) 'classeur à coller a adapter le nom
Sheets(nom).Move After:=Sheets(Sheets.Count) 'on met les onglets dans l'ordre
Next
Workbooks(Nomdececlasseur).Sheets(1).Activate
Application.DisplayAlerts = True
End Sub

Merci pour la voie à suivre !

[titilex]

Maintenant je voudrais au niveau de cette manip réaliser un dernier ajustement.
Je souhaite que le classeur des données (autrement dit le classeur B) soit fermé automatiquement et sans sauvegarde, une fois les feuille copier, mais il faut que ce soit seulement le fichier données qui soit fermé sans sauvegarde. Si un autre classeur Excel venait à être ouvert en même temps, il ne faudrait pas que cela en ferme d'autre.
Un avis sur cette fonction au regard du code déjà générer ?