Re: copier coller dans un même classeur
#11
Débutant XLPages

Inscription: 11/04/2013

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 16-04-2013 19h25
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

Hors Ligne
Rapport   Haut 

Re: copier coller dans un même classeur
#12
Débutant XLPages

Inscription: 11/04/2013

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 16-04-2013 19h35

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

Hors Ligne
Rapport   Haut 

Re: copier coller dans un même classeur
#13
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-04-2013 22h48
Bonsoir ocealimer, bonsoir à tous,

Pour ton erreur 1004, je pense que tu dois autoriser l'accès au projet Visual Basic.

Dans le menu Outils/Macros/Sécurités, il doit y avoir quelque chose comme "paramètres des macros pour les développeurs", il faut cocher la case "Accès approuvé au modèle d'objet du VBA"

Pour ton chemin, ce n'est pas sur la ligne de commentaire en vert qu'il faut changer.
Dans le code j'ai utilisé ThisWorkbook.Path qui donne le chemin du fichier actuel, suivi du signe antislash: \ , ceci donne donne donc pour la variable Chemin:

Chemin = ThisWorkbook.Path & ""

Si tu veux placer ton fichier ailleurs, par exemple dans le répertoire Toto, tu peux l'écrire en dur:
Chemin = "C:\Toto"

Pour la mise à blanc je ne comprends pas, chez moi ce code placé à la fin fonctionne:

With Sheets("DI")
    .Range("B6") = .Range("B6") + 1
    .Range("B7:B12").ClearContents
End With

Est-ce bien ce que tu as recopié?

Très bonne soirée et à bientôt,

mth
Hors Ligne
Rapport   Haut 

Re: copier coller dans un même classeur
#14
Débutant XLPages

Inscription: 11/04/2013

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-04-2013 19h44
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
Hors Ligne
Rapport   Haut 

Re: copier coller dans un même classeur
#15
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 19-04-2013 22h44
Bonsoir ocealimer, bonsoir à tous,


A la place de cette ligne:

'Format de fichier 56= Excel 97-2003
    ActiveWorkbook.SaveAs Chemin & NomFic, FileFormat:=56

essaie ceci:
ActiveWorkbook.SaveAs Filename:=Chemin & NomFic & ".xls", FileFormat:= xlExcel8

en définissant plus haut ta variable chemin:
Chemin = "R:\ton répertoire\"


Bien à toi,

mth





Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes