recherche de fichier

[guylaine]

Bonjour le forum

Je reviens sur le forum car je suis à la recherche d'un fichier qui se nomme marge09012008 ,impossible de le trouver si la personne qui m'avait aidé à cette epoque l'avait gardé ça serai super
je vous remercie d'avance

 

[guylaine]

Re : recherche de fichier

Re je viens de le retrouver mais il est mal en point je vais essayé de vous l'envoyer
merci

 

[Lii]

Re : recherche de fichier

Bonjour Tous,

en faisant une recherche, j'ai trouvé un fil dans lequel figurait un fichier nommé ainsi. J'y ai jeté un coup d'œil et j'ai modifié quelques macros.
Il est plus intéressant, je pense, de choisir le nom de la nouvelle feuille avant de la créer, cela permet de terminer l'action sans changement en cas d'hésitation.
Pour les besoins de la cause, j'ai été obligé de l'alléger avec quelques suppressions.

 

[guylaine]

Re : recherche de fichier

Bonjour lii
et merci pour ton coup de main peux tu me dire comment je r'ajoute se que tu as supprimer car il me manque pas mal de lignes et je dois dire que je suis pas trés en forme ces temps si je ne suis pas trés en forme
Je te remercie d'avance

 

[Lii]

Re : recherche de fichier

Bonjour,

j'ai retrouvé ton fichier ici:
https://www.excel-downloads.com/threads/copier-une-feuille-pour-creer-un-nouveau-classeur.87827/
Tu pourras peut-être récupérer la suite.

 

[guylaine]

Re : recherche de fichier

Re bonjour et merci encore

 

[guylaine]

Re : recherche de fichier

Re bonjour
quand j'appuie sur le bouton synthese ,j'aimerai que les colonnes de n à aa se masques,je dois changer quoi sur cette macro
Sub synth()
ActiveSheet.Unprotect
Columns("G").EntireColumn.Hidden = True
Columns("I:O").EntireColumn.Hidden = True
Columns("U:W").EntireColumn.Hidden = True
Range("A4").Select
ActiveSheet.Protect
End Sub
Sub antisynth()
ActiveSheet.Unprotect
Columns("G").EntireColumn.Hidden = False
Columns("I:O").EntireColumn.Hidden = False
Columns("U:W").EntireColumn.Hidden = False
encore merci de vos reponses

 

[Lii]

Re : recherche de fichier

Re,

à tester :

Sub synth()
    ActiveSheet.Unprotect
    Columns([B]"N:AA"[/B]).EntireColumn.Hidden = True
    Range("A4").Select
    ActiveSheet.Protect
End Sub

 

[guylaine]

Re : recherche de fichier

Re desolé ça fonctionne pas
Merci quand même