Excel VBA: copier feuille dans autre classeur

Résolu/Fermé

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - Modifié par Eaheru le 19/12/2011 à 18:56
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 20 déc. 2011 à 22:14

Bonjour,

J'essaie vainement de remettre en service une macro écrite il y a un moment et qui fonctionnait encore la semaine dernière sur un PC équipé de Excel 2003.
Hors depuis la migration sur Excel 2007, la copie de la feuille voulue du fichier 1 vers le fichier 2 , avant la feuille nommée "Param" ne se fait plus ...

Voici la commande passée :

ActiveWorkbook.Sheets(1).Copy Before:=Workbooks(Fichier2).Sheets("Param")

La syntaxe ne pose pas de problème, la ligne est lue mais semble ignorée et au final l'onglet 1 du fichier actif n'a pas été copiée dans le fichier 2 avant l'onglet nommé "Param"
Le nom du fichier 2 est passé par une variable au format "string"

Est ce un bug d'Excel 2007 ou alors l'écriture de cette action n'est pas "correcte" et ne passe plus maintenant ?

Merci d'avance pour votre aide, je sèche la

A voir également:

Excel ne parvient pas à insérer les feuilles dans le classeur de destination
Insérer liste déroulante excel - Guide
Insérer signature word - Guide
Insérer une vidéo dans powerpoint - Guide
Aller à la ligne excel - Guide
Formule excel - Guide

9 réponses

Réponse 1 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 déc. 2011 à 11:49

Oui c'est bien un ".tsv"
Le fichier 2 n'a pas été converti en 2007. Je pense que c'est un fichier créé sous Excel 97 ou 2000 qui vit depuis...

Réponse 2 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 20/12/2011 à 17:00

Les fichier sont ouverts dans cet ordre :
1) j'ouvre le fichier de destination car il contient la macro
2) la macro importe le fichier ".tsv" et l'ouvre au format Excel 2007

Après avoir commenté uniquement la ligne

On Error Resume Next

après le "Do" (dans le code plus haut), pas de différence de fonctionnement.
J'ai ensuite commenté toutes les lignes identiques trouvées dans la macro et j'ai aussi commenté les lignes suivantes :

Application.DisplayAlerts = False 
Application.ScreenUpdating = False

Et la, le message suivant apparaît :
Erreur d'exécution '1004':
Excel ne parvient pas à insérer les feuilles dans le classeur de destination car il contient moins de lignes et de colonnes que le classeur source. Pour déplacer ou copier les données vers le classeur de destination, vous pouvez les sélectionner, puis utiliser les commandes Copier et Coller pour les insérer dans les feuilles d'un autre classeur

Donc si je comprend bien, le fichier ".tsv" est importé au format Excel 2007 alors que le fichier de destination étant toujours au format 2003 ne dispose "que" de 65000 lignes ?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2011 à 17:13

RE
C'est exact. Il faudrait convertir votre fichier .xls 2003 en Fichier .XLSM 2007.

A suivre

Réponse 3 / 9

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 déc. 2011 à 19:48

Bonjour,

J'ai teste votre ligne de code en EXCEL 2007, pas de probleme.....
J'ai utilise l'enregistreur de macro pour avoir le code directement en 2007, pas de differences de code avec du 2003.....
Le nom de fichier est bien passe en .XLSX? Est-ce qu'il y a un traitement d'erreur?
Si oui, mettez le en commentaire pour avoir une erreur.

A suivre

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 déc. 2011 à 15:37

Donc le fichier de destination est bien en XLS et non XLSX

Réponse 4 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
19 déc. 2011 à 22:26

Merci de cette réponse. :)
Les éléments sont au bureau, mais j'ai oublié de préciser ceci :
Le fichier actif est un ficher ".tsv" importé et le fichier 2 est un fichier .xls (il contient la macro)

je regarde des demain pour voir le reste du code. En fait le problème est que je ne suis pas le codeur de cette macro, je la découvre et j'essaie de dépanner mes collègues :/

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2011 à 11:01

Bonjour,
Fichier actif: .tsv ?? ou .CSV. Le fichier 2 a ete converti en 2007 ou vous utilisez le mode compatible?

Réponse 6 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 20/12/2011 à 14:09

Bonjour Lermite, merci de passer par la ! :)

Alors effectivement, j'ai des "On Error Resume Next"

'Remplace les caractères non-reconnus ----------------- 
    CarCherche = Array("Ã'", "Ã©") 'Tableau caractères cherchés 
    CarRemplace = Array("ô", "é") 'Tableau caractères de remplacement 
    I = 1 
    Do 
        On Error Resume Next 
        Cells.Replace What:=CarCherche(I), Replacement:=CarRemplace(I), LookAt:=xlPart, SearchOrder _ 
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 
         
        I = I + 1 
    Loop Until I = UBound(CarCherche) + 1 'Boucle sur nombre caractères à remplacer 
    'Fin remplacement caractères non-reconnus ---------------------- 
ActiveWorkbook.Sheets(1).Copy Before:=Workbooks(VariableNomFichier2).Sheets("Param")

Mais dans l'etat je ne pense pas que le "On Error .." s'applique à la copie de l'onglet; Si ?

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 déc. 2011 à 14:15

Met une ' (apostrophe) devant le on error et lance la macro.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2011 à 14:40

Bonjour lermite,
Une des premieres questions que j'ai posee a Eaheru, parlait du traitement d'erreur.......

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 déc. 2011 à 14:44

Exact :) je n'avais pas encore regardé, vous êtes allés dans le même sens directement, c'est un signe :)
je vais donc tester tout de suite en ajoutant l'apostrophe.
Pour info, au cas ou ce soit important, il y a d'autres lignes comportant la même commande de traitement d'erreur...

Réponse 7 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 déc. 2011 à 15:38

A tout hasard, il n'y aurait pas moyen d'écrire cette commande différemment afin que je ne rencontre pas ce problème ?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2011 à 16:02

Bonjour,
Avant d'en arriver la, dites nous si vous avez des erreurs d'execution, et surtout decrivez dans quelle ordre vous ouvrez les fichiers.

Réponse 9 / 9

Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
20 déc. 2011 à 17:25

Et ça fonctionne parfaitement, merci de votre aide à tout les deux ! :)

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2011 à 22:14

RE
Contant de vous avoir rendu service.

Discussions similaires

Impossible de déplacer une feuille vers un autre classeur

Message d'erreur

VBA recherchev** dans feuilles autre classeur

Comment ouvrir 2 documents Excel sur 2 écrans ?

mise en forme conditionnelle classeur entier

Excel copier/coller sans liaison

Discussions similaires

Newsletters