A L'AIDE LES SAVANTS

Bonjour à tous,

J'ai épluché les sujets similaires mais je n'arrive pas à trouver ma solution à cette erreur. J'ai récupéré une macro qui existait déjà dans un de nos fichiers et qui fonctionne. La seule différence est que dans la mienne j'ajoute des variables via un userform.

Je veux enregistrersous mon classeur dans un fichier existant (2020 - TDB ABS TARIFICATION) et le renommer avec l'année et le mois qui sont déterminée dans le userform (2020-11 TDB ABS TARIFICATION)

Je vous montre mon code. Merci de l'aide apportée

Private Sub CommandButton1_Click()

Dim mois As String, Annee As Long
Dim chemin As String
Dim fichie...

Bonsoir à tous,
Voila ayant un gros problème sur ma télé, j'ai décidé de l'envoyer lundi au SAV de conforama. Mais stupéfaction, je n'ai pas retrouvé mon bon de commande de la télé, mais la garantie elle est toujours valable. Je voulais savoir si je pouvais la ramener sans présentation du papier, peutêtre ont-ils ma preuve d'achat dans leur base de données et présenter ma carte d'identité à la place ?

Merci de vos réponses !

Bonsoir à tous,
Voila ayant un gros problème sur ma télé, j'ai décidé de l'envoyer lundi au SAV de conforama. Mais stupéfaction, je n'ai pas retrouvé mon bon de commande de la télé, mais la garantie elle est toujours valable. Je voulais savoir si je pouvais la ramener sans présentation du papier, peut être ont-ils ma preuve d'achat dans leur base de données et présenter ma carte d'identité à la place ?

Merci de vos réponses !

Configuration: Windows XP / Safari 532.5

Inconnu404 - 26 nov. 2020 à 09:41
Inconnu404 - 26 nov. 2020 à 11:19

Bonjour à tous,

Je vous contacte car je bute sur ce problème depuis 1 journée.

Lors de l'exécution de la macro, je tombe sur l'erreur citée dans le titre sur la ligne 24.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then Dim Chemin As String, Fichier As String, Extraction As String, Résumé As String Dim classeurProj As Workbook, classeurDestination As Workbook If Target.Value = "" Then Exit Sub Chemin = Range("b" & Target.Row) Fichier = Range("c" & Target.Row) Extraction = Range("d" & Target.Row) Résumé = Range("a" & Target.Row) Set cla...

Service après vente nul, appareil en panne au bout de 4 mois, avec utilisation normale, je précise, appareil sous garantie mais ne fait passer aucun réparateur,  on me laisse avec mon appareil en panne. Ils empochent l argent et après on doit se débrouiller,  c est du vol. Plus de 4000€ de marchandises et ils ne font rien et trouvent normal de ne rien faire alors que le lave linge acheté chez eux a lâché au bout de 4 mois marque LG ! On me renvoie au constructeur alors que c est à eux de faire quelque chose, c est au vendeur d assumer si le constructeur ne fait rien. Articles L 217.3 et 217.7 c est au vendeur de prouver que je suis responsable ! Et je me demande ce qu il y a à prouver vu que...