Discussion :

[jooly7775]

Bonjour à tous,
Je suis nouvelle sur ce forum et je me permets de vous poser une question après de nombreuses recherches vaines...
Voila j'ai une macro qui est chargée de copier certaines colonnes d'une feuille vers une autre, le tout dans un même classeur et d'aller rechercher une colonne dans un autre classeur. Pas de soucis avec cette macro. Le problème est que je voudrai qu'elle soit affectée à chaque fichier et j'ai donc créé une macro complémentaire que je lance à l'ouverture du fichier.
Le problème est que la macro ne fonctionne pas j'ai un message d'erreur "L'indice n'appartient pas à la selection" au niveau de ma première ligne. Je vous mets un extrait du code :

Code :

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

1
2
3
4
5
6
7
8
9
 
Workbooks("ActiveWorkbooks.Name").Activate
    Sheets("SYNTHESE AGENCES").Select
    Columns("F:F").Select
    Range("F7").Activate
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("C:C").Select
    ActiveSheet.Paste

Merci de me répondre, j'ai essayé beaucoup de solutions mais rien ne marche...

[teen6517]

Jooly si j'ai bien compris ton probleme,
tu a une macro qui fonctionne tres bien sur le fichier toto.xls

et tu voudré utilisé la meme macro sur le fichier tartenpion.xls

si c'est bien sa, la solution est tres tres simple ^^

tu ouvre ton fichier toto.xls
tu ouvre ta macro pour la modifier (outil=>macro=>macro=>tu sélection ta macro et tu selectione modifier et non exécuter)

tu copie toute ta macro

tu repar sur toto.xls
outil=>macro=>nouvelle macro
et la pour lenregistre tu choisie enregistres dans classeur macro personnelle
tu fait ok (oubli pa de lui donner un titre explicite)

tu colle ton enciene macro dans cette nouvelle tu enregistre tous et tu sorts

vas sur tartenpion.xls outil=>macro=>macro=>tu sélection ta macro qui est maintenent disponible puis exécuter

voila j'esper que j'ai put t'aider

[jooly7775]

Oui, ce que je veux c'est créer une macro qui soit utilisable par plusieurs fichiers. J'ai déjà essayé ce que tu me proposes mais j'ai le même problème... J'ai des erreurs...
Du genre : "La méthode sheets a échoué"
"objet requis"
"L'indice n'appartient pas à la selection" etc...
Je ne comprends vraiment pas...
Merci de ton aide!

[teen6517]

tu est sertain que ton nouveau fichier est 100% identique a ton ancien fichier

je ve dire meme genre de traitement pour les memes cellules , meme format des donnée ...

désoler je suis débutant moi aussi
je ne connais que cette méthode qui marche a merveille pour moi

jesper que d'otre pouront t'aider

[jooly7775]

Oui, les données sont identiques. Ce qui change c'est le nom du fichier. Je pense que c'est la que ça coince...
Merci de ton aide encore une fois c'est gentil de réfléchir sur mon problème!

[teen6517]

tu peus metre ton code stp??

(oubli pas la balise code avec le bouton # pour que se soie lisible)

[zyhack]

Bonsoir

je pense que cette ligne

Code :

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

Workbooks("ActiveWorkbooks.Name").Activate

devrait être écrite

Code :

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

Workbooks(ActiveWorkbooks.Name).Activate

Mais cette ligne ne sert à rien car cela revient à activer le classeur qui porte le nom du classeur actif c'est à dire s'activer lui même

En fait si tu travaille sur le classeur actif tu peux supprimer cette ligne

ensuite

la suite du code

Code :

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

1
2
3
4
5
6
7
    Sheets("SYNTHESE AGENCES").Select
    Columns("F:F").Select
    Range("F7").Activate
    Selection.Copy
    Sheets("Feuil1").Select
    Columns("C:C").Select
    ActiveSheet.Paste

peut être remplacer par

Code :

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

Sheets("SYNTHESE AGENCES").Columns("F:F").Copy Sheets("Feuil1").Columns("C:C")

dans le principe il faut éviter les Select et activate trop répétitif qui complique le code et accentue les risques d'erreurs

bon courage

[jooly7775]

Merci!
Je vais essayer cette soltuion dès que possible!
Bonne journée à tous