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