création fichier par macro, recopie d'une feuille avec entete et mise en forme

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Bonsoir Boudu

Regarde si le code joint repond bien a ton pb, et dis nous
Cdt

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Bonjour allegro ; le forum
Merci pour ce code que je decouvre ce matin
j'ai créé le bouton sur la page comme je souhaite que soit le fichier final (en regardant dans sess propriétés que la case "ne pas imprimer" soit cochée mais il s'imprime quand meme
Par ailleurs ça coince à
ActiveWorkbook.SaveAs Filename:="C:\Trucs Excel\Classeur4.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Le message de la boite de debuggage dit "impossible de trouver ce chemin" hors c'est justement ce que j'aimerais:
une boite de dialogue qui s'ouvre dans la procedure et qui demande un nom (les utilisateurs mettront le chemin qu'ils veulent)
Difficulté supplémentaire: nous ne disposons que de excel 97 et les OS varient de windows 95 à windows XP en passant par 2000, 98 et compagnie

Merci de me dire si on peut contourner ces difficultés

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Bonjour Boudu

Desole . J'ai laisse trainer un brouillon dans Module 2 et..tu es tombe dessus.
Supprime le.

Le vrai code est attache au bouton (clic droit visualiser le code) et tu le trouveras associe a la feuille 5 Statistiques
Toutes tes objections devraient etre levees

Dis moi
A plus

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Salut Allegro, le forum
Ben oui là y'a plus la moindre objection
ça le fait au poil
Merci beaucoup

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Re salut Allegro
Un peu vite regardé, le bouton Annuler n'est pas géré et je sais pas faire!!
Si tu peux me dire..
merci

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

Bonsoir/ Bonjour Boudu

Recopie le code ci-desous a la place de l'autre et tu auras une gestion du bouton Annuler, et du bouton OK si le nom du fichier n'est pas renseigne dans la boite de dialogue d'enregistrement

PS :Si quelqu'un passe par la et simplifie le paragraphe Do ....Loop, il sera bienvenu ..
Merci

Private Sub CommandButton1_Click()
On Error GoTo gesterreur

Dim nomfic As String

Application.ActiveSheet.Copy

With ActiveSheet
.Cells.Select
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Shapes("CommandButton1").Delete
nomfic = ""
Do
If nomfic = "" Then
nomfic = Application.InputBox("Sous quel nom (chemin complet ) souhaitez vous enregistrer le fichier ?" _
& Chr(13) & Chr(10) & "Cliquez sur Annuler pour ne pas l'enregistrer")
Else: If nomfic = "Faux" Then GoTo gesterreur Else GoTo suite
End If: '
Loop
suite:
ActiveWorkbook.SaveAs Filename:=nomfic, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
MsgBox "Le fichier esr enregistre sous le nom : " & nomfic
Exit Sub
gesterreur:
If Err.Number = 1004 Then MsgBox "Fichier Non Enregistre ": ActiveWorkbook.Saved = True: ActiveWorkbook.Close
End Sub

Re : création fichier par macro, recopie d'une feuille avec entete et mise en forme

ok Allegro
Merci pour le code, c est impeccable comme ca
Bonne continuation