Ma macro ne fonctionne plus
Bonjour,
Je viens vers vous pour savoir si quelqu'un pourrait m'aider.
J'ai fait une "macro test" (car je début) qui fonctionnait très bien jusqu'à hier. Et depuis, elle ne fonctionne plus.
Cette "macro test" copie les données d'un dossier 2 pour les coller sur un dossier 1 (basique, mais je m’entraîne).
J'ouvre bien en premier, mon dossier 1 puis mon dossier 2 et je n'ai pas modifié le nom de mes onglets.
Du coup, je n'ai plus aucune idée de ce que cela pourrait être.
Un problème de place?
Si quelqu'un avait la solution cela serait génial.
PS : je vais vous joins mes fichiers, la macro se trouve sur le dossier "dos1" et ma macro se trouve dans le module "insertion-lignes-vides"
Merci et bon courage à vous (ps: parfois en cliquant plein de fois sur le bouton pour exécuter ma macro, celle-ci re fonctionne mais plus correctement).
Merci,
Séverine.
Mon fichier étant trop gros, veuillez trouver ci-dessous mon "texte".
Sub insertion_lignes_vides_puis_copierCollerDonnéesAutreDossier()
Dim dossier As Single
Dim insertion As Single
Dim lecture As Single
Dim ecriture As Single
'lecture => variable = cellule
'ecriture => cellule = variable
'arrivee=depart
'selectionner premiere cellule vide
lecture = ActiveSheet.Range("a:a").End(xlDown)(2).Select
'boucle qui insere X(7) lignes
For i = 1 To 7
'inserer ligne entiere
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove = ecriture
Next i
'fin de boucle
'vient coller les données du dossier 2 dans le dossier 1 sur la premiere ligne dispo (insertion de ligne = voir plus haut)
Workbooks("dos1.xlsm").Sheets("Feuil1").Cells([A1048576].End(xlUp).Row + 1, 1).Resize(1000, 2).Value = _
Workbooks("dos2.xlsm").Sheets("Feuil2").Range("A1:b1000").Value
End Sub
Bonjour,
quel est le problème ?
Bonjour,
Et bien ma macro ne fonctionne plus.
Plus rien ne se passe lorsque je lance ma macro.
Pas de message d'erreur mais pas d'action non plus.
Je crois que c'est cette partie de mon texte qui bloque :
Workbooks("dos1.xlsm").Sheets("Feuil1").Cells([A1048576].End(xlUp).Row + 1, 1).Resize(1000, 2).Value = _
Workbooks("dos2.xlsm").Sheets("Feuil2").Range("A1:b1000").Value
Mais pourquoi, je ne sais pas, surtout que tout fonctionnait très bien il y à quelques jours.
Une idée?
Merci,
Séverine.
Bonsoir,
qu'est-ce qui te fait penser que le problème se situe sur cette instruction ?
Bonsoir,
Je n'ai pas de raison précise mais j ai fait des tests avec mon premier bloc (rajout de ligne et collage sur ma première ligne disposition) et cela fonctionnait toujours alors qu avec mon deuxième bloc, plus rien.
Après je me trompe peut être mais je voulais essayer de vous orienter.