cartman1706
XLDnaute Nouveau
Bonjour,
Pour un usage pro, j'ai realisé une macro sous Office 2003 qui fonctionne tres bien avec des fichiers créés sous office 2003.
Le probleme est quand la macro s'execute avec des fichiers créés sous office 2007, une partie de la macro me retourne un resultat erroné.
Pouuriez vous me dire comment modifier cette partie de code pour qu'elle soit compatible avec tous les types de fichiers ?
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE(Feuil1!C[3],"" "",Feuil1!C[4])"
Selection.AutoFill Destination:=Range("B1:B1000"), Type:=xlFillDefault
Range("B1:B1000").Select
Range("D2").Select
Columns("B:B").EntireColumn.AutoFit
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Selection.Insert Shift:=xlDown
Pour un usage pro, j'ai realisé une macro sous Office 2003 qui fonctionne tres bien avec des fichiers créés sous office 2003.
Le probleme est quand la macro s'execute avec des fichiers créés sous office 2007, une partie de la macro me retourne un resultat erroné.
Pouuriez vous me dire comment modifier cette partie de code pour qu'elle soit compatible avec tous les types de fichiers ?
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE(Feuil1!C[3],"" "",Feuil1!C[4])"
Selection.AutoFill Destination:=Range("B1:B1000"), Type:=xlFillDefault
Range("B1:B1000").Select
Range("D2").Select
Columns("B:B").EntireColumn.AutoFit
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Selection.Insert Shift:=xlDown
