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