Copie d'une feuille dans un autre fichier

Résolu
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai un fichier que j'ai nommé de la manière suivante:

ActiveWorkbook.SaveAs Chemin3 + Semaine3 + Espace1 + NomFichier3 + Espace1 + Centre3

Je souhaite inclure une feuille dans ce fichier, voilà ce que j'ai écrit et qui ne fonctionne pas:

Windows("Bénéficiaires hiver 15-16").Activate
Sheets("Interface").Activate
ActiveSheet.Copy after:=Workbooks(Chemin3 + Semaine3 + Espace1 + NomFichier3 + Espace1 + Centre3).Sheets(1)

Je suis persuadé que quelqu'un aura une petite idée.
Merci d'avance
Cordialement

A voir également:

53 réponses

Précédent
Réponse 21 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci pour les explications.
Concernant : Je vais continuer en l'intégrant.
Il vous suffit d'inséré le nom de la procédure [essai_zikey_ccm] dans votre macro principale à l'endroit de son exécution.

0
Réponse 22 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
J'ai eu 2 soucis dont un qui subsiste.
1 - J'ai lancé la macro "essai_zikey..." et j'ai le message d'erreur au niveau de la première application: "Application ScreenUpdating = False".
J'ai neutralisé les 2 lignes de "Application..." et la macro fonctionne.
2 - J'ai introduit cette macro dans ma macro en insérant le nom de celle-ci: "essai_zikey_ccm" et cette dernière beugue au niveau de la ligne:
"ActiveWorkbook . SaveAs Chemin & NomFichier.
Je ne sais pas si cela mais il y a une différence de nom entre le fichier "Sxx.."
que j'ai créé précédemment (voir N° 2) et le "vôtre".
En effet le nom du "mien" possède un espace entre Sxx et Bilan du centre ainsi qu'entre ce dernier et "Nom de centre".
Cordialement
0
Réponse 23 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Eh bien vous n'avez pas copié correctement le code :
Soit : 
Application ScreenUpdating = False
il manque le point entre Application et ScreenUpdating [
Application.ScreenUpdating = False
]
Et dito pour : 
Application ScreenUpdating = True
doit être : 
Application.ScreenUpdating = True
Vous devez absolument respecter l'orthographe des instructions (y compris les vide s'il existe...)
Le plus simple pour vous aurait été de copier le code sur le message et ensuite le coller dans votre module.
C'est aussi la raison de ma remarque du poste 15 : En marge...
Je vous prie de corriger la procédure est de me dire si c'est OK.

0
Réponse 24 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
J'ai oublié, pour le deuxième problème, vous mettez votre procédure complète et formaté comme préciser.... Merci
Je vous donne la solution dès réception... !.

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 25 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Le premier problème est résolu par l'ajout du point.
Quant au suivant je n'ai pas compris le N° 15 concernant le formatage.
Actuellement les 2 macros sont dans deux modules différents et j'appelle la macro "Sub essai_zikey_ccm() en insérant essai_zikey_ccm.
Cordialement
0
Réponse 26 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
je n'ai pas compris le N° 15 concernant le formatage
En marge : lorsque vous insérez une procédure dans un message il est préférable de la formatée.., pour ce faire vous sélectionnez la procédure (ou les lignes de code) et ensuite clic sur l'icône (triangle pointe en bas) et clic sur [basic]
Exemple : 
Sub essai_zikey_ccm()
Dim clso As Workbook
Dim Chemin As String, NomFichier As String
Set clso = ActiveWorkbook
........
........
Set clso = Nothing
End Sub


Donc mettre les 2 macros comme l'exemple, j'attends ..... !

0
Réponse 27 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Je suis totalement nul.
Je n'arrive pas à comprendre ce qu'il faut faire pour formater comme l'exemple.
Je suis vraiment gêné de prendre de votre temps et je salue votre patience
Cordialement
0
Réponse 28 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Eh bien voir ce petit document

0
Réponse 29 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Sub Bilan_de_la_semaine()

'10)    Affichage du bouton "BILAN DE LA SEMAINE".
'          Vérifier que les valeurs inscrites dans la feuille "Bilan du centre" du fichier "Bénéficiaires hiver 15-16".
'           sont des nombres.
'           Sinon arrêt de la macro.
'           Visualisation et contrôle de la feuille "Bilan du centre" du fichier "Bénéficiaires hiver 15-16".

                    Windows("Bénéficiaires hiver 15-16").Activate
                    Sheets("Bilan du centre").Activate
                    ActiveSheet.Select
                    Worksheets("Bilan du centre").Shapes("Bouton 8").Visible = True
                    
                    Dim Nombre1 As Long
                    Dim Nombre2 As Long
                    Nombre1 = Range("C51").Value
                    Nombre2 = Range("J51").Value
                    
                    If Nombre2 <> 0 Then
                            If IsNumeric(Nombre1) Then
                                    GoTo 1
                            Else
                                    MsgBox "Vérifiez les nombres inscrits dans la feuille Bilan du centre"
                            End If
                    Else
                            MsgBox "Vous avez déjà lancé la macro cette semaine." & Chr(10) & _
                            "Arrêtez et prévenez l'équipe informatique."

                    End If
1
                          
                                                       
'11)    Création du fichier "Sxx Saisie des Présences.xlsm".
'           Enregistrement et fermeture de ce fichier dans le dossier "Présences hiver 15-16".

                    Sheets("Saisir les Présences").Activate
                    ActiveSheet.Unprotect "sotser"
                    ActiveSheet.Copy
                    Dim Espace1 As String
                    Dim Semaine1 As String
                    Dim Chemin1 As String
                    Dim NomFichier1 As String
                    Espace1 = " "
                    NomFichier1 = "Saisie des Présences"
                    Semaine1 = Range("AP2").Value
                    Semaine1 = Right("S" + Semaine1, 3)
                    Chemin1 = "C:\Présences hiver 15-16\"
                    ActiveWorkbook.SaveAs Chemin1 + Espace1 + Semaine1 + Espace1 + NomFichier1
                    Sheets("Saisir les Présences").Select
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
                    ActiveWorkbook.UpdateRemoteReferences = True
                    Range("J9").Activate
                    ActiveWorkbook.Save
                    ActiveWindow.Close      'Enregistrement et fermeture du fichier "Sxx Saisie des Présences ".
                    
                    
'12)    Protection de la feuille "Saisir les Présences" du fichier "Bénéficiaires hiver 15-16".

                    Windows("Bénéficiaires hiver 15-16").Activate
                    Sheets("Saisir les Présences").Activate
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
                   
                   
'13)    Sélection  de la feuille "Bilan du centre" du même fichier.
'           Déverrouillage de cette feuille.
'           Saisie de la "Ramasse"
'           Sélection de la cellule "T23".

                    Sheets("Bilan du centre").Activate
                    Dim RAMASSE As String
                    Range("F43").Activate
                    RAMASSE = 0
                    RAMASSE = Trim(InputBox("POIDS DE LA RAMASSE EN KG"))
                    Range("F43").Value = RAMASSE
                    Range("T23").Select
                    
                    
'14)    Message pour la saisie dans les cases jaunes.

                    Dim vRéponse1 As String
                    vRéponse1 = MsgBox("POUR UTILISER LES CASES JAUNES AFIN DE NOTER VOS MODIFICATIONS ET VOS DEMANDES" & Chr(10) & _
                    " CLIQUEZ SUR LE BONTON OK" & Chr(10) & _
                    "APRES AVOIR INSCRIT VOS MODIFICATIONS ET DEMANDES CLIQUER SUR LE BOUTON" & Chr(10) & _
                    "BILAN DE LA SEMAINE", vbOK, "OUVREZ BIEN LES YEUX")
                    
End Sub

Sub envoi_et_impression_bilan()

   
'15)   Création du fichier "Sxx Bilan du centre Nom du centre".
'          Protection de la feuille "Bilan du centre".
'          Enregistrement  du fichier "Sxx Bilan du centre Nom du centre"
'          dans le dossier "Bilans du centre hiver 15-16".

                    Sheets("Bilan du centre").Activate
                    ActiveSheet.Unprotect Password:="sotser"
                    ActiveSheet.Copy
                    Dim Semaine3 As String
                    Dim Chemin3 As String
                    Dim NomFichier3 As String
                    Dim Centre3 As String
                    Dim Extension As String
                    Chemin3 = "C:\Bilans du centre hiver 15-16\"
                    NomFichier3 = "Bilan du centre de"
                    Semaine3 = Range("T5").Value
                    Semaine3 = Right("S" + Semaine3, 3)
                    Centre3 = Range("B3").Value
                    ActiveWorkbook.SaveAs Chemin3 + Semaine3 + Espace1 + NomFichier3 + Espace1 + Centre3   '+ Extension
                    Range("A1").Select
                    Sheets("Bilan du centre").Activate
                    ActiveSheet.Select
                    Range("A1:X51").Select
                    Range("A1:X51").Activate
                    Selection.Locked = True
                    Selection.FormulaHidden = False
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, _
                    Scenarios:=True
                    
                                              
'16)     Copie de la feuille "Interface" du fichier "Bénéficiaires hiver 15-16" dans le fichier
'           "Sxx Bilan du centre de...".
'           Sauvegarde et fermeture de ce fichier

            essai_zikey_ccm
            
                    'ActiveWorkbook.Save
                    'ActiveWindow.Close
                            
                                        
'17   Message pour l'envoi par email du fichier "Sxx Bilan du centre de...".
                    
                    Dim vRéponse2 As String
                    vRéponse2 = MsgBox("LE BILAN VA ETRE ENVOYE A L'ENTREPOT ET A L'INFORMATIQUE" _
                    & Chr(10) & "ET EN COPIE A VOTRE CENTRE" & Chr(10) & _
                    "LE BILAN DU CENTRE ET L'INTERFACE SERONT IMPRIMES" & Chr(10) & _
                    "MERCI POUR VOTRE PARTICIPATION" & Chr(10) & _
                    "VOUS POUVEZ CLIQUER SUR LE BOUTON OK", vbOK, "BONNE SEMAINE")
                    
                    
'18)    Envoi du Bilan.

                    sch = "http://schemas.microsoft.com/cdo/configuration/"
                    
                    Set cdoConfig = CreateObject("CDO.Configuration")
                            With cdoConfig.Fields
                                    .Item(sch & "sendusing") = 2
                                    .Item(sch & "smtpserver") = "smtp.orange.fr"
                                    .Update
                            End With
                    
                    Set cdoMessage = CreateObject("CDO.Message")
                            With cdoMessage
                            
                                    Set .Configuration = cdoConfig
                                            .From = "ad63.informatique2@restosducoeur.org"
                                            '.To = "ad63.entrepot@restosducoeur.org"
                                            .To = "ad63.informatique2@restosducoeur.org"
                                            .CC = "joelvillier@orange.fr"
                                            .Subject = "BILAN" & Espace1 + Semaine3 + Espace1 + Centre3
                                            .TextBody = "Cordialement" & Chr(10) & "L'Equipe de" & Espace1 + Centre3
                                            .AddAttachment Chemin3 + Semaine3 + Espace1 + Semaine3 + Espace1 + _
                                            NomFichier3 + Espace1 + Centre3
                                    .Send
                                    
                            End With
                    
                    Set cdoMessage = Nothing
                    Set cdoConfig = Nothing
                    
                    
'23)    Impression des feuilles "Bilan du centre" et "Interface" du Bilan de la semaine.
'           Sauvegarde et fermeture du fichier "Sxx Bilan du centre de...".

                    ChDir Chemin3
                    Workbooks.Open Filename:=Chemin3 + Semaine3 + Espace1 + Semaine3 + Espace1 + _
                    NomFichier3 + Espace1 + Centre3
                    Sheets("Bilan du centre").Select
                    Sheets("Bilan du centre").PrintOut
                    Sheets("Interface").Select
                    Sheets("Interface").PrintOut
                    ActiveWorkbook.Save
                    ActiveWindow.Close          'Le fichier est enregistré et fermé
                    
                    
'24)    Effacement des données de la semaine écoulée dans le fichier "Bénéficiaires hiver 15-16"
'          Sélectionner la feuille "Saisir les présences" et mettre à blanc les colonnes "J" et "K".
 
                    Sheets("Saisir les Présences").Activate
                    'ActiveSheet.Unprotect Password:="sotser"
                    Range("J9:K908").Select
                    Selection.ClearContents
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    
'25)  Sélectionner la feuille "Colis de dépannage" , déverrouiller, vider et verrouiller
 
                    Sheets("Colis de dépannage").Activate
                    ActiveSheet.Select
                    ActiveSheet.Unprotect Password:="sotser"
                    Range("K7").Select
                    Selection.Copy
                    Range("B7").Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                    Range("K8:K907").Select
                    Selection.ClearContents
                    Range("K8").Activate
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, _
                    Scenarios:=True
                    

'26)    Supprimer les nombres et textes dans les cellules jaunes de la feuille "Bilan du centre".
'          Masquer le bouton "BILAN DU CENTRE"

                    Sheets("Bilan du centre").Activate
                    ActiveSheet.Select
                    ActiveSheet.Unprotect Password:="sotser"
                    Range("T23:W26,S28:W31,F43,J34:W42,B46:X50,B3:J4,T5:W5").Select
                    Selection.ClearContents
                    Worksheets("Bilan du centre").Shapes("Bouton8").Visible = False
                    Range("T23").Activate
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
                    
'27)    Message de fin.

                    Dim vRéponse3 As String
                    vRéponse3 = MsgBox("TOUT C'EST BIEN PASSE" & Chr(10) & _
                    "MERCI POUR VOTRE PARTICIPATION" & Chr(10) & _
                    "VOUS POUVEZ CLIQUER SUR LE BOUTON OK", vbOK, "BONNE SEMAINE")
                    
                    
'28)  Fermeture du fichier "Bénéficiaires hiver 15-16.xlsm"

                    Windows("Bénéficiaires hiver 15-16.xlsm").Activate
                    ActiveWorkbook.Save
                    'ActiveWindow.Close
                    Application.Exit
                    
 End Sub
0
Réponse 30 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci pour le code.
Je vais le parcourir dans la soirée sur le classeur fictif que j'ai créé pour la première partie ... !
Patience.

0
Réponse 31 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Sauf erreur de ma part, seul la procédure [envoi_et_impression_bilan] est à contrôlée car c'est cette dernière qui contient la procédure pour le nouveau classeur (xlsx) avec les 2 feuilles ["Bilan du centre" / "Interface"].

Merci de votre confirmation.

0
Réponse 32 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Oui, c'est exact
0
Réponse 33 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci.
Petite précision, concernant :
'17 Message pour l'envoi par email du fichier "Sxx Bilan du centre de...".
De quel classeur s'agit-il... ?

0
Réponse 34 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
C'est le fichier créé au "poste" 11 

'11)    Création du fichier "Sxx Saisie des Présences.xlsm".
'           Enregistrement et fermeture de ce fichier dans le dossier "Présences hiver 15-16".

                    Sheets("Saisir les Présences").Activate
                    ActiveSheet.Unprotect "sotser"
                    ActiveSheet.Copy
                    Dim Espace1 As String
                    Dim Semaine1 As String
                    Dim Chemin1 As String
                    Dim NomFichier1 As String
                    Espace1 = " "
                    NomFichier1 = "Saisie des Présences"
                    Semaine1 = Range("AP2").Value
                    Semaine1 = Right("S" + Semaine1, 3)
                    Chemin1 = "C:\Présences hiver 15-16\"
                    ActiveWorkbook.SaveAs Chemin1 + Espace1 + Semaine1 + Espace1 + NomFichier1
                    Sheets("Saisir les Présences").Select
                    ActiveSheet.Protect Password:="sotser", DrawingObjects:=True, Contents:=True, Scenarios:=True
                    ActiveWorkbook.UpdateRemoteReferences = True
                    Range("J9").Activate
                    ActiveWorkbook.Save
                    ActiveWindow.Close      'Enregistrement et fermeture du fichier "Sxx Saisie des Présences ".
0
Réponse 35 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai oublié de préciser que l'opérateur renseigne des cellules et déclenche la macro "envoi_et_impression_bilan par un clic sur un bouton
0
Réponse 36 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci d'essayer avec la procédure suivante sans aucune modification, je n'ai pas testé l'envoi du mail.
La procédure : 
Sub envoi_et_impression_bilan()
' **** Modifier Le Pingou
'15)+ 16)   création du fichier "Sxx Bilan du centre Nom du centre"; extension [xlsx]
'      avec une copie feuille "Bilan du centre" et protection
'      et copie feuille  "Interface"
'      enregistrement  du fichier "Sxx Bilan du centre Nom du centre"
'      dans le dossier "Bilans du centre hiver 15-16".

Dim clso As Workbook, clcop As Workbook
Dim Chemin As String, NomFichier As String
Dim refmdp As String
Set clso = ActiveWorkbook
'************
refmdp = "sotser" ' de cette manière vous changer à une place .... éviter les erreurs et oublis...dans le code...
' *********
' chemin origine
Chemin="C:\Bilans du centre hiver 15-16\"
Application.ScreenUpdating = False
With Sheets("Bilan du centre")
    NomFichier = Right("S" & .Range("T5").Value, 3) & " Bilan du centre de " & .Range("B3").Value & ".xlsx"
    .Copy
    ActiveWorkbook.SaveAs Chemin & NomFichier
End With
clso.Sheets("Interface").Copy After:=Workbooks(NomFichier).Sheets(1)
Application.ScreenUpdating = True
Set clcop = Workbooks(NomFichier)

' **** FIN **** Modifier Le Pingou
                                        
'17   Message pour l'envoi par email du fichier "Sxx Saisie des Présences.xlsm"
                    Dim vRéponse2 As String
                    vRéponse2 = MsgBox("LE BILAN VA ETRE ENVOYE A L'ENTREPOT ET A L'INFORMATIQUE" _
                    & Chr(10) & "ET EN COPIE A VOTRE CENTRE" & Chr(10) & _
                    "LE BILAN DU CENTRE ET L'INTERFACE SERONT IMPRIMES" & Chr(10) & _
                    "MERCI POUR VOTRE PARTICIPATION" & Chr(10) & _
                    "VOUS POUVEZ CLIQUER SUR LE BOUTON OK", vbOK, "BONNE SEMAINE")
'18)    Envoi du Bilan.
' ****  Modifier Le Pingou
' récupérer répertoire et nom du classeur créer au poste 11)[procédure: Bilan_de_la_semaine]
Chemin = "C:\Présences hiver 15-16\"
NomFichier = Right("S" & clso.Sheets("Saisir les Présences").Range("AP2").Value, 3) & " Saisie des Présences" & ".xlsx"
piece_jointe = Chemin & NomFichier
                    sch = "http://schemas.microsoft.com/cdo/configuration/"
                    
                   Set cdoConfig = CreateObject("CDO.Configuration")
                           With cdoConfig.Fields
                                   .Item(sch & "sendusing") = 2
                                   .Item(sch & "smtpserver") = "smtp.orange.fr"
                                  .Update
                            End With
                  
                    Set cdoMessage = CreateObject("CDO.Message")
                            With cdoMessage
                            
                                    Set .Configuration = cdoConfig
                                    .From = "ad63.informatique2@restosducoeur.org"
                                    '.To = "ad63.entrepot@restosducoeur.org"
                                    .to = "ad63.informatique2@restosducoeur.org"
                                    .CC = "joelvillier@orange.fr"
                                    .Subject = "BILAN" & " " & NomFichier
                                    .TextBody = "Cordialement" & Chr(10) & "L'Equipe du " & Sheets("Bilan du centre").Range("B3").Value
                                    .AddAttachment (piece_jointe)
                                    .Send
                            End With
                    
                    Set cdoMessage = Nothing
                    Set cdoConfig = Nothing
' **** FIN **** Modifier Le Pingou

'23)    Impression des feuilles "Bilan du centre" et "Interface" du Bilan de la semaine.
'       fermeture du fichier "Sxx Bilan du centre Nom du centre".
' **** Modifier Le Pingou
clcop.Sheets("Bilan du centre").PrintOut
clcop.Sheets("Interface").PrintOut
clcop.Close SaveChanges:=True 'Fermer le classeur en sauvegardant modifications...
' **** FIN **** Modifier Le Pingou
 
'24)    Effacement des données de la semaine écoulée dans le fichier "Bénéficiaires hiver 15-16"
'          Sélectionner la feuille "Saisir les présences" et mettre à blanc les colonnes "J" et "K".
 
                    Sheets("Saisir les Présences").Activate
                    ActiveSheet.Unprotect Password:=refmdp
                    Range("J9:K908").Select
                    Selection.ClearContents
                    ActiveSheet.Protect Password:=refmdp, DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    
'25)  Sélectionner la feuille "Colis de dépannage" , déverrouiller, vider et verrouiller
 
                    Sheets("Colis de dépannage").Activate
                    ActiveSheet.Select
                    ActiveSheet.Unprotect Password:=refmdp
                    Range("K7").Select
                    Selection.Copy
                    Range("B7").Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                    Range("K8:K907").Select
                    Selection.ClearContents
                    Range("K8").Activate
                    ActiveSheet.Protect Password:=refmdp, DrawingObjects:=True, Contents:=True, _
                    Scenarios:=True
                    

'26)    Supprimer les nombres et textes dans les cellules jaunes de la feuille "Bilan du centre".
'          Masquer le bouton "BILAN DU CENTRE"

                    Sheets("Bilan du centre").Activate
                    ActiveSheet.Select
                    ActiveSheet.Unprotect Password:=refmdp
                    Range("T23:W26,S28:W31,F43,J34:W42,B46:X50,B3:J4,T5:W5").Select
                    Selection.ClearContents
                    Worksheets("Bilan du centre").Shapes("Bouton8").Visible = False
                    Range("T23").Activate
                    ActiveSheet.Protect Password:=refmdp, DrawingObjects:=True, Contents:=True, Scenarios:=True
                    
'27)    Message de fin.

                    Dim vRéponse3 As String
                    vRéponse3 = MsgBox("TOUT C'EST BIEN PASSE" & Chr(10) & _
                    "MERCI POUR VOTRE PARTICIPATION" & Chr(10) & _
                    "VOUS POUVEZ CLIQUER SUR LE BOUTON OK", vbOK, "BONNE SEMAINE")
                    
                    
'28)  Fermeture du fichier "Bénéficiaires hiver 15-16.xlsm"

' inutile                    Windows("Bénéficiaires hiver 15-16.xlsm").Activate
' inutile                    ActiveWorkbook.Save
clso.Close SaveChanges:=True
Set clso = Nothing
Set clcop = Nothing
Application.Exit
End Sub
0
Réponse 37 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
Je vais copier votre procédure dans mon fichier.
Naturellement je vous tiendrai informé.
Mais je tiens à vous remercier encore pour votre gentillesse et votre patience.
Cordialement
0
Réponse 38 / 53
zikey Messages postés 119 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
Naturellement j'ai fait une bêtise, le fichier que je souhaite envoyer par mail est le fichier "Sxx Bilan du centre de -Nom du centre-"
Ce fichier est créé en lignes 15 et 16 de votre message 37.
Avec mes excuses, mais je peux essayer de faire la modification moi-même.
Je ne sais pas si je finirai ce soir, par contre pris par les Restos du coeur demain je ne reprendrai qu'en fin d'après-midi.
Cordialement
0
Réponse 39 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Merci, vous regarderai les quelques petites précisions/commentaires dans la procédure.
Concernant la petite bêtise, je l'avais pensé car cela n'était pas logique en étudiant votre code. J'ai cependant agi selon votre décision.
Je vous transmets la correction encore ce soir si possible, cependant pour tester vous pouvez le faire sans autre sans problème ce sera simplement le mauvais classeur, c'est tout.
Si vous faite la correction alors vous m'envoyez les lignes concernées pour contrôle.
0
Réponse 40 / 53
Le Pingou Messages postés 12646 Date d'inscription   Statut Contributeur Dernière intervention   1 463
 
Bonjour,
Les corrections :
Ligne : 
With Sheets("Bilan du centre")
Remplacer Par : 
With clso.Sheets("Bilan du centre")

Supprimer les (3) lignes suivantes: 
' récupérer répertoire et nom du classeur créer au poste 11)[procédure: Bilan_de_la_semaine]
Chemin = "C:\Présences hiver 15-16\"
NomFichier = Right("S" & clso.Sheets("Saisir les Présences").Range("AP2").Value, 3) & " Saisie des Présences" & ".xlsx"
En principe c'est bon comme cela.

0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses