Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec macro compilation de données

  • Initiateur de la discussion Initiateur de la discussion sknd2010
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

sknd2010

Guest
Bonjour tout le monde,

J'ai un soucis avec macro que j'utilisais pour compiler plusieurs fichiers Excel.
cependant depuis que j'ai protégé la feuille ou se trouve les informations à importer, voici le message d'erreur qui s'affiche :
Erreur d'éxécution '1004'
La méthode Insert de la classe Range a échoué


Et voici le code concerné : Selection.Insert Shift:=xlToRight

Quand je j'enlève la protection tout redevient normal.
Quelqu'un peut-il m'aider à trouver une solution?

Merci d'avance
 
Re : Problème avec macro compilation de données

Re Efgé,

Ceci est le code que tu m'avais aidé à améliorer pour enlever la protection.
Maintenant je voudrais rajoute un code pour qu'avant la sélection les filtres sont enlevés?

With Sheets("feuil1")
.ShowAllData
.Unprotect ("toto")
.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

'Rows(1).Copy Workbooks(ceclasseur).Sheets(1).Range("A" & ii + 1)
If derligne > 17 Then
Rows(17 & ":" & derligne).Copy
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteValues
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteFormats
End If 'Attention "Rows (2 " permet de ne pas copier le titre des fichier
ActiveWorkbook.Close savechanges:=False
End With 'fin code pour soucis protection
End If
 
Re : Problème avec macro compilation de données

Re
Franchement tu n'y met pas du tien:
Ton seul fichier exemple est vide de toute macro et maintenant tu met un bout de code sans début ni fin (pour ne pas dire sans queu ni tête) qui en plus ne prend pas en compte mes remarques (voir ta ligne Rows(17 & ":" & derligne).Copy)
Soit tu fait un effort en mettant tout ton code, soit j'abandonne;
Cordialement
 
Re : Problème avec macro compilation de données

Re Efgé,

Désolé de n'avoir pas été clair cette fois ci et merci beaucoup pour ton aide.
J'ai finalement réussi à trouver la solution avec l'aide de XDLnaute

Merci encore et bonne soirée !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
6
Affichages
2 K
lukes67
L
B
Réponses
4
Affichages
1 K
bruno.launay@amio.fr
B
B
Réponses
2
Affichages
893
Banshor
B
H
Réponses
11
Affichages
37 K
HakunaMatata
H
P
Réponses
6
Affichages
1 K
Compte Supprimé 979
C
Y
Réponses
3
Affichages
2 K
N
Réponses
3
Affichages
22 K
nomis22
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…