Bonjour à tous.
J'ai un code vb qui dois me permettre de copier une colonne et de la coller dans une autre tout en sachant que la colonne de départ contient des chiffres. Puis il faut supprimer la colonne d'origine. Voici le code que j'ai fais:
Cependant, lorsque je lance l'exécution j'ai un message d'erreur qui dit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim xlApp Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.workbooks.Open("C:/PaymentFiles/us_origine.xls") Columns("AF:AF").Select Selection.Copy ActiveWindow.SmallScroll ToRight:=2 Columns("AK:AK").Select ActiveSheet.Paste Columns("AF:AF").Select Selection.Delete Shift:=xlToLeftJe ne comprend pas bien cette erreur.type incompatible : Columns.
Merci de m'aider s'il vous plait
Merci
Partager