Vba
bimbooo
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tout le monde,
je viens très respectueusement vous demander de l'aide, actuellement je travaille sur vb excel, j'essaye d'afficher des photos sur mes feuilles. à chaque que je compile sans fermé les feuilles les photos doubles, c'est a dire à la première execution j'ai une photo sans fermé la feuille il y'a une autre photo qui se rajoute sur l'autre. est ce qu'il y a une possibilté de réparer cet erreur et de bien centré ma photo dans la cellule demandé voici mon programme:
Sheets(feuil1).Cells(12, 9).Select
If Dir("O:\répertoir photo\" & nomdelaphoto & ".jpg") <> "" Then
Sheets(feuil1).Pictures.Insert("O:\répertoire photo\" & nomdelaphoto & ".jpg").Width=350
End If
ma cellule n'est pas fusionnée, j'espère être bien clair merci à tous pour vos aide
je viens très respectueusement vous demander de l'aide, actuellement je travaille sur vb excel, j'essaye d'afficher des photos sur mes feuilles. à chaque que je compile sans fermé les feuilles les photos doubles, c'est a dire à la première execution j'ai une photo sans fermé la feuille il y'a une autre photo qui se rajoute sur l'autre. est ce qu'il y a une possibilté de réparer cet erreur et de bien centré ma photo dans la cellule demandé voici mon programme:
Sheets(feuil1).Cells(12, 9).Select
If Dir("O:\répertoir photo\" & nomdelaphoto & ".jpg") <> "" Then
Sheets(feuil1).Pictures.Insert("O:\répertoire photo\" & nomdelaphoto & ".jpg").Width=350
End If
ma cellule n'est pas fusionnée, j'espère être bien clair merci à tous pour vos aide
Sheets(feuil1).Cells(12, 9).Select
D'ailleurs, il manque les "" à Feuil1 : Sheets("Feuil1").Cells(12, 9).Select
Il faut, si tu veux que tes photos ne se superposent pas, que tu changes de cellule.
Pour t'aider davantage, il me faudra tout le code utilisé...
Sheets("feuil1").Cells(12, 9).Select
If Dir("O:\répertoir photo\" & nomdelaphoto & ".jpg") <> "" Then
Sheets("feuil1").Pictures.Insert("O:\répertoire photo\" & nomdelaphoto & ".jpg").Width=350
End If
end sub
c'est tout ce que j'ai mis comme code.
Donc supprime simplement : Sheets("feuil1").Cells(12, 9).Select.
Avant de lancer ta macro, sélectionnes une cellule de ta feuille qui sera chargée "d'accueillir" ta photo...
sub photo() If Dir("O:\répertoir photo\" & nomdelaphoto & ".jpg") <> "" Then Sheets("feuil1").Pictures.Insert("O:\répertoire photo\" & nomdelaphoto & ".jpg").Width=350 End If end sub