Ouverture de page et macro qui ne se fini pas

  • Initiateur de la discussion Initiateur de la discussion shana00
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

shana00

XLDnaute Nouveau
Bonjour a tous ,
J’exécute mon code , la personne choisis le fichier qu'elle veut , le fichier s'ouvre et ensuite le reste de la macro ne s’exécute pas , j'ai essaye d'activé ma feuille de départ pour que la macro continue mais la fenêtre n'est pas réactivé. J'aurai voulu ouvrir le page sur laquelle il y a les donner a récupérer et ensuite la fermer une fois toute les donner récupérer mais vu qu'il l'ouvre en 1er plan ça fait bug , du coup est ce qu'il serai possible de l'ouvrir en arrière plan ou simplement une autre solution que vous me proposerez.
Merci
Cordialement Shana

Ps: j'aurai bien voulu donner un exemple mais apparemment quand je met ma macro sur un autre fichier elle ne fonctionne pu pareil

HTML:
Sub Macro5()


Dim a As Integer
Dim Feuille As String
Dim fin As String
Dim i As Integer
Dim NomFic As String
Dim cheminComplet As String
Dim wb As Workbook




cheminComplet = Application.GetOpenFilename

Set wb = Workbooks.Open(cheminComplet)

NomFic = Split(cheminComplet, "\")(UBound(Split(cheminComplet, "\")))

a = 43
fin = Workbooks(NomFic).Sheets.Count

For i = 1 To fin

Feuille = Workbooks(NomFic).Sheets(i).Name

    Cells(a, 18).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R29C17"
    Cells(a, 19).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R38C11"
    Cells(a, 20).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R67C14"
    Cells(a, 21).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R67C15"
    Cells(a, 23).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R17C17"
    Cells(a, 24).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R18C17"
    Cells(a, 36).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R26C17"
    Cells(a, 37).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R21C17"
    Cells(a, 40).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R100C9"
    
    a = a + 1
    
    Next i
    


End Sub
 

Pièces jointes

Dernière édition:
Re : Ouverture de page et macro qui ne se fini pas

Bonjour,

Teste ce qui suit :
Code:
Sub Macro5()

    Dim a As Integer
    Dim I As Integer
    Dim cheminComplet As String
    Dim Wb As Workbook
    
    cheminComplet = Application.GetOpenFilename
    
    Set Wb = Workbooks.Open(cheminComplet)
    
    a = 43
    
    For I = 1 To Wb.Sheets.Count
    
        With Wb.Sheets(I)
    
            Cells(a, 18).FormulaR1C1 = "=" & .Name & "!R29C17"
            Cells(a, 19).FormulaR1C1 = "=" & .Name & "!R38C11"
            Cells(a, 20).FormulaR1C1 = "=" & .Name & "!R67C14"
            Cells(a, 21).FormulaR1C1 = "=" & .Name & "!R67C15"
            Cells(a, 23).FormulaR1C1 = "=" & .Name & "!R17C17"
            Cells(a, 24).FormulaR1C1 = "=" & .Name & "!R18C17"
            Cells(a, 36).FormulaR1C1 = "=" & .Name & "!R26C17"
            Cells(a, 37).FormulaR1C1 = "=" & .Name & "!R21C17"
            Cells(a, 40).FormulaR1C1 = "=" & .Name & "!R100C9"
        
        End With
        
        a = a + 1
    
    Next I
    
End Sub

Hervé.
 
Re : Ouverture de page et macro qui ne se fini pas

Bonjour ,
J'ai essayé ça me met erreur définie par l'application ou par l'objet en soulignant
Cells(a, 18).FormulaR1C1 = "=" & .Name & "!R29C17"

J'ai rajouté 2pièces jointe j'ai enfin compris pourquoi ça fonctionner pas , en gros quand je lance la macro il demande d'ouvrir le fichier pour récupérer les donner sauf que quand il l'ouvre au lieu de continuer la macro sur le fichier de base , il la continue sur le fichier qui est ouvert
 
Dernière édition:
Re : Ouverture de page et macro qui ne se fini pas

Bonjour,

Teste ce qui suit en ayant au préalable adapté le nom de la feuille où tu souhaite récupérer les valeurs (le nom de la feuille du classeur initialement ouvert) :*
Code:
Sub Macro5()

    Dim a As Integer
    Dim I As Integer
    Dim cheminComplet As String
    Dim Wb As Workbook
    Dim Fe As Worksheet
    
    Set Fe = ActiveWorkbook.Worksheets("Feuil1") '<---adapter le nom de la feuille !
    
    cheminComplet = Application.GetOpenFilename
    
    Set Wb = Workbooks.Open(cheminComplet)
    
    a = 43
    
    For I = 1 To Wb.Sheets.Count
    
        With Wb.Sheets(I)
    
            Fe.Cells(a, 18).FormulaR1C1 = "=" & .Name & "!R29C17"
            Fe.Cells(a, 19).FormulaR1C1 = "=" & .Name & "!R38C11"
            Fe.Cells(a, 20).FormulaR1C1 = "=" & .Name & "!R67C14"
            Fe.Cells(a, 21).FormulaR1C1 = "=" & .Name & "!R67C15"
            Fe.Cells(a, 23).FormulaR1C1 = "=" & .Name & "!R17C17"
            Fe.Cells(a, 24).FormulaR1C1 = "=" & .Name & "!R18C17"
            Fe.Cells(a, 36).FormulaR1C1 = "=" & .Name & "!R26C17"
            Fe.Cells(a, 37).FormulaR1C1 = "=" & .Name & "!R21C17"
            Fe.Cells(a, 40).FormulaR1C1 = "=" & .Name & "!R100C9"
        
        End With
        
        a = a + 1
    
    Next I
    
End Sub

Hervé.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Retour