Contenu récent par David590

Super ça fonctionne parfaitement merci J'étais persuadé d'avoir déjà essayé ça mais a mon avis j'ai ajouté un ActiveWorkbooks en trop ce qui fait que ca n'allait pas

Bonjour à tous, J'aurai besoin de récupérer la couleur d'un shape dans une variable, j'y arrive avec "selection" comme ceci : Var = Selection.ShapeRange.Fill.ForeColor.RGB Mais ca ne fonctionne pas si j'essai de le nommer comme ca: Var = shapes("monshape").ShapeRange.Fill.ForeColor.RGB...

Bonjour à tous, J'ai un problème assez farfelu 😕 J'utilise un scanner de code barre pour scanner dans une cellule un QR code contenant des coordonnées clients sous cette forme : Sur un pc la chaine de caractère s'écrit parfaitement Mais sur un autre pc ca bug dans tout les sens avec Excel...

Merci pour ton aide mais je vais plutôt garder la version de @JM27 qui me permet de pouvoir changer la source et la destination très facilement

Bonjour @Phil69970 J'ai essayé mais ca ne sépare pas, ca me mets la même chose en C5 qu'en D1

Super exactement ce qu'il me fallait, Merci @JM27

Bonjour à tous, J'aurai besoin de séparer en VBA des informations qui se trouve dans un chaine de caractères séparé par des ;/ Par exemple, il faudrait que ce qui se trouve en D1 : ;/Nom;/Prénom;/nomprenom@gmail.com;/0711223344;/1 rue des Oliviers;/75000;/Paris se décompose sur C5: Nom C6...

Bonjour @kiki29, @Phil69970 Merci pour vos réponse, je vous assure que j'ai bien cherché avant, certainement pas avec les bons mots clés, j'ai trouvé une multitude de chose autour des impressions mais rien pour annuler Pour ton code phil69970, j'ai erreur de syntaxe, je ne sais pas s'il faut...

Bonjour à tous, J'aimerai savoir s'il y aurait un moyen en vba pour supprimer toutes les impressions dans la file d'attente d'une imprimante . Merci d'avance

J'ai essayé mais ca me fait la même chose En fait ca revient à demander si le classeur ouvert est en lecture seule alors qu'on sait qu'il est déjà ouvert en lecture/écriture Je sais que c'est vraiment pas facile sans pouvoir échanger des fichiers exemples quand c'est avec plusieurs classeurs en...

Tu veux dire une gestion d'erreur avec Error GoTo ? Car j'ai essayé et ca n'empêche pas d'afficher cette fenêtre

Oui c'est bien ca , mais qu'on se comprenne bien, la plupart du temps ca fonctionne bien même quand j'ouvrais en lecture seule/copier/coller/fermer mais de temps en temps ca plante Avec ton code qui est beaucoup plus rapide ca devrait déjà être mieux, mais si je fais un test extrême avec une...

Par contre, c'est le PC1 qui affiche la fenêtre problématique, celui ou le classeur est ouvert avec la macro qui tourne en boucle et qui sauvegarde Du coup je dois mettre ton code autour du ThisWorkbook.Save, non ? J'ai essayé comme ca mais j'ai toujours la fenêtre #If VBA7 Then Private...

J'avais pas compris qu'il fallait pas mettre Environ("userprofile") & Ca fonctionne comme ca maintenant: Sub LitClasseurFermé() Dim Rsource As Range, Rdest As Range, Chemin$, Fichier$, Onglet$ Chemin = "\\PC1\Users\Public" 'ThisWorkbook.Path 'chemin du fichier source Fichier = "Classeur1.xlsm"...

Effectivement, je n'avais pas mis l'extension, donc Classeur1.xlsm Pour le Feuil1, je l'ai vu entre deux, j'avais édité Par contre le chemin d'un fichier d'un pc distant c'est bien \\ non ? c'est toujours ce que j'utilise d'habitude !