Erreur 1004 définition de la valeur de cellule

Question

Lors de l'exécution du code suivant, j'obtiens l'erreur "Erreur d'exécution '1004': Erreur définie par l'application ou définie par l'objet". Il se brise sur la ligne marquée

Dim cwb As Workbook 
Dim csh As Worksheet 
Set cwb = Workbooks.Open("M:\Secretary Resources\AppTracking\SentSurveys.xlsx") 
Set csh = cwb.Sheets("Sheet1") 
''It breaks on this next line 
csh.Range("A1").End(xlDown).Offset(1, 0).Value = Format(DateTime.Now, "MM-DD-YYYY HH.MM AM/PM") 
csh.Range("A1").End(xlDown).Offset(0, 1).Value = Survey_Count 

J'ai regardé toutes les erreurs 1004 réponses, et soit ils ne fonctionnait pas (comme déprotéger la feuille), ou n'a pas assez de sens pour moi de mettre en œuvre . Je veux simplement ouvrir une feuille de calcul existante et ajouter une nouvelle ligne de valeurs à la fin de celle-ci (sans apporter de modifications au classeur actif ou à la feuille active, qui sont actuellement utilisées par autre chose). Quelqu'un at-il une idée de ce que je peux faire pour que cela fonctionne?

EDIT: Ceci est en cours d'exécution dans un sous-marin et il ne fonctionne pas là.

Answer 1

Merci à jsotola pour la réponse.

La solution consistait à remplir la rangée sous la rangée 1 avec quelque chose. Je viens d'utiliser les marques '-'. End (xlDown) se déplace vers la dernière cellule non vide de la colonne. Toutefois, si elle commence déjà à la dernière cellule non vide de la colonne, elle ignore autant de cellules vides qu'elle n'en trouve jusqu'à ce qu'elle soit trouve plus de cellules non vides ou frappe la fin de la feuille. À partir de A1, il n'y avait rien après cela, donc, au lieu de rester où il a commencé (ce que je suppose qu'il ferait), il a sauté au bas de la feuille. J'étais alors en décalage vers une cellule inexistante à l'extérieur de la feuille, me donnant ainsi l'erreur.