Résultats de la recherche

Bonjour, Merci pour votre réponse, malheureusement il y aura plus de 700 photos et je ne connais pas à la base comment celles ci seront nommées. De plus le code fonctionne à part qu'il met les photos renommées dans un autre fichier. Merci encore pour votre aide.

Bonjour, J'ai trouvé le souci restant c'est qu'il enregistre les fichiers dans le répertoire NOAffaire et pas dans le répertoire PHOTOS qui est dedans Private Sub MAJPH2_Click() 'Numéroter image Dim dossier As Object Dim chemin As String Dim fichier As Object chemin = CurrentProject.PATH &...

Bonjour, J'ai un code que j'ai trouvé qui fonctionne trés bien, par contre j'aimerai définir le dossier en question, et pas de filedialog. J'ai essayé un grand nombre de possibilités sans succés vu mon niveau. Merci d'avance pour votre aide. Private Sub CiblePhoto_Click() 'Numéroter image Dim...

Bonjour, Merci ++++ ca marche enfin.. c'est génial.

Re, On m'a modifié quelques éléments, et ca fonctionne chez cette personne et pas chez moi je ne comprends pas pourquoi.. ci joint la dernière version. Chez moi ca bloque sur : .Range(2) = FiRép

Re Bonjour, Merci pour votre aide. J'ai changé les photos avec celles originales. J'ai modifié la ligne : If Dir(FiChoisi) = "" Then Exit Sub Ca me met bien la première ligne soir le premier fichier 1.jpg et ensuite cela s'arrête, la boucle ne se fait pas.

Bonjour, J'ai une macro qui doit se répéter sur tous les fichiers du répertoire identifié, j'ai essayé plusieurs possibilités, sans succès. Normalement le fichier était utilisé pour un fichier défini mais comme j'ai de 2 à 700 images j'ai voulu ajouter une boucle et maintenant cela ne...

Ca marche, super merci beaucoup.

Oui les formules sont écrasées

colonne 2 (B)

Oui sur la première ligne du tableau.

Oui c'est ca..

J'ai un tableau sur onglet Info, A11:I232 avec en valeur colonne F la valeur pour identifier le nombre de fois ou la ligne doit être dupliquée sur l'onglet FDR.

En fait le code fonctionnait quand mon tableau était en ligne 1 le fait de l'avoir déplacé en ligne 11, ca ne fonctionne plus.. je vais modifier selon vos commentaires.

Erreur d'exécution 13 sur la dernière ligne que j'ai modifié : 'boucle sur les données For i = 1 To lstrw quantite = ws_data.Cells(i, 6)

Je viens de réesssayer, ca marche à part que maintenant il s'arrête sur : 'boucle sur les données For i = 1 To lstrw quantite = ws_data.Cells(F, 6)

Erreur exécution 1004

Re Bonjour oui en excel 2013, quand j'exécute il s'arrête sur cette ligne qu'il met en jaune..

Bonjour, Désolée suis débutante et ne connait pas encore les habitudes à adopter. L'erreur se trouve sur la ligne : Set ws_data = wk_file.Worksheets("Info") Ci joint mon fichier avec plusieurs modules car je fais beaucoup d'essai. Merci d'avance.

Bonjour, merci pour votre réponse.