Bonjour ,
J'ai un problème , je dois copier la valeur d'une cellule d'un autre fichier sachant que mes cellules que se soit la feuille sur laquelle je récupère les données ou la feuille sur laquelle je copie les donner sont toujours au même endroit mais j'ai actuellement un #REF , au départ le chemin était spécifié directement mais quand j'ai commencé a automatisé j'ai eu ce problème
Voici mon code
Cordialement .
Dim a As Integer
Dim NomFic As String
Dim cheminComplet As String
cheminComplet = Application.GetOpenFilename
NomFic = Split(cheminComplet, "\")(UBound(Split(cheminComplet, "\")))
a = 45
Cells(a, 18).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R29C17"
Cells(a, 19).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R38C11"
Cells(a, 20).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C14"
Cells(a, 21).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C15"
Cells(a, 23).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R17C17"
Cells(a, 24).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R18C17"
Cells(a, 36).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R26C17"
Cells(a, 37).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R21C17"
Cells(a, 40).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R100C9"
End Sub
J'ai un problème , je dois copier la valeur d'une cellule d'un autre fichier sachant que mes cellules que se soit la feuille sur laquelle je récupère les données ou la feuille sur laquelle je copie les donner sont toujours au même endroit mais j'ai actuellement un #REF , au départ le chemin était spécifié directement mais quand j'ai commencé a automatisé j'ai eu ce problème
Voici mon code
Cordialement .
Dim a As Integer
Dim NomFic As String
Dim cheminComplet As String
cheminComplet = Application.GetOpenFilename
NomFic = Split(cheminComplet, "\")(UBound(Split(cheminComplet, "\")))
a = 45
Cells(a, 18).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R29C17"
Cells(a, 19).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R38C11"
Cells(a, 20).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C14"
Cells(a, 21).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C15"
Cells(a, 23).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R17C17"
Cells(a, 24).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R18C17"
Cells(a, 36).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R26C17"
Cells(a, 37).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R21C17"
Cells(a, 40).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R100C9"
End Sub