copie d'un classeur Excel Résolu

Question

Bonjour

Je souhaite effectuer la copie  d'un classeur Excel  après une demande de confirmation par oui ou non dans une pop-up à chaque ouverture du classeur.


Si je clic oui que l’on me propose toujours Le même chemin de destination.


Si je clic sur non que cela ferme la pop-up. 



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Mes connaissances dans ce domaine sont très limité.


Merci pour votre aide précieuses. 



 




A+ momo pancho

jrivet · Accepted Answer

Salut,
REgarde ce que fait ceci.
En revanche je n'ai pas bien compris le "Si je clic oui que l'on me propose toujours Le même chemin de destination."
Private Sub Workbook_Open()
If MsgBox("Voulez Vous sauvegarder", vbYesNo Or vbQuestion, "demande") = vbYes Then
   Call ActiveWorkbook.SaveAs("LECHEMIN")
End If
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

momo pancho · Answer

Salut

Cela fonctionne mai ce que je souhaite est que si je clic sur OUI, que  l' on me propose toujours le même chemin de destination avec la possibilité de renommé le fichier.

Merci

jrivet · Answer

Re,
Dans ce cas essaie peu être ceci

Private Sub Workbook_Open()
If MsgBox("Voulez Vous sauvegarder", vbYesNo Or vbQuestion, "demande") = vbYes Then
   Call Application.Dialogs.Item(xlDialogSaveAs).Show("C:\TOTO	oto.xls")
End If
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

momo pancho · Answer

RE 
il se passe que à l'ouveture du classeur je n' ai plus la pop-up 
elle est accecible que par VB

jrivet · Answer

Re,
Comprends pas ton dernier post...
Attention le code envoyé est classeur dépendant et non commun a tout les classeur 

@+: Ju£i?n
Pensez: Réponse acceptée

momo pancho · Answer

RE
 
Quand j'ouvre mon classeur je souhaite que la pop-up s'affiche, et elle n'apparais pas 
je peut la visualisé seulement par visual basic
pour info j'utilise VB 6

jrivet · Answer

Salut,
DAns ce cas, STP 
peu tu poster le code qui te permets d'ouvrir le classeur...
Désolé je pensais que tu travaillais directement dans l'IDE VBA

@+: Ju£i?n
Pensez: Réponse acceptée

momo pancho · Answer

RE

Ne soit pas désolé je ne suis vraiment pas specialiste 

Comment poster ?
merci<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

momo pancho · Answer

RE 
Comment poster ? question idiote !!!

en faite qu' elle code ?

jrivet · Answer

Salut,
Tu dois bien avoir un code qui ouvre tes classeurs Excel????

@+: Ju£i?n
Pensez: Réponse acceptée

momo pancho · Answer

Salut

Pour ouvrir le classeur je clic sur le fichier et il s'ouvre. Je ne voi pas ce que tu veut dir (code).

Ta formule fonctionne mai je ne peut l' activé que par VB : Execution-executer Sub/userform.

Et je veut qu'elle s'active à l'ouverture du classeur.

Private Sub Workbook_Post()
If MsgBox("Voulez Vous sauvegarder ce fichier", vbYesNo Or vbQuestion, "sauvegarde dans save TN") = vbYes Then
   Call Application.Dialogs.Item(xlDialogSaveAs).Show("C:\Documents and Settings\maurice\Mes documents\modif audit\save TN	oto.xls")
End If


End Sub

Merci

cs_MPi · Answer

Va dans ThisWorkbook
Et mets le code dans 
Private Sub Workbook_Open()

MPi

momo pancho · Answer

Salut  

tous fonctionne merci pour votre aide precieuse 

Maintenant si je souhaite faire la copie d'une feuille du classeur qu'elle procedure ou modif à appliqué ?

cs_MPi · Answer

Si tu veux copier une feuille avec toute sa mise en page (un clone...) utilise l'enregistreur de macro, clique droit sur l'onglet de la feuille à copier, choisi l'option Déplacer ou copier, sélectionne le classeur dans lequel tu veux faire la copie, coche la boîte Créer une copie, puis OK et arrête l'enregistreur.

Tu as maintenant tout le code nécessaire... 

MPi

momo pancho · Answer

ce que je souhaite est de faire une copie avec la même procédure en enregistrant que la feuille dont j'ai besoin

merci

Private Sub Workbook_Open()
If MsgBox("Voulez Vous sauvegarder ce fichier", vbYesNo Or vbQuestion, "sauvegarde dans save TN") = vbYes Then
   Call Application.Dialogs.Item(xlDialogSaveAs).Show("C:\Documents and Settings\maurice\Mes documents\modif audit\save TN	oto.xls")
End If


End Sub

cs_MPi · Answer

Private Sub Workbook_Open()
    Dim MainProg As Workbook, DestProg As Workbook
    
    If MsgBox("Voulez Vous sauvegarder ce fichier", vbYesNo Or vbQuestion, _
                "sauvegarde dans save TN") = vbYes Then
                
        'Initialiser une variable pour reconnaître le classeur
        Set MainProg = ActiveWorkbook
        
        'Créer un nouveau classeur
        Workbooks.Add
        
        'Appeler la boîte de dialogue pour déterminer le nom et le chemin
        Application.Dialogs.Item(xlDialogSaveAs).Show _
                ("C:\Documents and Settings\MPi\Bureau	oto.xls")
                
        'Initialiser une variable pour reconnaître le classeur
        Set DestProg = ActiveWorkbook
        
        'Copie conforme de l'onglet Feuil1
        MainProg.Activate
        Sheets("Feuil1").Select
        Sheets("Feuil1").Copy Before:=DestProg.Sheets(1)
        
        'Fermeture et Sauvegarde du nouveau classeur
        DestProg.Close True
        ' ou Sauvegarde sans fermeture
        'DestProg.Save
    End If
End Sub

MPi

momo pancho · Answer

Salut et merci tu m'aide un max

Encore une petite chose, 

la boite de dialogue est défini par défaut, je ne peut effectuer aucune modif de celle-ci dans VB pas de userform 

comment faire ?

merci  A+

cs_MPi · Answer

Tu parles du MsgBox ?

Si tu veux, tu peux te faire ton propre contrôle MsgBox en utilisant un UserForm et en y incorporant les contrôles que tu veux. Tu n'a qu'à le nommer différemment de "MsgBox" pour éviter les conflits.

MPi

momo pancho · Answer

Salut 


OK et encore merci 


A+

momo pancho · Answer

Salut 


OK et encore merci 


A+

Copie d'un classeur Excel

20 réponses

Votre réponse

Discussions similaires