Problème de programmation changement de classeur de travail

Bonjour,

j'ai une série d'actions à répéter avec plusieurs classeurs (365 classeurs...). Ce sont toujours les mêmes actions : il s'agit de prendre une colonne du classeur X pour la coller dans un classeur qui sera commun à tous les autres.

J'ai pour cela créer une procédure où je n'aurais qu'à modifier le titre du fichier à ouvrir pour que cela me le fasse. Cependant, lorsque j'active la macro, il m'ouvre le bon classeur, va sur la bonne feuille mais sélectionne les mauvaises colonnes.

Voici ma procédure

Workbooks.Open Filename:= _

"C:\Users\eseta\Desktop\Thermette\FichierFiWiHEx\Decembre\ANALYSE 2008 12 17.xls"

Sheets("Analyse").Select

Columns(11).Select

Range("K4").Activate

Selection.Copy

Windows("janvier1.xltm").Activate

Sheets("Feuil3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Rows("1:13").Select

Range("A13").Activate

Application.CutCopyMode = False

Selection.ClearContents

Selection.Delete Shift:=xlUp

Windows("ANALYSE 2008 12 16.xls").Activate

Windows("janvier1.xltm").Activate

Range("D16").Select

Lorsque je lui demande de sélectionner la colonne 11 (K) il me sélectionne les colonnes B à O.

Sauriez vous me dire d'où vient mon problème ?

Merci d'avance

Personne pour me répondre ??

Bonjour

J'ai essayé et je n'ai pas ce soucis de décalage

Juste une erreur lors du PasteSpecial

Il a fallut que je précise la cellule destination

Range("A1").Select

Pas plus

pourtant systématiquement cela me sélectionne plusieurs colonnes ! Pensez vous que cela puisse venir du fichier que j'ouvre ?

Bonjour

Je ne sais pas mais j'en serai étonné

Essayes de faire un Pas à Pas et voir où le code te sélectionne plusieurs colonnes

Pas d'autres idées en ce moment

Je l'ai déjà fait et le code déconne lors de la sélection de la colonne, au lieu de prendre juste la colonne K il en prend plusieurs.

En tout cas merci de ton aide!

Bonjour

Voici le code que j'ai utilisé pour tester et pas de soucis particulier

Sub Test()
'  Workbooks.Open Filename:= _
"C:\Users\eseta\Desktop\Thermette\FichierFiWiHEx\Decembre\ANALYSE 2008 12 17.xls"
  Workbooks.Open Filename:= _
        ThisWorkbook.Path & "\_Classeur pour les tests.xls"

  Sheets("Analyse").Select
  Columns(11).Select
  Range("K4").Activate
  Selection.Copy
'  Windows("janvier1.xltm").Activate
  Windows("Tyoli Mauvaise colonne V001.xls").Activate
  Sheets("Feuil3").Select

  ' rajouté
  Range("A1").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                          SkipBlanks:=False, Transpose:=False
  Rows("1:13").Select
  Range("A13").Activate
  Application.CutCopyMode = False
  Selection.ClearContents
  Selection.Delete Shift:=xlUp
'  Windows("ANALYSE 2008 12 16.xls").Activate
  Windows("Tyoli Mauvaise colonne V001.xls").Activate
  'Windows("janvier1.xltm").Activate
  Range("D16").Select
End Sub

J'ai essayé avec ton code mais cela ne fonctionne toujours pas.

Bon de toute façon j'ai fais tous les fichiers à la main je n'ai plus besoin du programme (cela m'aura juste pris 3h )

Merci de ton aide, bonne journée

Bonjour,

Pour plus tard si jamais tu as besoin, essais cela voir si ça marche , en remplaçant le début de ton code par:

Sheets("Analyse").Activate
Range("K1").Select
ActiveCell.EntireColumn.Select

ok merci j'essaierai