Discussion :

[m@tix]

Bonjour,

Dans une macro, je suis amené à utliser le code suivant à répétition pour convertir les points en virgules (c'est le seul qui fonctionne vraiment dans mon cas), dans cet exemple on traite la colonne A:

Code :

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

1
2
.Columns(1).Replace what:=".", Replacement:=Application.DecimalSeparator
.Columns(1).TextToColumns Destination:=.Range("A1"), DecimalSeparator:=Application.DecimalSeparator

Voici mon problème: ma macro va traiter des données de fichiers extérieurs, et selon les mois, le contenu de ces fichiers diffère. Par exemple ce mois-ci, il n'y a aucune donnée dans l'un d'eux, et à l'exécution de la macro à l'ouverture mon classeur, j'ai l'erreur suivante qui empêche le reste de se faire convenablement:

Erreur d'exécution '1004': aucune donnée à convertir n'a été sélectionnée.

Auriez-vous une idée pour empêcher cette erreur ?

Merci d'avance.

[jfontaine]

Bonjour,

Tu peux négliger cette erreur et passer à la ligne suivante

Code :

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

1
2
3
On error Resume Next
.Columns(1).Replace what:=".", Replacement:=Application.DecimalSeparator
.Columns(1).TextToColumns Destination:=.Range("A1"), DecimalSeparator:=Application.DecimalSeparator

[m@tix]

Merci pour la réponse !

Sinon, j'avais pensé faire un If, du genre "Si le fichier est vide, alors faire l'action, sinon passer à la suite".

[jfontaine]

C'est aussi une solution

[m@tix]

J'aime bien ta solution, mais un problème persiste, à présent un autre message s'ouvre à l'exécution de la ligne:

Code :

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

.Columns(6).TextToColumns Destination:=.Range("F1"), DecimalSeparator:=Application.DecimalSeparator

Microsoft Office Excel ne trouve pas de données correspondantes à remplacer. Aucune cellule de la sélection ne contient ce que vous avez tapé ou bien aucun enregistrement ne correspond aux critères.

Une autre idée ?

[m@tix]

Je m'en suis sorti en bidouillant un peu !