Probleme avec une macro

[sknd2010]

Bonjour tout le monde,

J'ai un soucis avec l'exécution d'une macro.
Voilà avec l'aide de quelques XDLnautes j'vais réussir à avoir une macro pour important des fichiers et les compiler dans une seul et même fichier. Mais hier la macro ne me copie qu'un seul et il y a un message d'erreur décris un erreur avec cette partie du code colorée en rouge :

Workbooks.Open Filename:=chemin & "\" & nomxls 'inclu_nom_fichier début
Sheets("ONGLET DE SAISI").Select
derligne = ActiveSheet.Range("C65536").End(xlUp).Row
Range("A1:A" & derligne).Select
Selection.Insert Shift:=xlToRight
Selection.FormulaR1C1 = f1.Name
'inclu_nom_fichier fin
derligne = ActiveSheet.Range("C65536").End(xlUp).Row

Quelqu'un veut bien m'aider à résoudre ce problème s'il vous plait?

Merci d'avance !

 

[mécano41]

Re : Probleme avec une macro

Bonjour,

Je ne sais pas si c'est cela, mais j'ai essayé :

Sub Essai
derligne = ActiveSheet.Range("C65536").End(xlUp).Row
Range("A1:A" & derligne).Select
Selection.Insert Shift:=xlToRight
End sub

que tu peux d'ailleurs réduire à :

Sub Essai
derligne = ActiveSheet.Range("C65536").End(xlUp).Row
Range("A1:A" & derligne).Insert Shift:=xlToRight
End sub

Cela ajoute des cellules devant les cellules non vides de la colonne C ; ces valeurs passent donc en D. Mais attention, si tu relances le code sans rien mettre en C, derligne=1 donc tu ne décales ensuite que la cellule de la ligne 1 ...

En revanche je ne vois apparaître aucune erreur ...

Cordialement