Dans mon premier poste, on évoque mon UserForm qui correspond à un défaut sur une ligne... à chaque validation( nouveau défaut) on passe à une nouvelle ligne. ça c'est pour l'historique...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEnsuite, en fin de journée, je transfert mes photos de ma carte memoire vers un dossier photo (leur numéro est identique).
dim tata As workbook
set tata = workbooks.open("c:\classeur2.xlsm")
with tata.worksheets("Feuil1")
.range("C1").value = range("A1").value
.image1.picture = loadpicture("C:\toto" & format(Range("A2").value, "0000") & ".jpg")
end with
.image1.picture = loadpicture("C:\toto" & format(worksheets("titi").Range("A2").value, "0000") & ".jpg")
dim tata as Workbook, moi As Workbook
set moi = thisworkbook ' ===>>> le classeur de départ, donc
set tata = workbooks.open("c:\classeur1.xlsm")
with tata.worksheets("Feuil1")
.range("C1").value = moi.worksheets("titi").range("A1").value '=== je force la main ici
.image1.picture = loadpicture("C:\toto" & format(moi.worksheets("titi").range("A2").value, "0000") & ".jpg") ' ===>> et là
end with
set tata = workbooks.open("c:\classeur1.xlsm")
Set tata = Workbooks.Open("c:\Users\moi\Documents\classeur2.xlsm")
Private Sub CommandButton1_Click()
Dim tata As Workbook, moi As Workbook
Set moi = ThisWorkbook
Set tata = Workbooks.Open("c:\Users\moi\Documents\classeur2.xlsm")
With tata.Worksheets("Feuil1")
.Range("C1").Value = moi.Worksheets("Feuil1").Range("A1").Value
.image1.Picture = LoadPicture("C:\Users\moi\Documents\toto" & Format(moi.Worksheets("Feuil1").Range("A2").Value, "0000") & ".jpg")
End With
End Sub
Sub creer_fiche_Click(Control As IRibboncontrol)
Dim bdd As Workbook, fvierge As Workbook
Dim rep As String
Dim Classeurpath As String
Dim Classeurphoto As String
Dim accessibilite, inaccessibilite, accespart, accescom, faiencage, ecaillage, cloqgonf, eclatbeton, betonautre As String
Dim niveau, atelier, SALLE1, SALLE2, betoncom, traversante, nontraversante, noncaracterisable, infiltrante, enreseau As String
Dim sup1mm, inf1mm, emax, emaxsalle2, corrosion, pasdacier, acierapparent, naturelle, rougeatre, blanchatre As String
Dim trace, pastrace, coulure, humidite, seche, efflorescence, aureole As String
Dim nfiche, nb, chemin, salle1_3R, salle1_zone4, salle1_feu, salle1_ext, salle1_123 As String
Dim salle2_3R, salle2_zone4, salle2_feu, salle2_ext, salle2_123, murN, murO, murS, murE, PLANCHER As String
Dim RADIER, PLAFOND, POTEAU, POUTRE, INTERIEUR, remarques As String
'chemin = Sheets("BDD").Range("AZV1").Value (en prévision, ne sert a rien pour le moment)
nb = Sheets("BDD").Range("AZT1").Value
'i est le nombre de fissures, la ligne de départ est 5, le nombre de fissures est n
'ligne_fin = 5 + nb - 1
ligne_fin = Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row
rep = Environ("USERPROFILE") & "\"
Classeurpath = rep & "\Documents\HagueInspection\Fvierge.xlsm
Classeurphoto = rep & "\Documents\HagueInspection\Photos
Set bdd = ThisWorkbook
Set fvierge = Woorkbooks.open(Classeurpath)
With fvierge.Worksheets("Fvierge")
For i = 5 To ligne_fin
'ici j'écris le code qui remet toutes les valeurs de BDD vers le Rapport
'Et le code qui mettra les photos au bon endroit
.image1.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BH" & i").Value, "0000") & ".jpg")
.image2.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BI" & i").Value, "0000") & ".jpg")
.image3.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BJ" & i").Value, "0000") & ".jpg")
.image4.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BK" & i").Value, "0000") & ".jpg")
End With
Next i
End Sub