bonjour MTH,

tout fonctionne super bien, juste l'enregistrement de la feuille dans un dossier , en fait je voudrais que celui s'enregistre sur un dossier en réseau : R/ mais j'ai beau selectionner le dossier pour la sauvegarde rien n'y fait.

MERCI BEAUCOUP

océalimer

re MTH, encore je te sollicite :

Sub SauvFeuille()

'Chemin = celui du fichier, à adapter (dois-je mettre ici le dossier où seront sauvegarder mes feuilles ?
'Nom= "FicInterv_xxx" avec xxx= n° intervention, à adapter

Dim Chemin As String, NomFic As String

Chemin = ThisWorkbook.Path & ""
NomFic = Format(Sheets("DI").Range("B6"), "000000")

If NomFic <> "" Then
    'crée une copie de la feuille active
    ActiveSheet.Copy
   
    'Source Silkyroad, permet de retirer le code VBA dans le classeur sauvegardé
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeN).CodeModule
        .DeleteLines 1, .CountOfLines
    End With
   
    'Bloque les fenêtre d'alerte de l'application
    Application.DisplayAlerts = False
   
    'Format de fichier 56= Excel 97-2003
    ActiveWorkbook.SaveAs Chemin & NomFic, FileFormat:=56
    'Rétablit les fenêtres d'alerte
    Application.DisplayAlerts = True
   
    'Ferme le fichier Actif (qui est le fichier de sauvegarde)
    ActiveWorkbook.Close
End If

End Sub

par contre pour la fonction remise à blanc dans le précédent code , b6 à b13 ça ne fonctionne pas  tout s'enregistre sur ma feuille rapport sans problème mais quand à ma feuille di le numéro s'incrémente parfaitement mais les données reste inscrite

merci encore j'en demande beaucoup

bonjour MTH,

super travail, je suis soulagée. MERCI

Cependant, j'ai copier la macro sauvegarde et il me met erreur 1004 de plus il y a cette phrase qui se surligne en jaune

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

pour plus de précision je l'ai copier dans la précédente macro que tu m'as transmise peut être que je ne dois pas faire ainsi ??

Sincèrement Merci beaucoup

bonjour MTH,

vraiment super merci merci beaucoup.

Une grosse épine du pied que tu m'enlèves,

Juste une dernière demande, je voudrais toujours avec le même bouton valider que ma feuille DI soit sauvegarder dans un dossier afin de conserver une copie.

de plus est il possible également qu'avec toujours mon bouton valider en rajoute l'impression de ma feuille DI.

Dans tout les cas, merci énormément

océalimer

re bonjour MTH,

voilà j'espère que cette fois ci est la bonne.

MERCI BEAUCOUP

bonsoir mtl,

merci pour ton message j'ai compressé mon dossier. Je le renvoie, encore merci pour votre accueil.

bonjour,

vraiment besoin d'aide, j'ai essayé plusieurs façon, mais lorsque je fais une copie avec vba de ma colonne B en feuille 1 celle ci ne se recopie pas du tout sur ma feuille 2 en ligne suivant le tableau

suite a ma demande d'aide je vous joins mon fichier

merci merci de me répondre

Bonjour,

voilà mon problème,

j'ai sur une feuille nommée "D.I" sur laquelle j'ai créer un bouton valider qui incrémenter mon numéro en B6, je voudrais que lorsque je clique sur ce même bouton les données de ma colonne B de B5 à B11 s'enrengistre dans mon tableau croisée dynamique nommée "rapport" sur une autre feuille. Mais cette fois ci que :
B5 s'enregistre sous la colonne a4
b6 s'enregistre sous la colonne b4
b7 s'enrehgistre sous la colonne c4 et cela jusqu'a b11 qui s'enregistre sur la colonne G4

J ai essayé plusieurs solution mais rien ne fonctionne, je plante complétement.

Merci pour votre aide