Reprise du message précédent :
c'est bon, j'ai retiré un smiley squater , tu copies tout et tu remplaces l'ancienne macro par celle-là. les "declare" sont avant le sub...
mais comme il n'y a pas que cette modif, j'ai déplacé des lignes et ajouter la séquence de vidage du clipboard le mieux est de tout copier
j'attends ton essai

Rebonjour
 
A priori, le smiley n'était pas en cause: il n'apparaissait pas lors du collage (je l'avais vu).
Par contre, maintenant, j'ai systématiquement la MsgBox qui m'indique "Y a pas de fichier". Bien entendu, j'ai fait attention à bien saisir un n° de dossier existant et un nom de fichier existant.
Si les 3 lignes sont bien au-dessus du Sub (le 1er si j'ai bien compris), elles semblent ne pas être interprétées dans le code. Si je ne dis pas de bêtises, Sub est la 1ère ligne de code. Donc tout ce qui est au-dessus n'est pas pris en compte: il y a à ce propos une ligne entre la dernière de ces 3 lignes et l'instruction Sub

les "declare" se mettent au niveau du module à l'extérieur des sub pour t'assrer du bienfondé de leur présence, tu les mets en commentaire et tu compiles, je viens de réessayer et ne trouve pas le même phénomène
peux-tu me copier ton module ?

J'ai peut-être une réponse: tu as fait un essai sur un nouveau fichier execel? si oui l'as-tu ragé dans le répertoire avec les autres? parceque la macro va chercher au début le path des fichiers dans le path du fichier en cours. Si tu ne l'as pas enregistrer le path doit être dur à trouver. Veux tu que j'affiche le path au début pour t'éviter ce pb, mais cela fait encore un clic
Cordialement

Bonsoir
 
Impeccable. J'ai refait dans les règles de l'art et ça roule. La fenêtre s'ouvre pour se refermer immédiatement sans avoir à cliquer sur oui avec ma souris.
 
Tu as gagné. Je m'incline devant ta science infuse.
 
P.S: tu avais de toute façon gagné.
One+one

bonsoir,  
je peux m'assurer dans la macro que tu as bien enregistré une fois ton nouveau fichier, afin de trouver le bon path. Il y a quatre lignes les veux-tu?

Re,  
 
Oui, je veux bien.
 
Merci

voila:
 à placer après la ligne:
loogu = Len(pp)
 
 
 
If loogu = 0 Then
    MsgBox "IL FAUT D'ABORD RANGER LE NOUVEAU FICHIER DANS LE REPERTOIRE"
    Exit Sub
End If

Merci
 
J'ai collé le code.
Le problème est donc définitivement résolu.

Bonne nuit

Bonne soirée et bonne nuit à toi.