Une fois de plus, je tombe sur un os, et une fois de plus, je viens chercher de l'aide sur ce forum (indispensable).
J'ai """créée""" un fichier excel pour faciliter la saisie de données dans ma boite (basée en Afrique, c'est pour quoi le fichier est trés simpliste)
Dans ce fichier que j'ai fais il y a quelque temps, je voudrais simplement changer le nom des feuil1, feuil2 et feuil3 en :
Feuil1 = Data Capture
Feuil2 = Data Base
Feuil3 = Information
Quand j'essaye de le faire dans visual basic, j'ai des problèmes quand je clique sur mon bouton "report" (à droite en feuil1). J'ai une fenêtre qui s'ouvre dans laquelle on me demande d'ouvrir un fichier. Quand je la ferme plusieurs fois, les données arrivent enfin en Feuil2.
Je ne sais pas si tout celà est très clair mais je vous joins le fichier en question.
pas sur d'avoir tout compris, mais dans ton code supprime les "Sheets("Feuil1")" et remplace par les "codename" des feuilles, "Feuil1" etc... tu pourras ensuite changer le nom des onglets sans aucune conséquence pour le code, les "codename" eux ne changeant pas...
Bonjour Pierrot,
Je veux simplement changer les noms de mes "feuil" sans qu'il y ait de concéquences sur le code. Dans ta réponse, tu me conseilles de retirer entièrement les "Sheets("Feuil1")" pour les remplacer par "Codename("Data Capture")" pour ma feuil1 par exemple ou bien simplement laisser "Feuil1" ?
With Feuil1
Derlig = .Range("A100000").End(xlUp).Row
If Derlig < 2 Then Exit Sub ' Vérification qu'il y a au moins une ligne à reporter
.Range("A2:Q" & .Range("A100000").End(xlUp).Row).Copy
' Report dans la seconde feuille
With Feuil2
.Range("A" & .Range("A100000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End With
feuil1 feuil2 étan,t le "codename" des feuilles visible dans la fenêtre "projet vbaproject" de l'éditeur vba...
pas ce problème chez moi sur ton fichier..... mais vois pas trop le rapport avec le code des feuilles... par contre si tu as des formules dans tes feuilles, peut être est ce la cause.....
With Feuil1
Derlig = .Range("A100000").End(xlUp).Row
If Derlig < 2 Then Exit Sub ' Vérification qu'il y a au moins une ligne à reporter
.Range("A2:Q" & .Range("A100000").End(xlUp).Row).Copy
' Report dans la seconde feuille
With Feuil2
.Range("A" & .Range("A100000").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End With
Mais je n'arrive toujours pas à simplement changer mes noms de feuil..
Bonjour,
Je sèche toujours, je n'arrive pas à comprendre pourquoi malgrès les explication de Pierrot93...
Quelqu'un aurait-il une autre solution ?
Merci d'avance
bah... en l'état du code tu es dans une formule que tu veux mettre dans une cellule.... une formule dans une cellule ne peut pas renommenr une feuille.....