Ouverture de page et macro qui ne se fini pas

[shana00]

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

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

 

[Theze]

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

Bonjour,

Teste ce qui suit :

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é.

 

[shana00]

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

 

[shana00]

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

Up , c'est la dernière chose qui manque et j'ai fini ma macro svp :x

 

[Theze]

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) :*

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é.

 

[shana00]

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

Merci ça fonctionne très bien