Discussion :

[Murasakibara]

Bonjour,
En cherchant sur le net, j'ai trouvé une macro qui me permet de copier des fichiers dans un classeur et les renomme d'une certaine manière (ex : nom du fichier Tata - 2022, nom de l'onglet Toto. une fois la copie faite il doit s'appeler Tata - 2022.xlsx(Toto)). Globalement elle fonctionne bien mais il y a parfois des loupés, elle ne garde que le nom de l'onglet. Pourriez-vous m'aider à la fiabiliser.
Ah oui, je suis débutant dans le codage

Voici le code :

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
31
32
33
34
35
36
37
38
39
40
41
42
Sub Récup_Fichier()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
 
On Error Resume Next
xStrPath = "P:\FINANCE\COMPTA\xxx\"
xStrFName = Dir(xStrPath & "*.xlsx")
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Set xTWB = ThisWorkbook
 
Do While Len(xStrFName) > 0
 
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
 
    For Each xWS In ActiveWorkbook.Sheets
        xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
        Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
        xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
 
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
 
Loop
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
Worksheets("Acompte_Solde").Select
 
MsgBox "Traitement Terminé"
 
End Sub

Je vous remercie par avance pour votre aide.

[78chris]

Bonjour

Les noms d'onglets sont limités à 31 caractères

[Murasakibara]

Je n'atteins pas ce nombre, 25 caractères max.

[Tête de chat]

Bonjour

peut-être des caractères interdits ?
Enlève le

Code :

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

On Error Resume Next

ou mets avant l'instruction name un

Code :

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

On Error Goto 0

pour avoir le détail de ce qui plante

[Murasakibara]

Je pense avoir identifié le souci.
Je m'explique la macro ne fonctionne pas lorsque c'est un fichier unique (Avec un onglet Tata) que je diffuse.
Il me le renvoie et je l'enregistre d'une certaine manière (Entite-annee.xlsx).
La macro récupère bien le 1er fichier mais elle beugue ensuite.
Pourriez-vous m'aider à contourner ce souci.
Il n'y a aucun souci quand les fichiers sont issues d'un logociel.

[deedolith]

Salut,

Commence par retirer Application.ScreenUpdating = False ainsi que Application.DisplayAlerts = False, histoire de voir ce qui se passe
Ces instructions, si besoin, c'est à la fin du développement, lorsque l'on a obtenu le comportement désiré.

Ensuite, vire cet horrible On Error Resume Next.
Les erreurs existent pour une raison, et doivent être traitées, les ignorer ne les fait pas disparaitre.

Enfin, écrit un gestionnaire d'erreur qui a minima, te renvoie le message d'erreur.
Ca nous permettra d'avancer, au lieu de jouer à cache-cache.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Récup_Fichier()
On Error Goto Error
 
    '// code de la fonction
 
Exit Sub
Error:
        '// Affiche l'erreur dans la fenêtre d'execution
    Debug.Print "Erreur N°" & Err.Number & vbTab & Err.Description
End Sub

[Murasakibara]

Le message d'erreur est le suivant :
Erreur d'exécution '1004' :
Vous avez tapé un nom de feuille de graphique non valide. Vérifiez les points suivants :
- Le nom ne dépasse pas 31 caractères => le nom n'a pas 31 caractères
- Le nom ne contient aucun des caractères suivants : \/?*[ou] => Il ne contient aucun de ces caractères
- Le champs du nom n'est pas vide => Le champs n'est pas vide

[Philippe Tulliez]

Bonjour,
Personnellement, tant que le projet ne fonctionne pas parfaitement, je supprimerais le "On Error" car outre le numéro et le texte de l'erreur, il est important de savoir à quelle ligne l'erreur a lieu.

[deedolith]

@Philippe Tulliez:
Je ne te donne pas tort.
Cependant, tu conviendras qu'une première technique de débogage est mieux que pas de technique du tout.

@Murasakibara:
On avance.
Maintenant, tu vas ajouter l'instruction Stop dans le gestionnaire d'erreur (il ne faudra pas oublier de l'enlever quand tu n'en auras plus besoin).
Cette dernière causera un arrêt du programme lors du plantage.
Tu pourras alors vérifier le contenu des variables.
Soit via la fenêtre espions.
Soit via la fenêtre d'exécution, en entrant par exemple:

Code :

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

?xStrAWBName & "(" & xMWS.Name & ")"

(n'oublie pas le point d'intérrogation en debut de ligne, c'est important).

[Philippe Tulliez]

Bonjour Deedolith,

Cependant, tu conviendras qu'une première technique de débogage est mieux que pas de technique du tout.

Nous sommes bien d'accord mais comme dans cette procédure, il y a plusieurs lignes d'instructions qui peuvent générer l'erreur 1004, je me dis qu'il serait plus sage de geler le "On error" pour y voir clair.

[Murasakibara]

Bonjour à tous,
J'ai trouvé l'anomalie. Il s'agissait d'une feuille masquée qui posait problème.
Je vous remercie pour votre aide et surtout grâce à vos questions j'appréhende de mieux en mieux le VBA.

[Tête de chat]

Bonjour,

=> le nom n'a pas 31 caractères
=> Il ne contient aucun de ces caractères
=> Le champs n'est pas vide

Ou alors le nom de l'onglet n'est pas ce que tu penses...

Au passage ça serait bien de remplacer l'utilisation de activeworkbook par un objet. Je ne dis pas que ça présente un risque ici (encore qu'il faut bien que l'erreur vienne de qq part) mais c'est quand même une source de problème :

Code :

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

1
2
3
4
5
6
7
8
9
Set xAWS = Workbooks.Open (Filename:=xStrPath & xStrFName, ReadOnly:=True)
 
    For Each xWS In xAWS.Sheets
        xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
        Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
        xMWS.Name = xAWS.Name & "(" & xMWS.Name & ")"
    Next xWS
 
    xAWS.Close

xAWS ayant préalablement été déclaré comme Workbook

[Murasakibara]

Merci pour ton conseil Tête de chat.

[Pierre Fauconnier]

Salut.

Perso, je mets les "On Error" dès le début de ma programmation et je ne les gèle pas par des mises en commentaires.

Il existe une option dans le VBE qui indique au code de s'arrêter sur chaque erreur, qu'elle soit gérée ou non.

Donc, on met les On Error dès le début et en DEV, on utilise la bonne option au niveau du VBE



Pour une utilisation en PROD, on met simplement un mot de passe sur le projet VBA. Ainsi, même avec "Arrêt sur toutes les erreurs", on évite que l'utilisateur entre en débogage.

Evidemment, ça nécessite de placer une gestion d'erreur "On Error" dans toute procédure évènementielle.