Excel VBA: copier feuille dans autre classeur

Résolu

Eaheru Messages postés 197 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Excel ne parvient pas à insérer les feuilles dans le classeur de destination
Insérer une vidéo dans powerpoint - Guide
Insérer liste déroulante excel - Guide
Insérer signature word - Guide
Comment faire un livret avec des feuilles a4 - Guide
Word et excel gratuit - Guide

9 réponses

Réponse 1 / 9

Eaheru Messages postés 197 Date d'inscription Statut Membre Dernière intervention 20

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 Statut Membre Dernière intervention 20

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 20

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

Réponse 4 / 9

Eaheru Messages postés 197 Date d'inscription Statut Membre Dernière intervention 20

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 20

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 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 20

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 Statut Membre Dernière intervention 20

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 20

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Votre réponse

Discussions similaires